我的代码那里有问题呢？？？

Question

在form_load()
中先初始化控件
.commport=1
.setting="9600.n,8,1"
.portopen=f
再在事件编程中写下面的试试看看MSDN吧

Answer 1

Private Sub Form_Load()
On Error Resume Next
    MSComm1.Handshaking = 0
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,o,7,1"
    On Error GoTo 0
    If Not MSComm1.PortOpen Then
        Call Open_Com1 ' 打开端口
    Else
        MSComm1.PortOpen = False
        Call Open_Com1 
    End If
End Sub
Private Sub Open_Com1() 
On Error Resume Next
    MSComm1.PortOpen = Not MSComm1.PortOpen
    If Err Then MsgBox Error$, 48
End SubPrivate Sub Command1_Click()
    MSComm1.Output = Chr(27) + Chr(81) + Chr(65) + "ToTal 199.9" + Chr(13) + Chr$(13)
End Sub