Question

VB 控件 ComboBox 项目到TextBox的问题?

Private Sub Form_Load()
Combo1.AddItem ("abc")
Combo1.AddItem ("efg")
Combo1.AddItem ("阿道夫")
Combo1.AddItem ("1124")
Combo1.AddItem ("@#￥…")
End Sub
'运行后如果：我选择了列表中的“1124”如何让Textbox中显示“1124”。

Private Sub Combo1_Change()

'这里要如何写。？
Text1=????

End Sub
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem ("abc")
Combo1.AddItem ("efg")
Combo1.AddItem ("阿道夫")
Combo1.AddItem ("1124")
Combo1.AddItem ("@#￥…")
Text1.Text = Combo1.Text
End Sub

为什么不出现啊。

Answer 1

text1.text = combo1.text

Answer 2

text1.text=combo1.text