怎么用VB制作下拉菜单？

1、启动VB6.0，创建一个标准工程。

2、在窗体上右键选择“菜单编辑器”，或在“工具”菜单上单击选择也可以。

3、在d出的“菜单编辑器”窗口中，输入标题和名称，在标题括号内用“&”表示可以调出此功能，输入完毕，保存之后，就能在下面的显示区看见刚才编辑的菜单名称。

4、在显示区中单击已经建好的菜单下面，再创建一个菜单。

5、创建的菜单是否是原来新建的一级子菜单，或是二级子菜单，可以通过编辑区上的方向键来实现，单击右方向键按钮后，会看见它的一级子菜单前面有四个圆点，若是二级，圆点会增加到八个。

6、创建完毕后，确定即可，现在在窗体上就可以看见刚才我们创建的下拉菜单了。

添加一个combobox,在属性栏里有一个List项,用鼠标点它就会出来一个下拉框,你在下拉框里边写东西,一个代表一个项目

注意:换行时要用ctrl+加车,否则焦点就没了,还得重新点击输入

在程序里也可以这样:

combo1.AddItem "项目1"

combo1.AddItem "项目2"

...

combo1.AddItem "项目n"

可以这么考虑!最简单的方法就是直接创建一个ComboBox控件再把下面的代码粘贴到窗体的代码处吧...

PrivateSubCombo1_Click()

Text1.Text=Combo1.Text

EndSub

PrivateSubForm_Load()

Combo1.AddItem1,0

Combo1.AddItem2,1

Combo1.AddItem3,2

EndSub

运行程序，点击下拉框即可为文本框赋值。

注意下，“Combo1.AddItem”后面第一个位置写你想要的数值，的二个位置是这个数值的代号

例如上面代码里面“Combo1.AddItem1,0”意思是在下拉框里添加一个数值“1”，代号为“0”，想修改的话把“1”改为你想要的数值就OK了，想继续添加的话也可以在后面加Combo1.AddItem语句。另外，也可以删掉”PrivateSubForm_Load()“到”EndSub“这段代码，直接在Combo1的List里面直接写下你想要的数值也行。又不懂，或是不满意的再问吧，希望对你有帮助~

---