Question

VB中ComboBox控件如何使用

在ComboBox控件中选择一个字符串时，需要给另一变量赋值，代码应该怎么写？比如：当在ComboBox控件中选择“大”时，使a=2；在ComboBox控件中选择“小”时，使a=1

Answer 1

Private Sub Combo1_Click()
Dim A As Integer
If Combo1.Text = "大" Then
A = 2
Text1.Text = A
ElseIf Combo1.Text = "小" Then
A = 1
Text1.Text = A
End If
End Sub