Question

在vb中，我想用combo1向text1中添加内容，不是combo1的text值。 求如何编写代码？

例如：我在Form_Load()中写下代码 Me.Combo1.AddItem "1"
我希望他在text1中显示的是a，而不是利用 Text1.Text = Combo1.Text代码显示的1.

Answer 1

Private Sub Combo1_Click()
If Me.Combo1.Text = "1" Then
Text1.Text = "a"
End If
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "1"
End Sub
这样不可以吗？不知道你是都要在Private Sub Form_Load()里写把。、、

追问

我是个刚上路的新手，请问
应用时是先编写Private Sub Form_Load()
还是先编写Private Sub Combo1_Click()

追答

那我写的你试了？

追问

没有，我正在试，还有，如果是三个呢？如
Me.Combo1.AddItem "a"
Me.Combo1.AddItem "b"
Me.Combo1.AddItem "c"
想让他分别显示1、2和3。
同时我还需要一个可以单击command1就可以执行复制text1内文本的代码。

追答

复制那部分没写，你想要复制到哪里？
Private Sub Combo1_Click()
If Me.Combo1.text = "a" Then
Text1.text = "1"
ElseIf Me.Combo1.text = "b" Then
Text1.text = "2"
ElseIf Me.Combo1.text = "c" Then
Text1.text = "3"
End If
End Sub
Private Sub Command1_Click()
Dim text
text = Text1.text
End Sub
Private Sub Form_Load()
Me.Combo1.AddItem "a"
Me.Combo1.AddItem "b"
Me.Combo1.AddItem "c"
End Sub