初学VB，不要BS我……呵呵

Question

我建了一个图标菜单,（用API连的）那子菜单不就编成了一个同名的组了么，不过在菜单编辑器里有索引,那我怎么实现子菜单响应事件啊?譬如主菜单名为mnufile，子菜单都是mnufilea，让子菜单一点了显示1，子菜单二点了显示2……怎么做啊

Answer 1

mnufilea.index可以得到他的索引值
比如 这个菜单单击的事件
private sub mnufilea_click(Index as integer)end sub里面的index就可以区别不是的菜单了，那个 index参数就是菜单的索引号

Answer 2

恩，了解，但是有单独的名字的时候不是只要在private sub mnufilea_click()下输入Msgbox "1"就能显示1了么，那现在在哪里用到索引啊……？

Answer 3

是的，如果是单独名字的话进入这个程序实际上说明点选中了这个菜单，于是也就没必要去区别了如果是个数组菜单的话click事件会带个参数进来 index
这个就是索引值比如说标题     菜单名        索引
=============================
菜单一   menutitle     0
菜单二   menutitle     1
菜单三   menutitle     2
菜单四   menutitle     3
菜单五   menutitle     4这组菜单是同名的  menutitle
那么他们的单击事件是在同一个调用里面Private Sub menutitle_click(Index As Integer)End Sub
那可以在这个事件里写这组代码
Select Case Index
 Case 0
  Msgbox "菜单一 索引值:"&Index
 Case 1
  Msgbox "菜单二 索引值:"&Index
 Case 2
  Msgbox "菜单三 索引值:"&Index
 Case 3
  Msgbox "菜单四 索引值:"&Index
 Case 4
  Msgbox "菜单五 索引值:"&Index
End Select