📄 test.frm
字号:
VERSION 5.00
Object = "{B12F737F-57A4-4B95-B158-B857BB93337D}#3.0#0"; "CoolMenu.ocx"
Begin VB.Form frmmain
Caption = "控件测试"
ClientHeight = 3525
ClientLeft = 1005
ClientTop = 2640
ClientWidth = 5910
LinkTopic = "Form1"
ScaleHeight = 3525
ScaleWidth = 5910
Begin VB.CommandButton Command2
Caption = "隐藏/显示文件菜单"
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 = "指定位置弹出菜单"
Height = 435
Left = 2400
TabIndex = 0
Top = 2100
Width = 1815
End
Begin LXDCoolMenu.CoolMenu CoolMenu1
Left = 480
Top = 360
_ExtentX = 873
_ExtentY = 873
K20ijKoi039cnfgaRREE_sdwedfrrgth_ssudgred= $"Test.frx":0000
LeftBarBottomColor= -2147483633
IconBorderColor = 8421376
MenuHeight = 21
BeginProperty MenuTextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty MenuSelTextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaskColor = 12632256
ImageNumber = 45
Image1 = "Test.frx":0006
Image2 = "Test.frx":0118
Image3 = "Test.frx":022A
Image4 = "Test.frx":033C
Image5 = "Test.frx":044E
Image6 = "Test.frx":0560
Image7 = "Test.frx":0672
Image8 = "Test.frx":0784
Image9 = "Test.frx":0896
Image10 = "Test.frx":09A8
Image11 = "Test.frx":0ABA
Image12 = "Test.frx":0BCC
Image13 = "Test.frx":0CDE
Image14 = "Test.frx":0DF0
Image15 = "Test.frx":0F02
Image16 = "Test.frx":1014
Image17 = "Test.frx":1126
Image18 = "Test.frx":1238
Image19 = "Test.frx":134A
Image20 = "Test.frx":145C
Image21 = "Test.frx":156E
Image22 = "Test.frx":1680
Image23 = "Test.frx":1792
Image24 = "Test.frx":18A4
Image25 = "Test.frx":19B6
Image26 = "Test.frx":1AC8
Image27 = "Test.frx":1BDA
Image28 = "Test.frx":1CEC
Image29 = "Test.frx":1DFE
Image30 = "Test.frx":1F10
Image31 = "Test.frx":2022
Image32 = "Test.frx":2134
Image33 = "Test.frx":2246
Image34 = "Test.frx":2358
Image35 = "Test.frx":246A
Image36 = "Test.frx":257C
Image37 = "Test.frx":268E
Image38 = "Test.frx":27A0
Image39 = "Test.frx":28B2
Image40 = "Test.frx":29C4
Image41 = "Test.frx":2AD6
Image42 = "Test.frx":2BE8
Image43 = "Test.frx":2CFA
Image44 = "Test.frx":2E0C
Image45 = "Test.frx":2F1E
MenuItem1 = " 文件(&F) 0 mnuFile 1 文件相关的操作 1 0"
MenuItem2 = ".... 由模板新建... 0 mnuCf 1 通过模板创建文件 1 0"
MenuItem3 = ".... 新建项目(&N) 28 mnuNew 1 新建一个文件 1 0"
MenuItem4 = "........ 夏日情怀 0 mnuChecked 1 1 1"
MenuItem5 = "........ 春绿 0 1 1 0"
MenuItem6 = "........ 白雪 0 1 1 0"
MenuItem7 = "........ 红枫叶 0 1 1 0"
MenuItem8 = ".... 打开已有的项目(&O) 29 mnuOpen 1 打开一个文件 1 0"
MenuItem9 = ".... - 0 1 1 0"
MenuItem10 = ".... 保存项目(&S) CTRL + S 36 mnuSave 1 保存文件 1 0"
MenuItem11 = ".... 项目另存为(&A) 0 mnuSaveAs 1 换名存储文件 1 0"
MenuItem12 = ".... - 0 1 1 0"
MenuItem13 = ".... 打印机设置... 0 1 1 0"
MenuItem14 = ".... 打印(&P) CTRL + P 31 mnuPrint 1 打印文档 1 0"
MenuItem15 = ".... - 0 1 1 0"
MenuItem16 = ".... 退出(&X) CTRL + Q 0 mnuExit 1 1 0"
MenuItem17 = " 编辑(&E) 0 mnuEdit 1 1 0"
MenuItem18 = ".... 剪切(&U) CTRL + X 9 mnuCut 1 1 0"
MenuItem19 = ".... 复制(&C) CTRL + C 7 mnuCopy 1 1 0"
MenuItem20 = ".... 粘贴(&P) CTRL + V 30 mnuPaste 1 1 0"
MenuItem21 = ".... - 0 1 1 0"
MenuItem22 = ".... 全选 CTRL + A 0 mnuSelectAll 1 1 0"
MenuItem23 = " 设置(&O) 0 mnuOption 1 1 0"
MenuItem24 = ".... 颜色(&C) 32 mnuColor 1 1 0"
MenuItem25 = "........ 颜色方案一 0 mnuColor1 1 1 1"
MenuItem26 = "........ 颜色方案二 0 mnuColor2 1 1 0"
MenuItem27 = "........ 颜色方案三 0 mnuColor3 1 1 0"
MenuItem28 = "........ 标准颜色 0 mnuColor4 1 1 0"
MenuItem29 = ".... 标准菜单一 0 mnuStyle1 1 1 0"
MenuItem30 = ".... 标准菜单二 0 mnuStyle2 1 1 0"
MenuItem31 = ".... XP风格样式一 27 mnuStyle6 1 1 1"
MenuItem32 = ".... XP风格样式二 0 mnuStyle7 1 1 0"
MenuItem33 = ".... 浮起式菜单 0 mnuStyle3 1 1 0"
MenuItem34 = ".... 沉下菜单条 0 mnuStyle4 1 1 0"
MenuItem35 = ".... 发光效果 0 mnuStyle5 1 1 0"
MenuItem36 = ".... 虚线效果 0 mnuStyle8 1 1 0"
MenuItem37 = " 关于(&A) 0 mnuAbout 1 1 0"
MenuCount = 38
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "提示信息显示处"
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 = "请不要删除本菜单条,否则您的程序会出现闪烁现象"
Enabled = 0 'False
End
End
Attribute VB_Name = "frmmain"
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
MenuItem.Checked = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -