基于VB的串口使用

这个是个好东西，当时也是搜了很多资料才做出来的，第一个界面用来选择串口，它可以自动搜索当前可用的串口，这个很重要，没有警告，不会崩溃。

先看程序。

Dim comn(9) As Byte

Private Function jiance()
Me.Combo1.Clear
m = 0
On Error Resume Next
For i = 1 To 10
Me.MSComm1.CommPort = i
Me.MSComm1.PortOpen = True
If Err.Number = 0 Then
    Me.Combo1.AddItem "串口" & i
    comn(m) = i
    m = m + 1
End If
Me.MSComm1.PortOpen = False
Err.Clear
Next i
Me.Combo1.ListIndex = 0
Command1.Enabled = True
If m = 0 Then
    Me.Combo1.Text = "未检测到串口"
    Command1.Enabled = False
End If
End Function

Private Sub Command1_Click()
Cls
Print comn(Me.Combo1.ListIndex)
comnum = comn(Me.Combo1.ListIndex)
Form1.Hide
Form2.Show
End Sub

Private Sub Command2_Click()
If MsgBox("确定要退出系统吗？", vbOKCancel, "退出提醒") = vbOK Then End
End Sub

Private Sub Command3_Click()
Call jiance
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Call jiance
End Sub

运行截图这样的：

已经用到了我的一些项目中了，值得收藏。