请问怎样为ActiveX控件添加菜单呢？

[kgdlnyq]

或者用一个类似菜单的技术取待也可以。

[kgdlnyq]

to:magichelp()
你的意思是不是说新建一个FORM,然后在里面加菜单吗?这样感觉不太好!

to:faysky2()
请问弹出式菜单怎样实现呢?

[是是非非]

如果不是要弹出菜单，那么，你可以手工绘制一个菜单栏
然后在点击菜单栏的时候弹出用菜单编辑器设计好的菜单就可以了

[是是非非]

弹出菜单 : PopupMenu

[AnnaBear]

弹出菜单就是右键菜单吗？

[faysky2]

用弹出式菜但的话，就没有一般菜单的特性了，自己试试就知道了

'在用户控件上放上几个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

[kgdlnyq]

明白了,谢谢.

[xwj560]

我也有这类问题!

[magichelp]

简单的方法,自己新建一个空窗口,里面有菜单就行了

[faysky2]

能不能用弹出式菜单来代替呢

[yedl830128]

顶