如何用VB6.0通过串口从电子秤中获取数据（源代码）

Option Explicit Dim strss As String Private Sub Form_Load（） MSComm1.CommPort = 1 '串口号， MSComm1.Settings = "9600,n,8,1 " '串口的属性 MSComm1.InputLen = 0 MSComm1.InputMode = comInputModeText MSComm1.RThreshold = 1 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm（） Select Case MSComm1.CommEvent Case comEvReceive strss = strss & MSComm1.Input If Right（strss, 2） = vbCrLf Then Label1.Caption = strss Open "D:\DATA.txt" For Append As #1 Print #1, Mid（strss, 1, Len（strss） - 2） '去除回车换行 Close strss = "" End If End Select End Sub