如何用VB打开和关闭COM口?

Question

我要做个程序实现扫描枪的正常输入，即实现计算机COM口的打开和关闭，用VB应该如何写？大家给点帮助呵
如果好的话，我给追加分

Answer 1

用VB自带的Microsoft COMM Control 6.0 控件就行了.用API的话比较麻烦

Answer 2

我在网上查过了，知道用Microsoft COMM Control 6.0 控件，但是还是不行！不知道咋回事？Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferSize = "1024"
MSComm1.OutBufferSize = "1024"
MSComm1.InputMode = MSCommLib.InputModeConstants.comInputModeText
MSComm1.InputLen = 0
MSComm1.RThreshold = 20
If MSComm1.PortOpen = False Then
    MSComm1.PortOpen = True
End IfEnd Sub
Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
End Sub

Answer 3

Private Sub fnopen()'打开
Dim strsetting As String
strsetting = "9600,n,8,1"
MSComm1.InBufferSize = 1024
MSComm1.Settings = strsetting
MSComm1.CommPort = 1
MSComm1.PortOpen = True
If MSComm1.CommPort <> 1 Then MSComm1.CommPort = 1
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.InputLen = 1
MSComm1.RThreshold = 1
MSComm1.InBufferCount = 0End SubPrivate Sub fnclose()'关闭
    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub

Answer 4

使用MSComm在接收数据时候你直接Text1.Text = MSComm1.Input是不行的，这样会丢数据，需要做判断