|
四、菜单项的控制
在使用Windows或VB菜单时，已见过“与众不同”的菜单项，如有的呈灰色，单击这类菜单项不执行任何操作；有的菜单项前有“√”号，或菜单项的某个字母下面有下划线等等。下面将介绍如何在菜单中增加这些属性。
1、菜单项的有效属性（有效性控制）
为了使程序正常运行，有时需要使某些菜单项失效，以防止出现误操作。例如前面的例子中，只有在文本框中输入数字后才能进行运算，否则运算没有意义。因此，如果尚未输入数据，则应使执行加、减、乘、除的菜单项失效，在输入数据后才生效。为此，可增加下面两个事件过程：
Private Sub Text1_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
Private Sub Text2_Change()
If Text2.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
除增加上述两个事件过程外，还要取消Add、Min、Mul、Div等4个菜单项的“有效”属性设置。
方法：打开“菜单编辑器”窗口，把对应于这4个菜单项的数据区中的“有效”属性复选框中的“√”去掉即可。
2、菜单项的复选属性（菜单项的标记）
所谓菜单项标记，就是在菜单项前加上一个“√”。
它有两个作用：
增加方法：
一般来说，菜单项标记通常是动态的加上或取消的，所以，常在程序代码中根据执行情况设置。
例2 设计一个菜单，该菜单有一个主菜单项和若干个子菜单项。当单击子菜单项时，分别显示十进制、八进制和十六进制数，并在相应的菜单项前面加上“√”标记。
界面：
一个文本框、6个标签。
 
菜单属性:
| 标题 |
名称 |
内缩符号 |
复选 |
显示数字
八进制
十进制
十六进制
清除
退出 |
Numsys
Octv
Dec
Hexv
Clean
Quit |
无
1
1
1
1
1 |
无
无
无
无
有
无 |
设计菜单：
编写代码：
Option Explicit
Dim answer As Single
Private Sub octv_Click()
answer = Val(Text1.Text)
Octv.Checked = True
Dec.Checked = False
Hexv.Checked = False
Clean.Checked = False
Quit.Checked = False
Label5.Caption = Oct$(answer) '十进制转换为八进制
End Sub
Private Sub Hexv_Click()
answer = Val(Text1.Text)
Octv.Checked = False
Dec.Checked = False
Hexv.Checked = True
Clean.Checked = False
Quit.Checked = False
Label6.Caption = Hex$(answer) '十进制转换为十六进制
End Sub
Private Sub dec_Click()
answer = Val(Text1.Text)
Octv.Checked = False
Dec.Checked = True
Hexv.Checked = False
Clean.Checked = False
Quit.Checked = False
Label4.Caption = Format(answer)
End Sub
Private Sub Clean_Click()
Text1.Text = ""
Octv.Checked = False
Dec.Checked = False
Hexv.Checked = False
Clean.Checked = False
Quit.Checked = False
Clean.Checked = True
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
End Sub
Private Sub Quit_Click()
End
End Sub
[程序演示] [程序下载]
例3 见教材P243。
在窗体上添加一个文本框，用来输入要显示的文本。
菜单属性：
| 菜单 |
标题 |
名称 |
索引 |
快捷键 |
文件
....新建
....打开
....关闭
....-
....退出
字体
....粗体
....斜体 |
文件（&F）
新建（&N）
打开 (&O)
关闭 (&C)
-
退出 (&X)
字体
粗体
斜体 |
mnuFile
mnuNew
mnuOpen
mnuClose
mnuLine
mnuExit
mnuFont
mnuBold
mnuItalic |
|
Ctrl+N
Ctrl+O
Ctrl+B
Ctrl+I |
菜单设置见教材P244。
代码如下：
Private Sub Form_Load()
Form1.Caption = ""
Text1.Visible = False
End Sub
Private Sub mnunew_Click() '菜单项的单击事件
Form1.Caption = "新文件"
Text1.Visible = True
Text1.Text = ""
End Sub
Private Sub mnuopen_Click()
Form1.Caption = "文件"
Text1.Visible = True
End Sub
Private Sub mnuclose_Click()
Form1.Caption = ""
Text1.Visible = False
End Sub
Private Sub mnuexit_Click()
End
End Sub
Private Sub mnubold_Click()
mnubold.Checked = Not mnubold.Checked
Text1.FontBold = mnubold.Checked '根据菜单的复选状态来确定文本是否为粗体
End Sub
Private Sub mnuitalic_Click()
mnuitalic.Checked = Not mnuitalic.Checked
Text1.FontItalic = mnuitalic.Checked
End Sub
[程序演示] [程序下载]
3、菜单的可见属性
同"有效"属性相似，可以利用"可见"属性来取消用户对某些特定菜单项的访问权限。若关闭某个特定的菜单项的"可见"属性，该菜单项将从菜单中被移走。用户将不知道该菜单项的存在。
例4 如上例3中（教材P249）：在[文件]菜单中添加一个菜单项，每点击一次该菜单项，[字体]的"可见"属性就改变一次。修改步骤如下：
 打开菜单编辑器，在菜单列表中选择[退出]菜单项，单击“插入”按钮，在[退出]菜单项之前插入一个菜单项。
