vb combol 的使用,根本不起作用啊
发布网友
发布时间:2024-10-05 13:18
我来回答
共2个回答
热心网友
时间:2024-10-22 20:08
首先,不要用Combo1_Change事件,要用Combo1_Click事件,前者是在手工输入内容时才触发的,后者则是在鼠标点击选项时触发的;
其次,Combo1.List是个集合,包含了Combo1中的所有选项,所以直接判断其是否等于某个值是不行的,要用Combo1.List(Combo1.ListIndex)或者Combo1.Text。
完整代码如下:
Private Sub Combo1_Click()
If Combo1.Text = "com1" Then
MSComm1.CommPort = 1
ElseIf Combo1.Text = "com2" Then
MSComm1.CommPort = 2
ElseIf Combo1.Text = "com3" Then
MSComm1.CommPort = 3
Else
MSComm1.CommPort = 4
End If
End Sub
热心网友
时间:2024-10-22 20:09
Private Sub Combo1_Click()
If Combo1.text = "com1" Then
MSComm1.CommPort = 1
ElseIf Combo1.text= "com2" Then
MSComm1.CommPort = 2
ElseIf Combo1.text= "com3" Then
MSComm1.CommPort = 3
Else
MSComm1.CommPort = 4
End If
End Sub