📄 011501.htm
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">基本控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">菜单和工具栏</td>
</tr>
<tr>
<td width="100%"><br>
菜单编辑器：在工具条上单击"菜单编辑器"图标，或在"工具"菜单选"菜单编辑器"，出现对话框。<br>
其中，"标题"--用于屏幕显示；<br>
"名称"--用于代码；必须加前缀mnu（用于标识是"菜单对象"）；还可加后缀item,（用于标识是"菜单项"而非"菜单标题（象"文件""编辑"……样的）"）<br>
★ 添加菜单访问键：将&符号放置在菜单项标题中作为访问键使用的字母前面。就可以用Alt+访问键来运行该菜单项事件了。<br>
★ 如果一个菜单项用于复选式菜单（即菜单项为"开"状态时前加个"∨"），初始赋值方法是：在菜单编辑器中单击"复选"复选框，或在代码中把菜单项的checked属性设置为true.<br>
★ 给一个窗体添加或修改菜单时，必须首先单击该窗体以选择这个窗体。<br>
★ 设置菜单项无效：在菜单编辑器中，清除该菜单项的"有效"复选 框中的选中标志。或者在代码中设置它的 Enabled 属性为false. <br>
★ 菜单数组：菜单数组的作用主要运用来运行程序时动态添加菜单项。<br>
我们前面介绍的设计菜单都是在编写程序时进行，能否在程序运行中自动添加菜单呢？可以，但先要做一个"菜单项样本"，在运行时新添的菜单都照搬这个样本的属性，事件过程等。这个样本连同新添的菜单都包含在一个菜单数组内。<br>
1，在菜单编辑器中设一个菜单，如果要建立菜单数组，只要在它的"索引"内先写上个"0"即可，表示该菜单数组以这个菜单为样本，其他元素在创建时，除"索引"与之不同外，什么都与之相同（可以在此基础上改变），目前数组内只含一个菜单元素。<br>
2，在代码中某处用"load 菜单数组名（新下标）"语句，运行后便可新添加一个菜单数组元素了（可在代码中接着对其相关属性或事件等进行改变）。这个"新下标"就是索引值（此前还不存在的值，说明这是个新添的菜单）， <br>
如下例：<br>
Dim aamnu As Integer '记录运行时添加菜单的个数<br>
<br>
Private Sub Form_Load()<br>
aamnu = 0<br>
End Sub<br>
<br>
Private Sub mnuopen_Click()<br>
aamnu = aamnu + 1<br>
Load mnufile1234(aamnu) '运行中动态地增加菜单<br>
mnufile1234(aamnu).Visible = True<br>
mnufile1234(aamnu).Caption = "文件" & aamnu<br>
CommonDialog1.ShowOpen<br>
Open CommonDialog1.FileName For Input As #1<br>
Do While Not EOF(1)<br>
Line Input #1, lxn<br>
ldd = ldd & lxn & Chr(13) + Chr(10)<br>
Loop<br>
Text1.Text = ldd<br>
Close #1<br>
End Sub<br>
★ 复选式菜单：任一菜单项都可作为复选式菜单，一般我们见到的菜单，其标题前不会有一个钩选中符号；如果在代码中将菜单项checked属性设为true,就会出现钩了。一般我们在复选式菜单的click事件中根据它的checked是否为真或假来分别处理相应过程。而且还有一点，在它的click事件开头加上"菜单名.checked=NOT 菜单名.checked"，能够随时切换"选中/未选中"状态，就象复选框一样。另外，如果在菜单项初始化时就具有选中标志，可在菜单编辑器中选中"复选"复选框。举一个例子：<br>
Private Sub mnuplay_Click()<br>
mnuplay.Checked = Not mnuplay.Checked<br>
If mnuplay.Checked = True Then<br>
MCIWnd1.FileName = "e:\dmt\back.wav"<br>
MCIWnd1.Command = "open"<br>
MCIWnd1.Command = "play"<br>
Else<br>
MCIWnd1.Command = "close"<br>
End If<br>
End Sub<br>
★ 怎样编写鼠标右键的弹出式菜单？简单，编写需要弹出菜单对象的mouseup事件；如下：<br>
private sub label1_mouseup(button as integer,shift as integer,x as singer,y as singer)<br>
if button=vbrightbutton then 也可以写成：if button=2 then<br>
form1.popupmenu mnufont<br>
end if<br>
end sub<br>
mouseup事件在我们按下鼠标键，然后抬起时发生。<br>
参数：button：表示抬起鼠标右键还是鼠标左键：vbleftbutton (值1） 为鼠标左键 vbrightbutton （值2） 为鼠标右键<br>
shift:表示在按下鼠标键的同时，是否同时按下扩展键；<br>
x,y:鼠标键抬起时所在的坐标。<br>
窗体的popupmenu方法：显示弹出式菜单。格式：<br>
窗体名.popupmenu 弹出式菜单名 <br>
注：弹出式菜单名所指菜单必须含有至少一个子菜单。<br>
最后在菜单编辑器中可将用于弹出式的那组菜单visible属性设为false（这样只有用弹出显示）。
<p align="center">
<br>
< <a href="011401.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="011502.htm">下一页</a>
><br>
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -