Question

VB ComboBox选择问题（点击事件）

求助：选择问题！
Private Sub Form_Load()
rwCombo(0).AddItem "1"
rwCombo(0).AddItem "2"
rwCombo(0).AddItem "3"
rwCombo(0).AddItem "4"
rwCombo(0).Additem “Auto"
end sub
'我想在下面当选择“Auto"时，MsComm控件检测到端口显示出来应该怎么写？
不知怎么搞的，文本框显示为空
Private Sub rwCombo_Click(Index As Integer)
rwCombo(0).Text=Combo(0).List(1)‘比如检测到1号端口
end sub
'个人认为选择已经确定了文本，好像有冲突，但是又不知道怎么写
'还望大家多多赐教！

Answer 1

Private Sub rwCombo_Click(Index As Integer)
Dim i As Integer
On Error Resume Next
If rwCombo(Index).ListIndex = 4 Then
    For i = 1 To 4
        MSComm1.PortOpen = False
        MSComm1.CommPort = i
        MSComm1.PortOpen = True
        If Not Err Then
            rwCombo(Index).ListIndex = i - 1
            Exit For
        End If
    Next
    MSComm1.PortOpen = False
End If
End Sub

追问

非常感谢你的回答！