杭州交通信息网菲尔科气动:如何让combobox的值等于textbox的值？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/03 10:09:53
在vb中textbox和combobox相关联，当textbox的值在combobox中存在时则combobox显示此值，否则显示为空，相反当在combobox中选择一个值时则textbox的值变为combobox所选择的值。combobox已预置有数据，只允许选择而不允许进行任何编辑。请教各位大虾如何实现？
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub
Private Sub Text1_Change()
For i = 0 To (Combo1.ListCount - 1)
If Text1.Text = Combo1.List(i) Then
Combo1.Text = Text1.Text
Exit Sub
End If
Next i
Combo1.Text = \"\"
End Sub
设置combo的lock属性为true,即不可编辑