【文章內(nèi)容簡介】
Click() If = True Then = False End If = 9600,N,8,1 = 1 = True = 0 End Sub Private Sub Command2_Click() Call CommPortClose intCommFlag = 0 End Sub Call FileSendManager(0) intCommFlag = 1 End If FileError: If intCommFlag 0 Then intCommFlag = 1 Else MsgBox End If En