注册 登录
编程论坛 VB.NET论坛

VB2010制作窗体 其主菜单的宽度和高度以字体尺寸用代码怎么调整?

donghailao 发布于 2018-04-03 11:01, 3086 次点击
初学使用学习VB2010,已经学会用代码给窗体动态添加并实例化 诸如   MainMenu 类   MenuItem类  乃至menustrip 菜单控件
我的问题是   MainMenu 类   MenuItem类还能否实现宽度,高度,字体尺码调整,用什么属性或者方法实现?

该问题可能简单,但是自己已经困惑好几天了,希望得到指点。

[此贴子已经被作者于2018-4-3 11:19编辑过]

1 回复
#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

   
       有更好的事件响应策略,请老手们指教  我知道我的办法没有高效利用原控件已有的属性,方法,和事件策略。
1