📄 selectfile.frm
字号:
VERSION 5.00
Begin VB.Form SelectFile
BorderStyle = 3 'Fixed Dialog
Caption = "选择图片文件"
ClientHeight = 4005
ClientLeft = 45
ClientTop = 615
ClientWidth = 8385
Icon = "SelectFile.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4005
ScaleWidth = 8385
ShowInTaskbar = 0 'False
Begin VB.PictureBox picUP
AutoSize = -1 'True
Height = 540
Left = -1305
Picture = "SelectFile.frx":27A2
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 15
Top = 90
Visible = 0 'False
Width = 540
End
Begin VB.PictureBox picDown
AutoSize = -1 'True
Height = 540
Left = -585
Picture = "SelectFile.frx":2AAC
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 14
Top = 90
Visible = 0 'False
Width = 540
End
Begin VB.CheckBox Check2
BackColor = &H00C0C0C0&
Caption = "自动大小"
Enabled = 0 'False
ForeColor = &H00404000&
Height = 240
Left = 1455
TabIndex = 8
Top = 3135
Width = 1065
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 3645
Left = 5325
ScaleHeight = 3645
ScaleWidth = 2925
TabIndex = 10
Top = 195
Width = 2925
Begin VB.CommandButton Command3
Height = 285
Left = 2655
TabIndex = 13
Top = 3375
Visible = 0 'False
Width = 285
End
Begin VB.HScrollBar HScroll1
Height = 270
LargeChange = 1000
Left = -15
SmallChange = 100
TabIndex = 12
Top = 3375
Visible = 0 'False
Width = 2685
End
Begin VB.VScrollBar VScroll1
Height = 3405
LargeChange = 1000
Left = 2655
SmallChange = 100
TabIndex = 11
Top = -15
Visible = 0 'False
Width = 270
End
Begin VB.Image DisplayPicture
Height = 3600
Left = -15
MousePointer = 99 'Custom
Top = -15
Width = 2880
End
End
Begin VB.CheckBox Check1
Caption = "预览图片"
ForeColor = &H00404000&
Height = 300
Left = 195
TabIndex = 7
Top = 3105
Width = 1155
End
Begin VB.ComboBox SelectType
Height = 300
Left = 165
Style = 2 'Dropdown List
TabIndex = 2
Top = 3525
Width = 2340
End
Begin VB.FileListBox File1
Height = 1890
Left = 165
TabIndex = 1
Top = 1110
Width = 2340
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "取消(&C)"
Height = 390
Left = 3420
TabIndex = 6
Top = 780
Width = 1380
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Default = -1 'True
Enabled = 0 'False
Height = 390
Left = 3420
TabIndex = 5
Top = 330
Width = 1380
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 2715
TabIndex = 3
Top = 3510
Width = 2235
End
Begin VB.DirListBox Dir1
Height = 1770
Left = 2715
TabIndex = 4
Top = 1575
Width = 2235
End
Begin VB.TextBox Text1
Height = 270
Left = 180
Locked = -1 'True
TabIndex = 0
Top = 705
Width = 2325
End
Begin VB.Line Line9
BorderColor = &H00808080&
X1 = 5310
X2 = 8250
Y1 = 180
Y2 = 180
End
Begin VB.Line Line8
BorderColor = &H00808080&
X1 = 5310
X2 = 5310
Y1 = 180
Y2 = 3840
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 8250
X2 = 8250
Y1 = 180
Y2 = 3855
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 5325
X2 = 8250
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
Index = 1
X1 = 2490
X2 = 2490
Y1 = 195
Y2 = 585
End
Begin VB.Line Line5
BorderColor = &H00808080&
Index = 0
X1 = 180
X2 = 180
Y1 = 195
Y2 = 585
End
Begin VB.Line Line4
BorderColor = &H00FFFFFF&
Index = 1
X1 = 195
X2 = 2505
Y1 = 585
Y2 = 585
End
Begin VB.Line Line4
BorderColor = &H00808080&
Index = 0
X1 = 180
X2 = 2490
Y1 = 180
Y2 = 180
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 2
X1 = 30
X2 = 30
Y1 = 30
Y2 = 3945
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 2
X1 = 8340
X2 = 8340
Y1 = 45
Y2 = 3975
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 15
Y1 = 15
Y2 = 3960
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 8355
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 15
X2 = 8340
Y1 = 30
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 0
X2 = 8355
Y1 = 3975
Y2 = 3975
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 15
X2 = 8340
Y1 = 3960
Y2 = 3960
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 8355
X2 = 8355
Y1 = 30
Y2 = 3990
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 5220
X2 = 5220
Y1 = 30
Y2 = 3945
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5235
X2 = 5235
Y1 = 30
Y2 = 3945
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "选定的文件名称及路径"
ForeColor = &H00800000&
Height = 180
Left = 435
TabIndex = 9
Top = 315
Width = 1800
End
Begin VB.Menu MenuEdit
Caption = "编辑"
Begin VB.Menu DelFile
Caption = "删除(&D)"
Shortcut = ^D
End
End
End
Attribute VB_Name = "SelectFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sx As Long, Sy As Long, Mx As Long, My As Long, LB As Boolean
Private Sub Check1_Click()
If Check1.Value = 1 Then
SelectFile.Width = 8475
Else
SelectFile.Width = 5355
DisplayPicture.Picture = LoadPicture()
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -