📄 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
BorderStyle = 1 'Fixed Single
Caption = "电子相片管理系统"
ClientHeight = 8190
ClientLeft = 45
ClientTop = 330
ClientWidth = 10485
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 546
ScaleMode = 3 'Pixel
ScaleWidth = 699
StartUpPosition = 2 '屏幕中心
Begin VB.Data DataCopy
Caption = "DataCopy"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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
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
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 120
TabIndex = 14
Top = 420
Width = 10260
Begin VB.ComboBox txtFilter
Height = 315
Left = 7335
TabIndex = 23
TabStop = 0 'False
Top = 0
Width = 2175
End
Begin VB.CheckBox chkFilter
Caption = "过滤:"
Height = 195
Left = 6540
TabIndex = 22
TabStop = 0 'False
ToolTipText = "Filter (comments field)"
Top = 60
Width = 795
End
Begin VB.ComboBox optFilter
Height = 315
ItemData = "frmMain.frx":045E
Left = 9525
List = "frmMain.frx":0468
Style = 2 'Dropdown List
TabIndex = 21
TabStop = 0 'False
ToolTipText = "Criteria (Start/In)"
Top = 15
Width = 705
End
Begin VB.CheckBox chkAll
Caption = "搜索全部"
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 = "说明"
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 = "载入图片"
Height = 195
Left = 1050
TabIndex = 17
TabStop = 0 'False
ToolTipText = "Load ThumbGrid (Only thumbnails)"
Top = 60
Value = 1 'Checked
Width = 1035
End
Begin VB.CheckBox chkPreview
Caption = "预览"
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 = "查看详细信息"
Height = 210
Left = 2160
TabIndex = 15
TabStop = 0 'False
ToolTipText = "Load FullGrid (Thumbnails and all fields)"
Top = 60
Width = 1665
End
End
Begin VB.CommandButton cmdFullGrid
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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"
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -