通过这几天学习,已经掌握了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
有更好的事件响应策略,请老手们指教 我知道我的办法没有高效利用原控件已有的属性,方法,和事件策略。