设置该菜单项的标题为"字体可见"，名称为"mnuFontVisible","有效"、"可见"属性都选中。
在[退出]之前插入一分隔条，标题为"-"，名称为"mnuLine1","有效","可见"属性都选中。
单击[确定]按钮，退出菜单编辑器。
单击菜单[文件]/[字体不可见]，弹出代码编辑器，在mnuFontVisible_Click事件中添加代码：
Private Sub mnuFontVisible_Click()
mnuFont.Visible=not mnuFont.Visible
if mnuFont.Visible then
mnuFontVisible.Caption="字体不可见"
else
mnuFontVisible.Caption="字体可见"
End if
End Sub
保存文件，运行程序。
[程序演示] [程序下载]
4、设置键盘选择菜单项
在一般情况下，菜单项通过鼠标选择，即单击某个菜单项，执行相应的操作。在VB中，也可以通过键盘选择所需的菜单项。
用键盘选择有两种方法：热键和访问键（Access Key），都可在设计菜单时直接指定。
前面已介绍过热键的设置方法。用热键可以直接执行菜单命令，不必一级一级地下拉菜单，速度较快，适合熟悉键盘的用户使用。
所谓访问键，就是菜单项中加了下划线的字母，只要按Alt和加了下划线的字母，就可以选择相应的菜单项。用访问键选择菜单项时，必须一级一级地选择。也就是只有在下拉显示下一级菜单后，才能用Alt和加了下划线的字母键选择。
访问键的设置（在标题栏中设置）：如果标题是西文，则直接在准备加下划线的字母前加“&”，如“&Additin”;如果是汉字作为标题，通常把访问键放在标题后面的括号中，在括号中输入准备加下划线的字母，并在其前面加上“&”如“清除（&C）”。
说明：
任何一个控件（菜单项也是控件），只要它有Caption（标题）属性，就可以为其指定访问键。对一般的控件（非菜单项），可以在设计阶段通过属性窗口在Caption属性中加“&”设置访问键，也可以在程序代码中设置。但是，有些控件没有Caption属性，或者Caption属性被设置为空白，对于这样的控件的选取，可以通过Tab键依照空位顺序选取（一般情况下，Tab顺序由控件建立时的先后顺序确定，要改变这个顺序，可以通过控件的“TabIndex”属性设置），当然也可以通过访问键选取。这类的控件的访问键设置可借助有Caption属性的控件帮忙（如标签），具体方法如下（以文本框或图片框为例，它们没有Caption属性）：
5、创建菜单控件数组
菜单控件数组就是在同一菜单上共享相同名称和事件过程的菜单工程的集合。菜单控件数组用于：
- 在运行时要创建一个新菜单项，它必须是菜单控件数组中的成员
- 简化代码，对菜单控件数组中任意元素的事件触发都会共用一段代码。
每个菜单控件数组元素都由惟一的索引值来标识，该值在菜单编辑器上"Index属性框"中指定。当一个控件数组成员识别一个事件时，VB将其Index属性作为一个附加的参数传递给事件过程。事件过程必须包含有核对Index属性的代码，因而可以判断出正在使用的是哪一个控件。
例5：（教材P251）在上例中加入一个菜单控件数组mnuFS，用来控制文本框在文字的大小。
|
菜单项 |
标题 |
名称 |
索引 |
快捷键 |
| 字体 |
字体 |
mnuFont |
|
|
| ....粗体 |
粗体 |
mnuBold |
|
Ctrl+B |
| ....斜体 |
斜体 |
mnuItalic |
|
Ctrl+I |
| ....大小 |
大小 |
mnuSize |
|
|
| .......10 |
10 |
mnuFS |
0 |
|
| .......20 |
20 |
mnuFS |
1 |
|
| .......30 |
30 |
mnuFS |
2 |
|
通过菜单编辑器中创建菜单控件数组的步骤：
在"字体"菜单标题 下增加一个标题为"大小"的菜单项，其属性按照表8-2所示设定。然后再在标题为"大小"的菜单项下创建一个名称为mnuFS，标题为"10"的下级菜单，设置索引值为"0"，此时产生第一个数组。
依次建立第二，三个菜单控件数组元素，其级别和属性如上表所示。
同样，所有的控件也可以用这种方法创建控件数组。通常把OptionButton和CheckBox控件设置为控件数组。使用菜单数组和控件数组有下述优点：
- 可以用For循环方便的访问每一个对象
- 它们拥有各自的属性，却共享同一个事件
- 在事件中加入一个参数Index，以确定数组中哪一个控件或菜单发生事件
单击[确定]按钮确认设置
菜单控件数组mnuFS的Click事件响应代码如下：
Private Sub mnuFS_Click（Index as Integer）
Select Case Index
Case 0
Text1.FontSize=10
Case 1
Text1.FontSize=20
Case 2
Text1.FontSize=30
end select
end sub
[程序演示] [程序下载]
6、菜单项的增减（动态菜单）
动态菜单是指随着应用程序的运行而不断改变的一种菜单，在运行时菜单可以增长。Word软件的“文件”菜单是一个典型的动态菜单，菜单中列出了最近使用过的文件名，这部分内容随着应用程序的运行而不断改变的。而用前面的方法建立的菜单是固定的，菜单项不能增减。为了增加或减少菜单项，必须在“菜单编辑器”窗口中，对原来的菜单进行增删。
使用动态菜单在应用程序中必须使用控件数组。
一个控件数组含有若干个控件，这些控件的名称相同，所使用的事件过程相同，但其中的每个元素可以有自己的属性。和普通数组一样，通过下标（Index）访问控件数组中的元素。控件数组可以在设计阶段建立（见添加控件一节），也可以在程序运行阶段建立。
菜单项的增减是通过菜单控件数组实现的。菜单控件数组和普通数组一样，也是通过下标来访问数组中的元素（这里为菜单项）的。菜单控件数组也一样可以设计时建立、可以在运行时建立。
具体操作：如设计时对名称为mnuRecentFile 的分隔条菜单控件的Index属性进行了赋值，它自动地成为控件数组的一个元素，当创建mnuRecentFile（0）时，实际上创建了一个在运行时不可见的分隔符条。当运行时用户第一次存储一个文件，这个分隔条就会变得可见，且第一个文件名被加到该菜单上。运行时每存储一个文件，则会再装入一个菜单项到该数组中，从而使该菜单增长（当然，菜单也不能无限增长）。运行时创建的控件可以使用Hide方法或者设置该控件的Visible属性为False来隐藏。当用户选取一个菜单控件时，一个Click事件则出现。需要在代码中为每个菜单控件编写一个Click事件过程（除分隔符条以外的所有菜单控件都能识别Click事件）。在菜单事件过程中编写的代码与在控件任何其它过程中编写的代码完全相同。一旦菜单标题被选取，VB将自动地显示一个菜单。
例5 如在上面的例4中：
打开编辑器。
在[字体不可见]后插入一个菜单项，标题“-”，名称：“mnuRecentFile”,“可见”属性值为：False（不选），“索引”值为0。
在“新建”文件的程序代码中作如下修改（蓝色部分是增加的内容）：
Private Sub Form_Load()
Form1.Caption = ""
Text1.Visible = False
End Sub
Private Sub mnubold_Click()
mnubold.Checked = Not mnubold.Checked
Text1.FontBold = mnubold.Checked
End Sub
Private Sub mnuclose_Click()
Form1.Caption = ""
Text1.Visible = False
mnuclose.Enabled = False
End Sub
Private Sub mnuexit_Click()
End
End Sub
Private Sub mnufontvisible_Click()
mnufont.Visible = Not mnufont.Visible
If mnufont.Visible Then
mnufontvisible.Caption = "字体不可见"
Else
mnufontvisible.Caption = "字体可见"
End If
End Sub
Private Sub mnuitalic_Click()
mnuitalic.Checked = Not mnuitalic.Checked
Text1.FontItalic = mnuitalic.Checked
End Sub
Private Sub mnunew_Click()
Static inti As Integer
Dim intj As Integer
Dim mystring As String
Form1.Caption = "新文件"
Text1.Visible = True
Text1.Text = ""
mnuclose.Enabled = True '新建文件后，可以使用关闭文件命令。此时mnuclose应设置为“有效”。
mnuRecentFile(0).Visible = True ' 动态数组mnuRecentFile（）最大长度为5， mnuRecentFile（0）用作分隔条，其余元素纪录动态菜单内的文件名。
If inti > 4 Then '当动态菜单已满时，最早打开的文件名从动态菜单中去掉，新建的文件名添入。
For intj = 4 To 2 Step -1 'intj纪录动态菜单中的当前菜单项。
mystring = mnuRecentFile(intj - 1).Caption 'mystring取上一个菜单项的标题。
mnuRecentFile(intj).Caption = intj & Mid$(mystring, 2, Len(mysting) - 1) '当前菜单项的标题改为上一个菜单项的标题。
Next intj
mnuRecentFile(1).Caption = 1 & "_ _ _文件" & inti '新建文件的文件名作动态菜单的第一个菜单项的标题
Else '动态菜单中菜单项不足4个时，添加菜单项。
inti = inti + 1
Load mnuRecentFile(inti)
For intj = inti To 2 Step -1
mysting = mnuRecentFile(intj - 1).Caption
mnuRecentFile(intj).Caption = intj & Mid$(mysting, 2, Len(mystring) - 1)
Next intj
mnuRecentFile(1).Caption = 1 & "_ _ _文件" & inti
'新建文件的文件名作动态菜单的第一个菜单项的标题。
End If
End Sub
Private Sub mnuopen_Click()
Form1.Caption = "文件"
Text1.Visible = True
End Sub
|
关于函数Mid$、Len：
★中部截取函数Mid$
功能：用来截取字符串中间的一比部分。
格式：Mid$（字符串，p，n）
说明：从第p个字符开始，向后截取n个字符。例如：
a$="abcdefghijk"
Print Mid$(a$,3,4)
cdef '显示结果
Mid$函数的第三个自变量可以省略，在这种情况下，将从第二个自变量指定的位置向后截取到字符串的末尾。
★字符串长度测试函数Len
功能：测试字符串的长度，也可以测试变量的存储空间，它的自变量可以是字符串，也可以是变量名。
格式：Len（字符串）
Len（变量名）
例如：
a$="abcdefghijk"
?Len(a$)
11 '测试显示的结果
a=Len(textvar#)
b=Len(textvar!)
c=Len(textvar%)
Print a,b,c
8 4 2 '显示结果分别占8字节、4字节、2字节。 |
例5 编写程序，实现菜单的增减操作。
设有一个刚刚建立的菜单，它有一个主菜单“应用程序”，其下有两个子菜单“增加应用程序”、“减少应用程序”及分隔线。要求单击“增加应用程序”时在分隔条下增加一个新的菜单项，单击“减少应用程序”时删除分隔线下面一个指定的菜单项，如果单击新增加的菜单项，则可以执行这一指定的应用程序。
原来菜单：
接下来，按以下步骤操作：
（1）打开菜单编辑器
（2）设置菜单属性如下：
| 标题 |
名称 |
内缩符号 |
下标（索引） |
可见性 |
应用程序
增加应用程序
减少应用程序
-
（空白） |
Apps
AddAp
DelAp
SepBar
AppName |
无
1
1
1
1 |
无
无
无
无
0 |
True
True
True
True
False |
最后一项是新输入的，它是一个子菜单，但暂时看不见。输入“索引”值0以使“AppName”菜单项成为菜单控件数组，AppName（0）是控件数组的第一个元素。
（3）编写添加菜单项代码：
单击“增加应用程序”菜单项，在程序中添加代码：
Dim menucounter As Integer
Dim msg, Temp As String
Private Sub AddAp_Click()
msg = "Enter file path:"
Temp = InputBox(msg, "Application")
menucounter = menucounter + 1 '下标值增1。
Load AppName(menucounter)'用Load语句建立控件数组新元素。
AppName(menucounter).Caption = Temp'把输入的应用程序名设置为该元素的Caption属性(即菜单项)。
AppName(menucounter).Visible = True '使该菜单项可见。
End Sub
以上仅是一个练习，在实际应用时，可以通过“通用对话框”打开文件，然后再将打开的文件名作为菜单项显示，这样代码可改为（窗体上已添加了通用对话框控件）：
Private Sub AddAp_Click()
With CommonDialog1 'CommonDialog1为添加的通用对话框控件
.DialogTitle = "打开"
.CancelError = False
.InitDir = "d:\" '打开D盘。
.ShowOpen
End With
menucounter = menucounter + 1
Load AppName(menucounter)
AppName(menucounter).Caption = CommonDialog1.FileName
AppName(menucounter).Visible = True
End Sub
（4）编写删除菜单项代码：
在运行时用load语句增加的菜单项可以使用Unload语句删除，但不能删除设计时建立的菜单项。
单击“减少应用程序”菜单项，在程序中添加代码：
Private Sub DelAp_Click()
Dim n, i As Integer
msg = "Enter number to delete:"
n = InputBox(msg, "Delete Application")'输入要删除的应用程序的编号。
If n > menucounter Or n < 1 Then
MsgBox "超出范围！"
Exit Sub
End If
For i = n To menucounter - 1
AppName(i).Caption = AppName(i + 1).Caption
Next i
Unload AppName(menucounter)
menucounter = menucounter - 1
End Sub
说明：从过程中可以看出，删除指定菜单项的操作并不是直接进行的，而是从被删除的菜单项开始，用后面的菜单项覆盖前面的菜单项，然后再删除最后一个菜单项。
|
