📄 frm1.frm
字号:
VERSION 5.00
Begin VB.Form frm1
AutoRedraw = -1 'True
Caption = "Form12"
ClientHeight = 1545
ClientLeft = 60
ClientTop = 345
ClientWidth = 3840
LinkTopic = "Form12"
ScaleHeight = 1545
ScaleWidth = 3840
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1425
Left = 0
Picture = "frm1.frx":0000
ScaleHeight = 1425
ScaleWidth = 2835
TabIndex = 0
Top = 0
Width = 2835
End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim ScreenWidth As Integer, ScreenHeight As Integer
Dim intI As Integer, intJ As Integer
ScreenWidth = Screen.Width / Screen.TwipsPerPixelX
ScreenHeight = Screen.Height / Screen.TwipsPerPixelY
Me.Height = Screen.Height
Me.Width = Screen.Width
Me.ScaleMode = 3
Me.Picture1.Top = 0
Me.Picture1.Left = 0
Me.Picture1.ScaleMode = 3
For intI = 0 To ScreenHeight Step Me.Picture1.ScaleHeight
For intJ = 0 To ScreenWidth Step Me.Picture1.ScaleWidth
Me.PaintPicture Me.Picture1.Picture, intJ, intI
Next intJ
Next intI
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -