errors16.bas

在VB中实现通讯的例子

'
' ERRORS16.BAS
'
 Option Explicit

 DefInt A-Z

Sub SayError (F As Form, ByVal ErrorCode)
Select Case ErrorCode
  Case IE_BADID
     F.Print "Invalid COM port name"
  Case IE_OPEN
     F.Print "COM port already open"
  Case IE_NOPEN
     F.Print "Cannot open COM port"
  Case IE_MEMORY
     F.Print "Unable to allocate memory"
  Case IE_DEFAULT
     F.Print "Error in default parameters"
  Case IE_HARDWARE
     F.Print "Hardware not present"
  Case IE_BYTESIZE
     F.Print "Unsupported byte size"
  Case IE_BAUDRATE
     F.Print "Unsupported baud rate"
  Case WSC_NO_DATA
     F.Print "No data"
  Case WSC_RANGE
     F.Print "Parameter out of range"
  Case WSC_ABORTED
     F.Print "Shareware version corrupted"
  Case Else
     F.Print "Error code "; ErrorCode
  End Select
End Sub