#2
donghailao2018-04-30 17:06
通过这几天学习,已经掌握了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 有更好的事件响应策略,请老手们指教 我知道我的办法没有高效利用原控件已有的属性,方法,和事件策略。 |
我的问题是 MainMenu 类 MenuItem类还能否实现宽度,高度,字体尺码调整,用什么属性或者方法实现?
该问题可能简单,但是自己已经困惑好几天了,希望得到指点。
[此贴子已经被作者于2018-4-3 11:19编辑过]