📄 testenglish.frm
字号:
VERSION 5.00
Object = "{B12F737F-57A4-4B95-B158-B857BB93337D}#3.0#0"; "CoolMenu.ocx"
Begin VB.Form Form2
Caption = "Test"
ClientHeight = 3525
ClientLeft = 4965
ClientTop = 4065
ClientWidth = 5910
LinkTopic = "Form1"
ScaleHeight = 3525
ScaleWidth = 5910
Begin VB.CommandButton Command2
Caption = "Hide/Show File Menu"
Height = 435
Left = 2400
TabIndex = 6
Top = 2640
Width = 1815
End
Begin VB.TextBox Text2
Height = 315
Left = 2475
TabIndex = 2
Text = "200"
Top = 1080
Width = 915
End
Begin VB.TextBox Text1
Height = 315
Left = 2475
TabIndex = 1
Text = "200"
Top = 660
Width = 915
End
Begin VB.CommandButton Command1
Caption = "Popup menu at X,Y"
Height = 435
Left = 2400
TabIndex = 0
Top = 2100
Width = 1815
End
Begin LXDCoolMenu.CoolMenu CoolMenu1
Left = 4560
Top = 960
_ExtentX = 873
_ExtentY = 873
K20ijKoi039cnfgaRREE_sdwedfrrgth_ssudgred= $"TestEnglish.frx":0000
MenuBarRightColor= -2147483633
LeftBarBottomColor= -2147483633
MenuBackColor = -2147483633
IconBorderStyle = 3
HilightLeft = 43
IconLeft = 21
HiLightBorderColor= 8388736
IconBorderColor = 8421376
MenuTextLeft = 45
MenuHeight = 21
BeginProperty MenuTextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty MenuSelTextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaskColor = 12632256
ImageNumber = 45
Image1 = "TestEnglish.frx":0006
Image2 = "TestEnglish.frx":0118
Image3 = "TestEnglish.frx":022A
Image4 = "TestEnglish.frx":033C
Image5 = "TestEnglish.frx":044E
Image6 = "TestEnglish.frx":0560
Image7 = "TestEnglish.frx":0672
Image8 = "TestEnglish.frx":0784
Image9 = "TestEnglish.frx":0896
Image10 = "TestEnglish.frx":09A8
Image11 = "TestEnglish.frx":0ABA
Image12 = "TestEnglish.frx":0BCC
Image13 = "TestEnglish.frx":0CDE
Image14 = "TestEnglish.frx":0DF0
Image15 = "TestEnglish.frx":0F02
Image16 = "TestEnglish.frx":1014
Image17 = "TestEnglish.frx":1126
Image18 = "TestEnglish.frx":1238
Image19 = "TestEnglish.frx":134A
Image20 = "TestEnglish.frx":145C
Image21 = "TestEnglish.frx":156E
Image22 = "TestEnglish.frx":1680
Image23 = "TestEnglish.frx":1792
Image24 = "TestEnglish.frx":18A4
Image25 = "TestEnglish.frx":19B6
Image26 = "TestEnglish.frx":1AC8
Image27 = "TestEnglish.frx":1BDA
Image28 = "TestEnglish.frx":1CEC
Image29 = "TestEnglish.frx":1DFE
Image30 = "TestEnglish.frx":1F10
Image31 = "TestEnglish.frx":2022
Image32 = "TestEnglish.frx":2134
Image33 = "TestEnglish.frx":2246
Image34 = "TestEnglish.frx":2358
Image35 = "TestEnglish.frx":246A
Image36 = "TestEnglish.frx":257C
Image37 = "TestEnglish.frx":268E
Image38 = "TestEnglish.frx":27A0
Image39 = "TestEnglish.frx":28B2
Image40 = "TestEnglish.frx":29C4
Image41 = "TestEnglish.frx":2AD6
Image42 = "TestEnglish.frx":2BE8
Image43 = "TestEnglish.frx":2CFA
Image44 = "TestEnglish.frx":2E0C
Image45 = "TestEnglish.frx":2F1E
MenuItem1 = " &File 0 mnuFile 1 File Opreate 1 0"
MenuItem2 = ".... New From... 0 mnuCf 1 New From 1 0"
MenuItem3 = ".... &New 28 mnuNew 1 1 0"
MenuItem4 = "........ Test1 0 mnuChecked 1 Test1 1 1"
MenuItem5 = "........ Test2 0 1 Test2 1 0"
MenuItem6 = "........ Test3 0 1 Test3 1 0"
MenuItem7 = "........ Test4 0 1 Test4 1 0"
MenuItem8 = ".... &Open 29 mnuOpen 1 Open a file 1 0"
MenuItem9 = ".... - 0 1 1 0"
MenuItem10 = ".... &Save CTRL + S 36 mnuSave 1 Save 1 0"
MenuItem11 = ".... Save &as... 0 mnuSaveAs 1 Save as 1 0"
MenuItem12 = ".... - 0 1 1 0"
MenuItem13 = ".... E&xit CTRL + Q 0 mnuExit 1 1 0"
MenuItem14 = " &Edit 0 mnuEdit 1 1 0"
MenuItem15 = ".... C&ut CTRL + X 9 mnuCut 1 1 0"
MenuItem16 = ".... &Copy CTRL + C 7 mnuCopy 1 1 0"
MenuItem17 = ".... &Paste CTRL + V 30 mnuPaste 1 1 0"
MenuItem18 = ".... - 0 1 1 0"
MenuItem19 = ".... Select All CTRL + A 0 mnuSelectAll 1 1 0"
MenuItem20 = " &Options 0 mnuOption 1 1 0"
MenuItem21 = ".... &Color Set 32 mnuColor 1 1 0"
MenuItem22 = "........ Color1 0 mnuColor1 1 1 1"
MenuItem23 = "........ Color2 0 mnuColor2 1 1 0"
MenuItem24 = "........ Color3 0 mnuColor3 1 1 0"
MenuItem25 = "........ Color4 0 mnuColor4 1 1 0"
MenuItem26 = ".... Style1 0 mnuStyle1 1 1 0"
MenuItem27 = ".... Style2 0 mnuStyle2 1 1 0"
MenuItem28 = ".... XPStyle1 27 mnuStyle6 1 1 1"
MenuItem29 = ".... XPStyle2 0 mnuStyle7 1 1 0"
MenuItem30 = ".... Upper Style 0 mnuStyle3 1 1 0"
MenuItem31 = ".... Down Style 0 mnuStyle4 1 1 0"
MenuItem32 = ".... Style3 0 mnuStyle5 1 1 0"
MenuItem33 = ".... Style4 0 mnuStyle8 1 1 0"
MenuItem34 = " &About 0 mnuAbout 1 1 0"
MenuCount = 35
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 1 'Fixed Single
Caption = "Info"
ForeColor = &H80000008&
Height = 375
Left = 0
TabIndex = 5
Top = 3240
Width = 9435
End
Begin VB.Label Label1
Caption = "Y:"
Height = 315
Index = 1
Left = 2235
TabIndex = 4
Top = 1080
Width = 495
End
Begin VB.Label Label1
Caption = "X:"
Height = 315
Index = 0
Left = 2235
TabIndex = 3
Top = 720
Width = 495
End
Begin VB.Menu dfg
Caption = "Don't Delete This Menu"
Enabled = 0 'False
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const STYLE_NUM = 8
Const COLOR_NUM = 4
Private Sub Command1_Click()
CoolMenu1.PopupMenuByName "mnuOption", Val(Text1), Val(Text2)
End Sub
Private Sub Command2_Click()
CoolMenu1.MenuBarItems("mnuFile").Visible = Not CoolMenu1.MenuBarItems("mnuFile").Visible
End Sub
Private Sub CoolMenu1_MenuClick(MenuItem As LXDCoolMenu.CoolMenuItem)
Dim i As Long
With CoolMenu1
Select Case MenuItem.ItemName
Case "mnuAbout"
.ShowAboutBox
Case "mnuExit"
Unload Me
Case "mnuCut", "mnuCopy"
.MenuBarItems("mnuPaste").Enabled = True
Case "mnuPaste"
.MenuBarItems("mnuPaste").Enabled = False
Case "mnuColor1"
.MenuBarLeftColor = vbHighlight
.MenuBarRightColor = vbMenuBar
For i = 1 To COLOR_NUM
.MenuBarItems("mnuColor" & i).Checked = False
Next i
MenuItem.Checked = True
Case "mnuColor2"
.MenuBarLeftColor = vbRed
.MenuBarRightColor = vbMenuBar
For i = 1 To COLOR_NUM
.MenuBarItems("mnuColor" & i).Checked = False
Next i
MenuItem.Checked = True
Case "mnuColor3"
.MenuBarLeftColor = vbRed
.MenuBarRightColor = vbYellow
For i = 1 To COLOR_NUM
.MenuBarItems("mnuColor" & i).Checked = False
Next i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -