📄 frmaddtodb.frm
字号:
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":0868
Key = "fixed"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":09C4
Key = "remote"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":0B20
Key = "unknown"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":0C7C
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":0DD8
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":0F38
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":1094
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":11F4
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":1350
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":14AC
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":1608
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAddtoDB.frx":1764
Key = ""
EndProperty
EndProperty
End
Begin VB.FileListBox File_back
Height = 810
Left = 2445
Pattern = "*.jpg;*.bmp;*.dib;*.gif"
ReadOnly = 0 'False
TabIndex = 10
TabStop = 0 'False
Top = 4875
Visible = 0 'False
Width = 1455
End
Begin VB.CheckBox chkThumb
Appearance = 0 'Flat
BackColor = &H0000C000&
ForeColor = &H80000008&
Height = 195
Left = 5085
TabIndex = 8
TabStop = 0 'False
ToolTipText = "View thumbnail"
Top = 4575
Value = 1 'Checked
Width = 210
End
Begin MSComctlLib.TreeView Dir
Height = 2355
Left = 45
TabIndex = 1
Top = 225
Width = 3930
_ExtentX = 6932
_ExtentY = 4154
_Version = 393217
HideSelection = 0 'False
Indentation = 18
LabelEdit = 1
Style = 7
ImageList = "Icons"
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ListBox File
Appearance = 0 'Flat
BackColor = &H00808080&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFC0&
Height = 2955
Left = 45
Style = 1 'Checkbox
TabIndex = 2
Top = 2790
Width = 3930
End
Begin Thumb_DB.ucGraphicButton btnContractF
Height = 180
Left = 1980
ToolTipText = "Contract all"
Top = 30
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin Thumb_DB.ucGraphicButton btnExpandF
Height = 180
Left = 3015
ToolTipText = "Expand all"
Top = 30
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin MSComctlLib.TreeView TreeView
Height = 3195
Left = 4125
TabIndex = 39
Top = 225
Width = 3930
_ExtentX = 6932
_ExtentY = 5636
_Version = 393217
HideSelection = 0 'False
Indentation = 265
LabelEdit = 1
Style = 7
ImageList = "Icons"
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Thumb_DB.ucGraphicButton btnContractC
Height = 180
Left = 6060
ToolTipText = "Contract all"
Top = 30
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin Thumb_DB.ucGraphicButton btnExpandC
Height = 180
Left = 7095
ToolTipText = "Expand all"
Top = 30
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin VB.Label lblTime
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "0 s."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 165
Left = 7095
TabIndex = 46
Top = 3735
Width = 900
End
Begin VB.Label lblExpandC
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "展开"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 7410
TabIndex = 44
Top = 15
Width = 360
End
Begin VB.Label lblContractC
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收缩"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 6360
TabIndex = 43
Top = 15
Width = 360
End
Begin VB.Label lblSelectedCat
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFC0&
Height = 210
Left = 5295
TabIndex = 41
Top = 3420
Width = 1755
End
Begin VB.Label lblThumbs
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFC0&
Height = 210
Left = 7170
TabIndex = 40
Top = 3420
Width = 810
End
Begin VB.Label lblClear
BackStyle = 0 'Transparent
Caption = "清除"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 2280
TabIndex = 38
ToolTipText = "Clear selection/s"
Top = 2580
Width = 450
End
Begin VB.Label lblNameAsComment
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件名作为信息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 6375
TabIndex = 37
Top = 4575
Width = 1260
End
Begin VB.Label lblThumbnail
BackStyle = 0 'Transparent
Caption = "Thumbnail"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 4200
TabIndex = 35
Top = 4575
Width = 900
End
Begin VB.Label lblPictureInfo
BackStyle = 0 'Transparent
Caption = "信息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 5475
TabIndex = 34
Top = 4575
Width = 855
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -