中科新闻网哥哥韩语怎么读:VB编程问题....谁来救救我?
来源：百度文库 编辑：中科新闻网 时间：2024/05/13 19:19:08
VB菜单编辑器里的索引怎么用,请举个例子说明.谢谢
在菜单编辑器中
比如创建4个菜单，名称相同为a1，（即4个菜单变成了控件数组）
控件数组特点是名称相同，用index来区分各个菜单时用
即当多个菜单项的名称相同时，就需要用索引进行访问
例1：
Private Sub a1_Click(Index As Integer)
If Index = 0 Then Print "a1(0)"
If Index = 1 Then Print "a1(1)"
if index=2 then print "a1(2)"
if index=3 then print "a1(3)"
End Sub
例2：单击任一菜单（单击哪一个菜单效果相同，因为是控件数组），如果i＝0时，把第一个按钮设成灰色，不可用
Private Sub a1_Click(Index As Integer)
For i = 0 To 3
If i = 0 Then
a1(i).Enabled = False
End If
Next
End Sub
在菜单数组时用
即当多个菜单项的名称相同时，就需要用索引进行访问