📄 form1.ebf
字号:
VERSION 5.00
Object = "{F7DEA2C9-BA8F-446E-A292-B4840F3BD661}#1.0#0"; "mscemenubar.dll"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H00FFC0FF&
Caption = "Form1"
ClientHeight = 4410
ClientLeft = 60
ClientTop = 840
ClientWidth = 3255
ForeColor = &H80000008&
ScaleHeight = 4410
ScaleWidth = 3255
ShowOK = -1 'True
Begin MenuBarLib.MenuBar MenuBar
Left = 1080
Top = 3720
_cx = 2778
_cy = 1085
Enabled = -1 'True
NewButton = 0 'False
End
Begin VBCE.CommandButton Command3
Height = 375
Left = 1920
TabIndex = 6
Top = 840
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "Clear"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command2
Height = 375
Left = 960
TabIndex = 5
Top = 840
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "AddMenu"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command1
Height = 375
Left = 0
TabIndex = 4
Top = 840
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "AddButton"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.TextBox Text2
Height = 375
Left = 480
TabIndex = 3
Top = 360
Width = 2295
_cx = 4048
_cy = 661
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label2
Height = 255
Left = 0
TabIndex = 2
Top = 360
Width = 615
_cx = 1085
_cy = 450
AutoSize = 0 'False
BackColor = 16761024
BackStyle = 1
BorderStyle = 0
Caption = "Count"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox Text1
Height = 375
Left = 480
TabIndex = 1
Top = 0
Width = 2295
_cx = 4048
_cy = 661
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label1
Height = 255
Left = 0
TabIndex = 0
Top = 30
Width = 495
_cx = 873
_cy = 450
AutoSize = 0 'False
BackColor = 16761024
BackStyle = 1
BorderStyle = 0
Caption = "Item"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public systemset As MenuBarLib.MenuBarMenu
Public datamanager As MenuBarLib.MenuBarMenu
Public dataliulan As MenuBarLib.MenuBarMenu
Public recordmanager As MenuBarLib.MenuBarMenu
Public tongxin As MenuBarLib.MenuBarMenu
Public fenxi As MenuBarLib.MenuBarMenu
Public datasearch As MenuBarLib.MenuBarMenu
Public standard As MenuBarLib.MenuBarMenu
Public bangzu As MenuBarLib.MenuBarMenu
Public mnu_linwai As MenuBarLib.MenuBarMenu
Public mnu_abc As MenuBarLib.MenuBarButton
Private Sub Command1_Click()
MenuBar.Controls.AddButton ("abc")
Text1.Text = MenuBar.Controls.Count
MenuBar.Controls.Item(CInt(Text1.Text)).Caption = "abc"
If MenuBar.Controls.Count > 0 Then
Text2.Text = MenuBar.Controls.Item(2).Index
Else
Text2.Text = 0
End If
End Sub
Private Sub Command2_Click()
Set mnu_linwai = MenuBar.Controls.AddMenu("另外")
mnu_linwai.Items.Add 1, "linwai1", "linwai_1"
mnu_linwai.Items.Add 2, "linwai2", "linwai_2"
mnu_linwai.Items.Add 3, "linwai3", "linwai_3"
mnu_linwai.Items.Add 4, "linwai4", "linwai_4"
mnu_linwai.Items.Add 5, "linwai5", "linwai_5"
mnu_linwai.Items.Add 6, "linwai6", "linwai_6"
Text1.Text = MenuBar.Controls.Count
If MenuBar.Controls.Count > 0 Then
Text2.Text = MenuBar.Controls.Item(2).Index
Else
Text2.Text = 0
End If
End Sub
Private Sub Command3_Click()
MenuBar.Controls.Clear
Text1.Text = MenuBar.Controls.Count
If MenuBar.Controls.Count > 0 Then
Text2.Text = MenuBar.Controls.Item(2).Index
Else
Text2.Text = 0
End If
End Sub
Private Sub Form_Load()
'系统设置
Set systemset = MenuBar.Controls.AddMenu("设置")
systemset.Items.Add 1, "userlogin", "用户登陆"
systemset.Items.Add 2, "longinusermanager", "用户管理"
systemset.Items.Add 3, "exitwindow", "退出"
' 数据管理
Set datamanager = MenuBar.Controls.AddMenu("系统")
datamanager.Items.Add 1, "createdb", "创建数据库"
datamanager.Items.Add 2, "createtable", "创建表"
datamanager.Items.Add 3, "createindex", "创建索引"
datamanager.Items.Add 4, "addfield", "增加字段"
datamanager.Items.Add 5, "altertablename", "修改表名"
datamanager.Items.Add 6, "showfield", "查看字段"
datamanager.Items.Add 7, "delfield", "删除字段 "
datamanager.Items.Add 8, "delindex", "删除索引"
datamanager.Items.Add 9, "deltable", "删除表格"
datamanager.Items.Add 10, "deldb", "删除数据库"
datamanager.Items.Add 11, "cakanshujukubiao", "查看数据库表"
Set dataliulan = MenuBar.Controls.AddMenu("浏览")
dataliulan.Items.Add 1, "userliulan", "用户记录浏览"
dataliulan.Items.Add 2, "machineliulan", "设备记录浏览"
dataliulan.Items.Add 3, "positionliulan", "监控部位浏览"
dataliulan.Items.Add 4, "sampleliulan", "样品记录浏览"
dataliulan.Items.Add 5, "pqpliulan", "PQP记录浏览"
dataliulan.Items.Add 6, "dcaliulan", "DCA记录浏览"
dataliulan.Items.Add 7, "hwgpliulan", "红外光谱记录浏览"
dataliulan.Items.Add 8, "zdtpliulan", "直读铁谱记录浏览"
dataliulan.Items.Add 9, "lhzbliulan", "理化指标记录浏览"
dataliulan.Items.Add 10, "yzgpliulan", "原子光谱记录浏览"
Set recordmanager = MenuBar.Controls.AddMenu("管理")
recordmanager.Items.Add 1, "usermanager", "用户记录管理"
recordmanager.Items.Add 2, "machinemanager", "设备记录管理"
recordmanager.Items.Add 3, "positionmanager", "监控部位管理"
recordmanager.Items.Add 4, "samplemanager", "样品记录管理"
recordmanager.Items.Add 5, "pqpmanager", "PQP记录管理"
recordmanager.Items.Add 6, "dcamanager", "DCA记录管理"
recordmanager.Items.Add 7, "hwgpmanager", "红外光谱记录管理"
recordmanager.Items.Add 8, "zdtpmanager", "直读铁谱记录管理"
recordmanager.Items.Add 9, "lhzbmanager", "理化指标记录管理"
recordmanager.Items.Add 10, "yzgpmanager", "原子光谱记录管理"
Set tongxin = MenuBar.Controls.AddMenu("通信")
tongxin.Items.Add 1, "serial", "串口通信"
tongxin.Items.Add 2, "socket", "网络通信"
tongxin.Items.Add 3, "irda_client", "红外口通信(客户端)"
tongxin.Items.Add 4, "PQP", "PQP通信"
tongxin.Items.Add 5, "HWGPCOM", "红外光谱通信"
tongxin.Items.Add 6, "DCA", "DCA通信"
tongxin.Items.Add 7, "YZGPCOM", "原子光谱通信"
tongxin.Items.Add 8, "ZDTPCOM", "直读铁谱通信"
tongxin.Items.Add 9, "LHZBCOM", "理化指标通信"
tongxin.Items.Add 10, "quanzanyi", "全站仪通信"
tongxin.Items.Add 11, "XMLwin", "XML数据读取"
tongxin.Items.Add 12, "ConectDeskTop", "与台式机通信"
tongxin.Items.Add 13, "irda_server", "红外口通信(服务器端)"
Text1.Text = MenuBar.Controls.Count
Text2.Text = MenuBar.Controls.Item(2).Index
End Sub
Private Sub Form_OKClick()
App.End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -