请问怎样为ActiveX控件添加菜单呢？
或者用一个类似菜单的技术取待也可以。 问题点数：100、回复次数：10Top
1 楼xwj560（）回复于 2006-03-06 07:44:45 得分 0
我也有这类问题!Top
2 楼magichelp（）回复于 2006-03-06 09:44:32 得分 10
简单的方法,自己新建一个空窗口,里面有菜单就行了Top
3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-06 09:52:36 得分 60
能不能用弹出式菜单来代替呢Top
4 楼kgdlnyq（蜥蜴）回复于 2006-03-06 14:44:29 得分 0
to:magichelp()
你的意思是不是说新建一个FORM,然后在里面加菜单吗?这样感觉不太好!
to:faysky2()
请问弹出式菜单怎样实现呢?
Top
5 楼eglic（圪圪) (理由永远是谎言，信仰永远是自慰）回复于 2006-03-06 14:48:42 得分 30
如果不是要弹出菜单，那么，你可以手工绘制一个菜单栏
然后在点击菜单栏的时候弹出用菜单编辑器设计好的菜单就可以了Top
6 楼eglic（圪圪) (理由永远是谎言，信仰永远是自慰）回复于 2006-03-06 14:49:15 得分 0
弹出菜单 : PopupMenuTop
7 楼AnnaBear（淡淡）回复于 2006-03-06 15:34:15 得分 0
弹出菜单就是右键菜单吗？Top
8 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-06 15:49:48 得分 0
用弹出式菜但的话，就没有一般菜单的特性了，自己试试就知道了
'在用户控件上放上几个Label，做成控件数组，命名为M1（caption属性自己设定），有几Label，就做几个主菜单（在这里只做了两个，分别为a和b，他们都有子菜单）
Private Sub M1_Click(Index As Integer)
Select Case Index
Case 0
'弹出a菜单
PopupMenu a, 0, M1(Index).Left, M1(Index).Top + M1(Index).Height
Case 1
'弹出b菜但
PopupMenu b, 0, M1(Index).Left, M1(Index).Top + M1(Index).Height
Case 2
End Select
End Sub
Private Sub UserControl_Initialize()
Dim i As Byte
'设置各个label的大小及位置
For i = 0 To M1.Count - 1
If i = 0 Then
M1(i).Left = 0
Else
M1(i).Left = M1(i - 1).Left + M1(i - 1).Width
End If
M1(i).Top = 0
M1(i).Width = 495
M1(i).Height = 255
Next
End Sub
Top
9 楼kgdlnyq（蜥蜴）回复于 2006-03-06 17:02:04 得分 0
明白了,谢谢.Top
10 楼yedl830128（回我好吗？）回复于 2006-05-15 21:21:02 得分 0
顶Top
