精品精品-精品精品国-精品精品国产-精品精品国产高-精品精品国产高清-精品精品国产国产-精品精品国产精品等-精品精品国产理论

如何使用mscommon

假設與FX2N通訊rivate Sub CommSet()
    On Error GoTo err1
    If CommFX.PortOpen = True Then
        CommFX.PortOpen = False
    End If
    If Not CommFX.PortOpen Then
        CommFX.CommPort = cboPort.ListIndex + 1 '通信口
        CommFX.Settings = "9600,N,8,1" '固定值即可
        CommFX.Handshaking = 0
        CommFX.InputLen = 0
        CommFX.OutBufferCount = 0
        CommFX.InBufferCount = 0
        CommFX.PortOpen = True
    End If
    Exit Sub
err1:
    MsgBox Err.Description