初学VB，不要BS我……呵呵
我建了一个图标菜单,（用API连的）那子菜单不就编成了一个同名的组了么，不过在菜单编辑器里有索引,那我怎么实现子菜单响应事件啊?譬如主菜单名为mnufile，子菜单都是mnufilea，让子菜单一点了显示1，子菜单二点了显示2……怎么做啊
问题点数：20、回复次数：4Top
1 楼bakw（好好潜水,天天UP）回复于 2004-12-04 01:02:49 得分 0
mnufilea.index可以得到他的索引值
比如 这个菜单单击的事件
private sub mnufilea_click(Index as integer)
end sub
里面的index就可以区别不是的菜单了，那个 index参数就是菜单的索引号Top
2 楼jy8224（Eileen）回复于 2004-12-04 01:11:12 得分 0
恩，了解，但是有单独的名字的时候不是只要在private sub mnufilea_click()下输入Msgbox "1"就能显示1了么，那现在在哪里用到索引啊……？Top
3 楼bakw（好好潜水,天天UP）回复于 2004-12-04 01:18:13 得分 20
是的，如果是单独名字的话进入这个程序实际上说明点选中了这个菜单，于是也就没必要去区别了
如果是个数组菜单的话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 SelectTop
4 楼jy8224（Eileen）回复于 2004-12-04 01:26:59 得分 0
好的，呵呵，我再研究研究哦……先谢了……Top
