📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMain
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = " Thumb DB 1.5"
ClientHeight = 8190
ClientLeft = 45
ClientTop = 330
ClientWidth = 10485
ControlBox = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 546
ScaleMode = 3 'Pixel
ScaleWidth = 699
StartUpPosition = 2 'CenterScreen
Begin VB.Data DataCopy
Caption = "DataCopy"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 420
Left = 2415
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 9060
Visible = 0 'False
Width = 2355
End
Begin VB.Timer timerEnableTreeview
Enabled = 0 'False
Interval = 10
Left = 5850
Top = 8655
End
Begin Thumb_DB.ucGraphicButton btnPreview
Height = 180
Left = 3090
ToolTipText = "Best Fit / 100%"
Top = 3870
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin Thumb_DB.ucPicScroll Image_Preview
Height = 3900
Left = 135
TabIndex = 18
TabStop = 0 'False
Top = 4080
Width = 3900
_ExtentX = 6879
_ExtentY = 6879
Appearance = 0
BackColor = -2147483643
BackColor = -2147483643
Picture = "frmMain.frx":0442
End
Begin Thumb_DB.ucGraphicButton btnRefresh
Height = 180
Left = 4230
ToolTipText = "Refresh grid"
Top = 855
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin VB.Frame frameCommands2
BorderStyle = 0 'None
Height = 330
Left = 120
TabIndex = 14
Top = 420
Width = 10260
Begin VB.ComboBox txtFilter
Height = 300
Left = 7335
TabIndex = 23
TabStop = 0 'False
Top = 15
Width = 2385
End
Begin VB.CheckBox chkFilter
Caption = "&Filter :"
Height = 195
Left = 6540
TabIndex = 22
TabStop = 0 'False
ToolTipText = "Filter (comments field)"
Top = 60
Width = 795
End
Begin VB.ComboBox optFilter
Height = 300
ItemData = "frmMain.frx":045E
Left = 9735
List = "frmMain.frx":0468
Style = 2 'Dropdown List
TabIndex = 21
TabStop = 0 'False
ToolTipText = "Criteria (Start/In)"
Top = 15
Width = 495
End
Begin VB.CheckBox chkAll
Caption = "Search &all"
Enabled = 0 'False
Height = 195
Left = 5415
TabIndex = 20
TabStop = 0 'False
ToolTipText = "Search in all categories"
Top = 60
Width = 1155
End
Begin VB.CheckBox chkComments
Caption = "&Comments"
Height = 195
Left = 4080
MaskColor = &H80000005&
TabIndex = 19
TabStop = 0 'False
ToolTipText = "Show comments (Click bar to hide form)"
Top = 60
Width = 1110
End
Begin VB.CheckBox chkThumbs
Caption = "Load &ThumbGrid"
Height = 195
Left = 1050
TabIndex = 17
TabStop = 0 'False
ToolTipText = "Load ThumbGrid (Only thumbnails)"
Top = 60
Value = 1 'Checked
Width = 1560
End
Begin VB.CheckBox chkPreview
Caption = "&Preview"
Height = 195
Left = 75
TabIndex = 16
TabStop = 0 'False
ToolTipText = "Show preview"
Top = 60
Value = 1 'Checked
Width = 900
End
Begin VB.CheckBox chkFullGrid
Caption = "Load Full&Grid"
Height = 210
Left = 2670
TabIndex = 15
TabStop = 0 'False
ToolTipText = "Load FullGrid (Thumbnails and all fields)"
Top = 60
Width = 1305
End
End
Begin VB.CommandButton cmdFullGrid
Height = 225
Left = 10155
TabIndex = 13
TabStop = 0 'False
ToolTipText = "FullGrid/ThumbGrid [space]"
Top = 840
Width = 225
End
Begin MSComctlLib.ImageList Icons_disabled
Left = 750
Top = 3255
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 19
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0474
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":05D4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0730
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":088C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":09E8
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0B44
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0CA4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0E00
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0F5C
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":10B8
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1214
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1378
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":14D4
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1638
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1794
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":18F0
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1A54
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1BB4
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1D14
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Image_DB
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
DataField = "Thumb"
DataSource = "DataPictures"
ForeColor = &H80000008&
Height = 390
Left = 4965
ScaleHeight = 26
ScaleMode = 3 'Pixel
ScaleWidth = 27
TabIndex = 9
TabStop = 0 'False
Top = 8670
Visible = 0 'False
Width = 405
End
Begin VB.PictureBox Picture_Loaded
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 390
Left = 5385
ScaleHeight = 26
ScaleMode = 3 'Pixel
ScaleWidth = 27
TabIndex = 8
TabStop = 0 'False
Top = 8670
Visible = 0 'False
Width = 405
End
Begin VB.Timer timerShowPictures
Enabled = 0 'False
Interval = 3000
Left = 3585
Top = 3405
End
Begin VB.Data DataCategories
Caption = "DataCategories"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 420
Left = 75
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8655
Visible = 0 'False
Width = 2355
End
Begin VB.Frame frameCommands
BorderStyle = 0 'None
Height = 330
Left = 120
TabIndex = 4
Top = 15
Width = 10245
Begin MSComctlLib.Toolbar Commands
Height = 330
Left = 0
TabIndex = 5
Top = 0
Width = 5205
_ExtentX = 9181
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
AllowCustomize = 0 'False
Style = 1
ImageList = "Icons"
DisabledImageList= "Icons_disabled"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 19
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Set_DB"
Object.ToolTipText = "Choose DB"
ImageIndex = 19
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Add_Cat"
Object.ToolTipText = "Add category"
ImageIndex = 1
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Add_SubCat"
Object.ToolTipText = "Add subcategory"
ImageIndex = 2
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Ren_Cat"
Object.ToolTipText = "Rename category"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Del_Cat"
Object.ToolTipText = "Delete category"
ImageIndex = 4
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -