初学VB的ComboBox的使用问题问
例：
1、在Form上放一个ComboBox，默认名称是Combo1。
2、在代码窗口添加Form_Load()，在这里做ComboBox的下拉列表。
代码如下：
Private Sub Form_Load()
Combo1。 AddItem "S1"
Combo1。AddItem "S2"
Combo1。AddItem "S3"
Combo1。Text = ""
End Sub
方便起见，把你问题中的变量都写成它们的变量名了。 "S1"、"S2"、"S3"都可以替换成变量。如果用变量，定义的语句最好写在代码页的最上面，方便在各个函数里使用。
3、用鼠标选择Combo1里的项目和用键盘...全部
例：
1、在Form上放一个ComboBox，默认名称是Combo1。
2、在代码窗口添加Form_Load()，在这里做ComboBox的下拉列表。
代码如下：
Private Sub Form_Load()
Combo1。
AddItem "S1"
Combo1。AddItem "S2"
Combo1。AddItem "S3"
Combo1。Text = ""
End Sub
方便起见，把你问题中的变量都写成它们的变量名了。
"S1"、"S2"、"S3"都可以替换成变量。如果用变量，定义的语句最好写在代码页的最上面，方便在各个函数里使用。
3、用鼠标选择Combo1里的项目和用键盘上下键选择的时候，都会触发Combo1的Click事件。
添加代码：
Private Sub Combo1_Click()
Dim P As String
If Combo1。Text = "S1" Then
P = "T1"
ElseIf Combo1。
Text = "S2" Then
P = "T2"
ElseIf Combo1。Text = "S3" Then
P = "T3"
Else
P = ""
End If
End Sub
想直观的看到P的变化的话，可以随便在Form上什么位置上加个Label。
在Combo1_Click()的End Sub上面加上句
Label1。Caption = P
4、此外，ComboBox文本框上的内容可以手动修改。但键盘输入的时候不响应ComboBox的Click事件。
例如在Combo1的文本框内手动输入S3，Label上的文字不能及时变为T3。
推荐加上Combo1的Change事件。
Combo1_Change()里的代码可以把Click里的内容照搬过来，也可以简单写成
Private Sub Combo1_Change()
Combo1_Click
End Sub
意思就是当触发了ComboBox的Change事件时，让它执行Click事件里的操作。
关于“似乎P=T3被我扩大了”的问题更正一下我开始的“理论上是不会的”的想法。
似乎有一种情况会被扩大，就是手动输入的时候。所以加上
Else
P = ""
还是比较好的。
大概就是这样了。
收起
