📄 frmmain.frm
字号:
Style = 1
Value = 1
EndProperty
BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "预览栏"
Object.ToolTipText = "预览栏"
ImageKey = "Preview"
Style = 1
Value = 1
EndProperty
BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "帮助"
Object.ToolTipText = "帮助"
ImageKey = "Help"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lvListView
Height = 4800
Left = 2055
TabIndex = 1
Top = 690
Width = 3210
_ExtentX = 5662
_ExtentY = 8467
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
PictureAlignment= 5
_Version = 393217
Icons = "ImageList2"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "名称"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Text = "大小"
Object.Width = 2471
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "类型"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "修改时间"
Object.Width = 2118
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "属性"
Object.Width = 1058
EndProperty
End
Begin VB.PictureBox picDisplay
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 1080
Left = 15
ScaleHeight = 1080
ScaleWidth = 1965
TabIndex = 11
Top = 4470
Width = 1965
Begin SHDocVwCtl.WebBrowser GifView
Height = 1050
Left = 210
TabIndex = 0
TabStop = 0 'False
Top = 15
Visible = 0 'False
Width = 165
ExtentX = 291
ExtentY = 1852
ViewMode = 1
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = -1 'True
NoClientEdge = 0 'False
AlignLeft = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
Begin VB.PictureBox picShow
AutoRedraw = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 1050
Left = -435
MousePointer = 99 'Custom
ScaleHeight = 1050
ScaleWidth = 630
TabIndex = 14
Top = 15
Visible = 0 'False
Width = 630
End
Begin AMovieCtl.ActiveMovie AudioDisplay
Height = 1050
Left = 45
TabIndex = 18
TabStop = 0 'False
Top = 15
Visible = 0 'False
Width = 405
Appearance = 0
AutoStart = 0 'False
AllowChangeDisplayMode= -1 'True
AllowHideDisplay= 0 'False
AllowHideControls= -1 'True
AutoRewind = 0 'False
Balance = 0
CurrentPosition = 0
DisplayBackColor= 192
DisplayForeColor= 65535
DisplayMode = 0
Enabled = -1 'True
EnableContextMenu= 0 'False
EnablePositionControls= -1 'True
EnableSelectionControls= 0 'False
EnableTracker = -1 'True
Filename = ""
FullScreenMode = 0 'False
MovieWindowSize = 0
PlayCount = 1
Rate = 1
SelectionStart = -1
SelectionEnd = -1
ShowControls = -1 'True
ShowDisplay = -1 'True
ShowPositionControls= -1 'True
ShowTracker = -1 'True
Volume = -60
End
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 15
Top = 180
_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":184E
Key = "Open"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1960
Key = "Save"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1A72
Key = "Back"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B84
Key = "Forward"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1C96
Key = "Clipboard"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1DA8
Key = "Copy"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1EBA
Key = "Delete"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1FCC
Key = "Properties"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":20DE
Key = "Print"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":21F0
Key = "Tools"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2302
Key = "Status"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2414
Key = "Preview"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2526
Key = "Sort Descending"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2638
Key = "Sort Ascending"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":274A
Key = "View Large Icons"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":285C
Key = "View Small Icons"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":296E
Key = "View List"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2A80
Key = "View Details"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2B92
Key = "Help"
EndProperty
EndProperty
End
Begin LookIt.vbwFolderView tvTreeView
Height = 2370
Left = 60
TabIndex = 19
Top = 495
Width = 1935
_ExtentX = 3413
_ExtentY = 4180
End
Begin VB.Image imgSplitter
Height = 4755
Left = 1860
MouseIcon = "frmMain.frx":2CA4
MousePointer = 99 'Custom
Picture = "frmMain.frx":2DF6
Stretch = -1 'True
ToolTipText = "拖动"
Top = -390
Width = 90
End
Begin VB.Image imgSplitter2
Height = 120
Left = -195
MouseIcon = "frmMain.frx":46FC
MousePointer = 99 'Custom
Picture = "frmMain.frx":484E
Stretch = -1 'True
ToolTipText = "拖动"
Top = 3075
Width = 4140
End
Begin VB.Menu MnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuFileOpen
Caption = "打开文件(&O)"
Enabled = 0 'False
Shortcut = ^O
End
Begin VB.Menu MnuFile002
Caption = "-"
End
Begin VB.Menu MnuPrinterSet
Caption = "打印设置(&S) ..."
End
Begin VB.Menu MnuPrintPicture
Caption = "打印(&P) ..."
Enabled = 0 'False
Shortcut = ^P
End
Begin VB.Menu MnuLine001
Caption = "-"
End
Begin VB.Menu mnuToolsOptions
Caption = "选项(&O)..."
End
Begin VB.Menu MnuFile001
Caption = "-"
End
Begin VB.Menu mnuFileClose
Caption = "关闭(&C)"
Shortcut = ^X
End
End
Begin VB.Menu MnuVideo
Caption = "影视(&V)"
Visible = 0 'False
Begin VB.Menu MnuVideoPlay
Caption = "播放(&P)"
Shortcut = ^{F5}
End
Begin VB.Menu MnuVideoPause
Caption = "暂停(&U)"
Shortcut = ^{F6}
End
Begin VB.Menu MnuVideoStop
Caption = "停止(&S)"
Shortcut = ^{F7}
End
Begin VB.Menu MnuVideoLine01
Caption = "-"
End
Begin VB.Menu MnuFullScreen
Caption = "全屏显示(&F)"
Checked = -1 'True
Shortcut = +^{F8}
End
Begin VB.Menu MnuVideoLine02
Caption = "-"
End
Begin VB.Menu MnuMediaPlay
Caption = "飞龙VCD播放器(M) ..."
End
End
Begin VB.Menu MnuPicture
Caption = "图片(&P)"
Visible = 0 'False
Begin VB.Menu MnuPictureView
Caption = "查看(&V)"
Shortcut = ^V
End
Begin VB.Menu mnuFileBar3
Caption = "-"
End
Begin VB.Menu MnuShowSize
Caption = "自动大小(&A)"
Index = 0
End
Begin VB.Menu MnuShowSize
Caption = "完整大小"
Index = 1
End
Begin VB.Menu MnuShowSize
Caption = "1/2 大小"
Index = 2
End
Begin VB.Menu MnuShowSize
Caption = "1/4 大小"
Index = 3
End
Begin VB.Menu MnuShowSize
Caption = "1/8 大小"
Index = 4
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu MnuSetBackGroundM
Caption = "设置为墙纸"
Begin VB.Menu MnuSetBackground
Caption = "将墙纸居中(&C) "
Index = 0
End
Begin VB.Menu MnuSetBackground
Caption = "将墙纸拉伸(&E)"
Index = 1
End
Begin VB.Menu MnuSetBackground
Caption = "将墙纸平铺(&T)"
Index = 2
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu MnuCleanBackground
Caption = "清除桌面墙纸"
Shortcut = ^E
End
End
End
Begin VB.Menu mnuMainView
Caption = "编辑(&E)"
Begin VB.Menu MnuLookFor
Caption = "查看图片(&L) ..."
Enabled = 0 'False
Shortcut = ^L
End
Begin VB.Menu mnuFileOpenAs
Caption = "打开方式(&E) ..."
Visible = 0 'False
End
Begin VB.Menu MnuOpenFileAsLine
Caption = "-"
End
Begin VB.Menu MnuDefineFace
Caption = "界面定制(&I)"
Begin VB.Menu mnuViewToolbar
Caption = "工具栏(&T) "
Checked = -1 'True
Shortcut = ^{F2}
End
Begin VB.Menu mnuViewStatusBar
Caption = "状态栏(&B) "
Checked = -1 'True
Shortcut = ^{F1}
End
Begin VB.Menu MnuViewPreview
Caption = "预览栏(&V) "
Checked = -1 'True
Shortcut = ^{F3}
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -