📄 frmaddtodb.frm
字号:
Style = 5
ImageList = "Icons"
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ListBox File
Appearance = 0 'Flat
BackColor = &H00808080&
ForeColor = &H00C0FFC0&
Height = 3180
Left = 4125
Style = 1 'Checkbox
TabIndex = 3
Top = 225
Width = 4425
End
Begin Thumb_DB.ucGraphicButton btnContractF
Height = 180
Left = 1980
ToolTipText = "Contract all"
Top = 30
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin MSComctlLib.TreeView TreeView
Height = 1860
Left = 45
TabIndex = 2
Top = 4170
Width = 3930
_ExtentX = 6932
_ExtentY = 3281
_Version = 393217
HideSelection = 0 'False
Indentation = 265
LabelEdit = 1
Style = 7
ImageList = "Icons"
BorderStyle = 1
Appearance = 0
End
Begin Thumb_DB.ucGraphicButton btnContractC
Height = 180
Left = 1980
ToolTipText = "Contract all"
Top = 3975
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin Thumb_DB.ucGraphicButton btnExpandC
Height = 180
Left = 3015
ToolTipText = "Expand all"
Top = 3975
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 VB.Label lblClear
BackStyle = 0 'Transparent
Caption = "Clear"
Height = 180
Left = 7005
TabIndex = 50
ToolTipText = "Clear selection/s"
Top = 15
Width = 450
End
Begin VB.Label lblThumbs
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00C0FFC0&
Height = 210
Left = 3135
TabIndex = 47
Top = 3735
Width = 810
End
Begin VB.Label lblSelectedCat
BackStyle = 0 'Transparent
ForeColor = &H00C0FFC0&
Height = 180
Left = 1215
TabIndex = 49
Top = 3735
Width = 1860
End
Begin VB.Label lblSelectedCatBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = " Selected cat. :"
ForeColor = &H00000000&
Height = 240
Left = 45
TabIndex = 48
Top = 3720
Width = 3930
End
Begin VB.Label lblNameAsComment
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Name as comment"
ForeColor = &H00000000&
Height = 180
Left = 6870
TabIndex = 46
Top = 4635
Width = 1395
End
Begin VB.Label lblThumbnail
BackStyle = 0 'Transparent
Caption = "Thumbnail"
ForeColor = &H00000000&
Height = 180
Left = 4200
TabIndex = 44
Top = 4635
Width = 900
End
Begin VB.Label lblPictureInfo
BackStyle = 0 'Transparent
Caption = "Picture info"
ForeColor = &H00000000&
Height = 180
Left = 5475
TabIndex = 43
Top = 4635
Width = 855
End
Begin VB.Label lblThumbnailBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 4125
TabIndex = 42
Top = 4605
Width = 1185
End
Begin VB.Label lblExpandF
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Expand"
ForeColor = &H00000000&
Height = 180
Left = 3330
TabIndex = 41
Top = 15
Width = 555
End
Begin VB.Label lblContractC
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Contract"
ForeColor = &H00000000&
Height = 180
Left = 2280
TabIndex = 39
Top = 3960
Width = 660
End
Begin VB.Label lblExpandC
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Expand"
ForeColor = &H00000000&
Height = 180
Left = 3330
TabIndex = 38
Top = 3960
Width = 555
End
Begin VB.Label lblContractF
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Contract"
ForeColor = &H00000000&
Height = 180
Left = 2280
TabIndex = 36
Top = 15
Width = 660
End
Begin VB.Label lblTime
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "0 s."
ForeColor = &H00000000&
Height = 165
Left = 7605
TabIndex = 32
Top = 3405
Width = 900
End
Begin VB.Label lblInfo
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
ForeColor = &H00000000&
Height = 240
Left = 4125
TabIndex = 29
Top = 3390
Width = 4425
End
Begin VB.Label lblInvert
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Invert"
ForeColor = &H00000000&
Height = 180
Left = 7995
TabIndex = 28
ToolTipText = "Invert files selection"
Top = 15
Width = 465
End
Begin VB.Label lblPerc
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0%"
ForeColor = &H00000000&
Height = 165
Left = 6045
TabIndex = 26
Top = 3735
Width = 540
End
Begin VB.Shape shpPerc
BackColor = &H008080FF&
BackStyle = 1 'Opaque
BorderColor = &H008080FF&
BorderStyle = 0 'Transparent
Height = 195
Left = 4155
Top = 3750
Width = 15
End
Begin VB.Label lblFoldersBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = " Folders"
ForeColor = &H00000000&
Height = 240
Left = 45
TabIndex = 24
Top = 0
Width = 3930
End
Begin VB.Label lblPictureInfoBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 5400
TabIndex = 23
Top = 4605
Width = 3150
End
Begin VB.Label lblNameT
BackColor = &H80000005&
Caption = "Name :"
Height = 180
Left = 5490
TabIndex = 22
Top = 4950
Width = 615
End
Begin VB.Label lblSizeT
BackColor = &H80000005&
Caption = "Size :"
Height = 180
Left = 5490
TabIndex = 21
Top = 5205
Width = 615
End
Begin VB.Label lblWidthT
BackColor = &H80000005&
Caption = "Width :"
Height = 180
Left = 5490
TabIndex = 20
Top = 5460
Width = 615
End
Begin VB.Label lblHeightT
BackColor = &H80000005&
Caption = "Height :"
Height = 180
Left = 5490
TabIndex = 19
Top = 5715
Width = 615
End
Begin VB.Label lblName
BackColor = &H80000005&
Height = 180
Left = 6120
TabIndex = 18
Top = 4950
Width = 2385
End
Begin VB.Label lblSize
BackColor = &H80000005&
Height = 180
Left = 6120
TabIndex = 17
Top = 5205
Width = 2385
End
Begin VB.Label lblWidth
BackColor = &H80000005&
Height = 180
Left = 6120
TabIndex = 16
Top = 5460
Width = 2385
End
Begin VB.Label lblHeight
BackColor = &H80000005&
Height = 180
Left = 6120
TabIndex = 15
Top = 5715
Width = 2385
End
Begin VB.Shape shpBack
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Height = 240
Left = 4125
Top = 3720
Width = 4425
End
Begin VB.Shape shpPictureInfo
BackStyle = 1 'Opaque
Height = 1185
Left = 5400
Top = 4845
Width = 3150
End
Begin VB.Shape Thumb_back
BackStyle = 1 'Opaque
BorderColor = &H00000000&
Height = 1185
Left = 4125
Top = 4845
Width = 1185
End
Begin VB.Label lblPicturesBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = " Pictures"
ForeColor = &H00000000&
Height = 240
Left = 4125
TabIndex = 25
Top = 0
Width = 4425
End
Begin VB.Label lblCategoriesBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -