📄 frmmain.frm
字号:
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 13
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6627F
Key = "New"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66391
Key = "Open"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":664A3
Key = "Save"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":665B5
Key = "Print"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":666C7
Key = "Cut"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":667D9
Key = "Copy"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":668EB
Key = "Paste"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":669FD
Key = "Bold"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66B0F
Key = "Italic"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66C21
Key = "Underline"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66D33
Key = "Align Left"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66E45
Key = "Center"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":66F57
Key = "Align Right"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbToolBar
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 41
Top = 0
Visible = 0 'False
Width = 19110
_ExtentX = 33708
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "imlToolbarIcons"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "New"
Object.ToolTipText = "1031"
ImageKey = "New"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Open"
Object.ToolTipText = "1032"
ImageKey = "Open"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Save"
Object.ToolTipText = "1033"
ImageKey = "Save"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Print"
Object.ToolTipText = "1034"
ImageKey = "Print"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Cut"
Object.ToolTipText = "1035"
ImageKey = "Cut"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Copy"
Object.ToolTipText = "1036"
ImageKey = "Copy"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Paste"
Object.ToolTipText = "1037"
ImageKey = "Paste"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Bold"
Object.ToolTipText = "1038"
ImageKey = "Bold"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Italic"
Object.ToolTipText = "1039"
ImageKey = "Italic"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Underline"
Object.ToolTipText = "1040"
ImageKey = "Underline"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Align Left"
Object.ToolTipText = "1041"
ImageKey = "Align Left"
Style = 2
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Center"
Object.ToolTipText = "1042"
ImageKey = "Center"
Style = 2
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Align Right"
Object.ToolTipText = "1043"
ImageKey = "Align Right"
Style = 2
EndProperty
EndProperty
Enabled = 0 'False
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 2175
Left = 16200
TabIndex = 46
Top = 1200
Width = 2175
_cx = 3836
_cy = 3836
FlashVars = ""
Movie = "F:\大同试验台\Pics\clock58.swf"
Src = "F:\大同试验台\Pics\clock58.swf"
WMode = "Transparent"
Play = 0 'False
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = 0 'False
Base = ""
AllowScriptAccess= ""
Scale = "ExactFit"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "sdadsfasdfasdfasdfas"
Height = 240
Left = 7920
TabIndex = 40
Top = 1680
Width = 2400
End
Begin VB.Image Image3
BorderStyle = 1 'Fixed Single
Height = 435
Left = 3120
Picture = "frmMain.frx":67069
Top = 1560
Width = 5925
End
Begin VB.Image Image2
Height = 8310
Left = 12360
Picture = "frmMain.frx":67CE8
Top = 1320
Width = 4365
End
Begin VB.Image Image1
Height = 1245
Left = 3120
Picture = "frmMain.frx":69878
Top = 360
Width = 8310
End
Begin VB.Menu mnuFile
Caption = "1000"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuFileNew
Caption = "1001"
Shortcut = ^N
End
Begin VB.Menu mnuFileOpen
Caption = "1002"
End
Begin VB.Menu mnuFileClose
Caption = "1003"
End
Begin VB.Menu mnuFileBar0
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "1004"
End
Begin VB.Menu mnuFileSaveAs
Caption = "1005"
End
Begin VB.Menu mnuFileSaveAll
Caption = "1006"
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileProperties
Caption = "1007"
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFilePageSetup
Caption = "1008"
End
Begin VB.Menu mnuFilePrintPreview
Caption = "1009"
End
Begin VB.Menu mnuFilePrint
Caption = "1010"
End
Begin VB.Menu mnuFileBar3
Caption = "-"
End
Begin VB.Menu mnuFileSend
Caption = "1011"
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileBar5
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileExit
Caption = "1012"
End
End
Begin VB.Menu mnuEdit
Caption = "1013"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuEditUndo
Caption = "1014"
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "1015"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "1016"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "1017"
Shortcut = ^V
End
Begin VB.Menu mnuEditPasteSpecial
Caption = "1018"
End
End
Begin VB.Menu mnuView
Caption = "1019"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuViewToolbar
Caption = "1020"
Checked = -1 'True
End
Begin VB.Menu mnuViewStatusBar
Caption = "1021"
Checked = -1 'True
End
Begin VB.Menu mnuViewBar0
Caption = "-"
End
Begin VB.Menu mnuViewRefresh
Caption = "1022"
End
Begin VB.Menu mnuViewOptions
Caption = "1023"
End
Begin VB.Menu mnuViewWebBrowser
Caption = "1024"
End
End
Begin VB.Menu mnuTools
Caption = "1025"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuToolsOptions
Caption = "1026"
End
End
Begin VB.Menu mnuHelp
Caption = "1027"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuHelpContents
Caption = "1028"
End
Begin VB.Menu mnuHelpSearchForHelpOn
Caption = "1029"
End
Begin VB.Menu mnuHelpBar0
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "1030"
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -