📄 frmmain.frm
字号:
BackColorFixed = 8421504
ForeColorFixed = 65280
BackColorBkg = 12632256
GridColor = 0
WordWrap = -1 'True
AllowBigSelection= 0 'False
ScrollTrack = -1 'True
FocusRect = 0
ScrollBars = 2
SelectionMode = 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.PictureBox ThumbGrid
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
ClipControls = 0 'False
DrawWidth = 2
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 2595
Left = 0
ScaleHeight = 173
ScaleMode = 3 'Pixel
ScaleWidth = 395
TabIndex = 1
Top = 0
Width = 5925
Begin VB.PictureBox crsCopy
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Left = 570
Picture = "frmMain.frx":386C
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 29
TabStop = 0 'False
Top = 1005
Visible = 0 'False
Width = 480
End
Begin VB.PictureBox crsMove
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Left = 45
Picture = "frmMain.frx":3B76
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 28
TabStop = 0 'False
Top = 1005
Visible = 0 'False
Width = 480
End
Begin VB.Image Image_Copied
Height = 225
Left = 90
Picture = "frmMain.frx":3E80
Top = 2100
Visible = 0 'False
Width = 915
End
Begin VB.Image Image_Error
Height = 225
Left = 120
Picture = "frmMain.frx":3F2D
Top = 2370
Visible = 0 'False
Width = 915
End
Begin VB.Image Image_Moved
Height = 225
Left = 90
Picture = "frmMain.frx":418F
Top = 1800
Visible = 0 'False
Width = 915
End
Begin VB.Image Image_Deleted
Height = 225
Left = 90
Picture = "frmMain.frx":4238
Top = 1560
Visible = 0 'False
Width = 915
End
End
Begin VB.VScrollBar vsbThumbGrid
Height = 6930
LargeChange = 462
Left = 5940
Max = 0
SmallChange = 66
TabIndex = 11
TabStop = 0 'False
Top = 0
Width = 225
End
Begin VB.Line Line1
X1 = 395
X2 = 395
Y1 = 461
Y2 = -2
End
End
Begin MSComctlLib.TreeView TreeView
Height = 2805
Left = 120
TabIndex = 2
Top = 1080
Width = 3930
_ExtentX = 6932
_ExtentY = 4948
_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 btnContract
Height = 180
Left = 2055
ToolTipText = "Contract all"
Top = 855
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin Thumb_DB.ucGraphicButton btnExpand
Height = 180
Left = 3090
ToolTipText = "Expand all"
Top = 855
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin VB.Shape shpCategoriesBack
BackStyle = 1 'Opaque
Height = 2805
Left = 120
Top = 1050
Width = 3930
End
Begin VB.Label lblExpand
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "展开"
ForeColor = &H00000000&
Height = 195
Left = 3405
TabIndex = 27
Top = 840
Width = 360
End
Begin VB.Label lblContract
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "收缩"
ForeColor = &H00000000&
Height = 195
Left = 2355
TabIndex = 26
Top = 840
Width = 360
End
Begin VB.Label lblPreview
BackStyle = 0 'Transparent
Caption = "Best Fit"
ForeColor = &H00000000&
Height = 165
Left = 3390
TabIndex = 25
Top = 3855
Width = 675
End
Begin VB.Shape shpPreviewBack
BackStyle = 1 'Opaque
Height = 3930
Left = 120
Top = 4065
Width = 3930
End
Begin VB.Line Line2
X1 = 676
X2 = 676
Y1 = 56
Y2 = 73
End
Begin VB.Label lblPreviewBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = "预览"
ForeColor = &H00000000&
Height = 240
Left = 120
TabIndex = 10
Top = 3840
Width = 3930
End
Begin VB.Label lblCategoriesBar
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = "目录"
ForeColor = &H00000000&
Height = 240
Left = 120
TabIndex = 3
Top = 825
Width = 3930
End
Begin VB.Label InfoCategory
Appearance = 0 'Flat
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
ForeColor = &H00000000&
Height = 240
Left = 4200
TabIndex = 6
Top = 825
Width = 6180
End
Begin VB.Menu ThumbMenu
Caption = "ThumbMenu"
Visible = 0 'False
Begin VB.Menu OpThumb
Caption = "信息"
Index = 0
End
Begin VB.Menu OpThumb
Caption = "-"
Index = 1
End
Begin VB.Menu OpThumb
Caption = "编辑图片"
Index = 2
End
Begin VB.Menu OpThumb
Caption = "复制到剪切板(缩略图)"
Index = 3
End
Begin VB.Menu OpThumb
Caption = "复制到剪切板(图)"
Index = 4
End
Begin VB.Menu OpThumb
Caption = "-"
Index = 5
End
Begin VB.Menu OpThumb
Caption = "&删除缩略图"
Index = 6
End
Begin VB.Menu OpThumb
Caption = "-"
Index = 7
End
Begin VB.Menu OpThumb
Caption = "&取消"
Index = 8
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' [Main code]:
' - Toolbar : Choose DB, Add, rename, delete category,...
' - Treeview : Category (Select, move to, copy to...)
' - Filter control : Thumbnail filters
' - ThumbGrid control : Thumbnail grid
' - FullGrid control : Full Thumbnail grid (all fields)
' - Preview control : Picture preview
' - ThumbGrid/FullGrid modes: View modes
' - Thumbnail/Preview menu : Thumbnail info, clipboard methods,...
' - Key control : Quick keys (Move on grid, full screen,...)
' - Show/Hide Preview : Preview chkBox
' - Show/Hide Comments : Comments field chkBox
' - Fast help... : 'Help' screen
' ...
' [Private subs]:
' - Fill Categories : Fill categories from DB
' - Fill thumbnail Grids : Fill ThumbGrid/FullGrid from DB
' - Get_IDCat : Get first free ID (00-99)
' - Select_Thumb : Thumbnail selection (DB)
' - Show_Picture : Show picture (Preview/Full Screen views)
' - Load_Picture : Load picture by DB path
' - Timer : Start/Stop playing
Option Explicit
Private Sub Form_Load()
'-- 获得默认的数据库[Thumbs.mdb]
Load frmDB
'-- 得到最初的文件夹树型结构
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -