在VB中如何做出下拉菜单

来源：百度知道 编辑：UC知道 时间：2024/07/03 01:28:46
我想做一个下拉菜单不知用什么控件，就好像QQ登录是选择隐身，在线之内的是的，还有像点一下设置，也会弹出来这些。如图
我也知道，工具下有菜单编辑器，可是编辑出来的菜单都是，在form顶头，不理想，我想要的是能在其他位置的。谢谢大家了。

【QQ登录是选择隐身，在线之内的】用的是列表框listbox，
【点一下设置，也会弹出来这些】，
这个并不是菜单，
其实很简单，
方法如下：
你把开始不显示直到点设置才显示的控件全都放在最底下，
然后把窗体高度调小，直到看不见底下的控件，
在设置按钮中添加代码：
Me.Height = Me.Height + 一个数值
这个数值自己调整就可以了

这样：

按菜单栏中的“工具” > “菜单编辑器”，编辑你想要的菜单，将第一级菜单设为不可见。ok

在你想弹出菜单的地方写：
me.popupmenu 刚刚第一级菜单的名称 , ,弹出的横坐标,弹出的纵坐标

ok！！

代码如下：

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "第1条"
Label1.Caption = "文本1"
Case "第2条"
Label1.Caption = "文本2"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "第1条"
Combo1.AddItem "第2条"
End Sub