通过这几天学习,已经掌握了1#自己提出的问题,下面自己结贴,做一个总结:
1、vb2010
其主菜单使用菜单容器 menustrip控件,可以在设计器图形添加,也可以代码添加。它是专门容纳菜单项的一个容器。
代码添加
menustrip 控件实例:
Dim MenuStrip1 As New MenuStrip
'动态添加一个主菜单
Me.Controls.Add(MenuStrip1)
'加入到控制集合
MenuStrip1.BackColor = Color.CadetBlue
'背景颜色
MenuStrip1.AutoSize = False
'欲改变字体、字号必须屏蔽自动
MenuStrip1.Height = 28
MenuStrip1.Font = New System.Drawing.Font("宋体", 12)
'字体
字号
2、容器里放置具体的菜单项,以利于打开菜单点击,发生事件。
菜单项也有控件,叫做 ToolStripMenuItem
控件
代码添加的例子如下:
Dim myItem1,myItem2,myItem3,myItem4
As ToolStripMenuItem
'定义了控件类
myItem1 = new
ToolStripMenuItem
’生成4个实例
myItem2 = new
ToolStripMenuItem
myItem3 = new
ToolStripMenuItem
myItem4 = new
ToolStripMenuItem
myItem1.text = "文件"
myItem2.text = "帮助"
myItem3.text = "新建"
myItem4.text = "打开"
myItem3.BackColor = Color.CadetBlue
'该菜单颜色
’以下 菜单项 myItem1
作为
myItem3
myItem4
的父菜单
myItem1.DropDownItems.Add(myItem3)
myItem1.DropDownItems.Add(myItem4)
'以下 把 myItem1
myItem2 加入到
menustrip1 容器
MenuStrip1.Items.Add(myItem1)
MenuStrip1.Items.Add(myItem2)
3、代码添加菜单项的点击事件
AddHandler myItem3.Click, AddressOf
about_clic
'添加绑定Click事件!!!!!
4、事件响应
Private Sub about_clic()
'!!!!!
MsgBox("ssss")
End Sub
有更好的事件响应策略,请老手们指教
我知道我的办法没有高效利用原控件已有的属性,方法,和事件策略。