通常都是设置一个字母,也就是Alt+某个字母。如图
成都创新互联是一家专业提供包头企业网站建设,专注与成都网站设计、做网站、H5响应式网站、小程序制作等业务。10年已为包头众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
菜单字母
在窗体出现的情况下,由VB编程环境的菜单中选工具,在其下拉菜单下选菜单编辑器,然后按如下说明操作:
“菜单编辑器”对话框
使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。
对话框选项
“标题”
使用该选项可以输入菜单名或命令名,这些名字出现在菜单条或菜单之中。
如果想在菜单中建立分隔符条,则应在Caption 框中键入一个连字符 (-)。
为了能够通过键盘访问菜单项,可在一个字母前插入 符号。在运行时,该字母带有下划线( 符号是不可见的),按 ALT 键和该字母就可访问菜单或命令。如果要在菜单中显示 符号,则应在标题中连续输入两个 符号。
“名称”
允许为菜单项输入控件名。控件名是标识符,仅用于访问代码中的菜单项;它不会出现在菜单中。
“索引”
可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。
“快捷键”
允许为每个命令选定快捷键。
“帮助上下文 ID”
允许为 context ID 指定唯一数值。在 HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。
“协调位置”
允许选择菜单的 NegotiatePosition 属性。该属性决定是否及如何在容器窗体中显示菜单。
“复选”
允许在菜单项的左边设置复选标记。通常用它来指出切换选项的开关状态。
“激活的”
由此选项可决定是否让菜单项对事件做出响应,而如果希望该项失效并模糊显示出来,则也可清除事件。
“可视的”
将菜单项显示在菜单上。
“显示窗口列表”
在 MDI 应用程序中,确定菜单控件是否包含一个打开的 MDI 子窗体列表。
“右箭头”
每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。
“左箭头”
每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。
“上箭头”
每次单击都把选定的菜单项在同级菜单内向上移动一个位置。
“下箭头”
“下箭头”
每次单击都把选定的菜单项在同级菜单内向下移动一个位置。
“菜单列表”
该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。
“下一个”
将选定移动到下一行。
“插入”
在列表框的当前选定行上方插入一行。
“删除”
删除当前选定行。
“确定”
关闭菜单编辑器,并对选定的最后一个窗体进行修改。菜单可以在设计时使用,但在设计时可以通过选定一个菜单,来打开菜单单击事件的“代码”窗口,而不是执行事件代码。
“取消”
关闭菜单编辑器,取消所有修改。
常见事件有鼠的标单击、双击、移动;
有键盘的键按下、键松开、按键;
有窗体加载、窗体卸载等等。
用格式转换器(格式工厂)把ico格式转换成其他可识别的格式
然后在添加
下一步(你的意思是要在界面设计中 往窗体上添加工具栏吗?)
工具箱中 ---- 菜单和工具栏 ----- MenuStrip
窗体上方出现 '请再次键入'(vs2010中) 的框框 点一下就可以放"打开"什么的了
右面属性中找到Image属性.可以更改你自己的图片了.
知道了吗?
还有疑问你就追问 ````赫赫
VB
的菜单栏不是和
text
或者
label
一样(在左边的控件区域点击就可以)。
而是点击工具栏上面“保存”按钮右边的一个长的像菜单的按钮,或者从“工具”菜单中,选取“菜单编辑器”;或者用快捷键
ctrl+e
都可以调出
而后:
要在菜单编辑器中创建菜单控件,请按照以下步骤执行:
在“标题”文本框中,为第一个菜单标题键入希望在菜单栏上显示的文本。如果希望某一字符成为该菜单项的访问键,也可以在该字符前面加上一个
()
字符。在菜单中,这一字符会自动加上一条下划线。
菜单标题文本显示在菜单控件列表框中。
在“名称”文本框中,键入将用来在代码中引用该菜单控件的名字。请参阅本章后面“菜单标题与命名准则”。
单击向左或向右箭头按钮,可以改变该控件的缩进级。
如果需要的话,还可以设置控件的其他属性。这一工作可以在菜单编辑器中做,也可以以后在“属性”窗口中做。
选取“下一个”就可以再建一个菜单控件。
-
或者
-
单击“插入”可以在现有的控件之间增加一个菜单控件。
也可以单击向上与向下的箭头按钮,在现有菜单控件之中移动控件。
如果窗体所有的菜单控件都已创建,选取“确定”可关闭菜单编辑器。
创建的菜单标题将显示在窗体上。在设计时,单击一个菜单标题可下拉其相应的菜单项。
动态生成的控件:
Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim myPicture = New System.Windows.Forms.PictureBox()
Me.Panel3.Controls.Add(myPicture)
myPicture.Size = New System.Drawing.Size(115, 160)
myPicture.TabStop = False
myPicture.Name = "p"
myPicture.Cursor = Cursors.Hand
AddHandler myPicture.Click, AddressOf mypic_Click '添加事件
End Sub
处理事件的过程:
Private Sub mypic_Click() 'ByVal id As String
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款