十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
可以这么考虑!最简单的方法就是直接创建一个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里面直接写下你想要的数值也行。又不懂,或是不满意的再问吧,希望对你有帮助~
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。
Public Class Form1
Dim b(9)() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a(9) As String '这个数组用来存储第一个下拉框的全部值。
For i = 0 To 9
a(i) = i '赋值。
ReDim b(i)(9) '定义选择第一个下拉框的值时,第二个下拉框分别有十个值。
For j = 0 To 9
b(i)(j) = i '赋值。
Next
Next
ComboBox1.Items.AddRange(a)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))
End Sub
End Class