VB如何创建下拉列表，并将该表的数值赋给text1.text

Question

如题所述

Answer 1

可以这么考虑!最简单的方法就是直接创建一个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里面直接写下你想要的数值也行。又不懂，或是不满意的再问吧，希望对你有帮助~