errors32.bas

来自「在VB中实现通讯的例子」· BAS 代码 · 共 43 行

Attribute VB_Name = "ERRORS"
'
' ERRORS32.BAS
'
 Option Explicit

 DefInt A-Z

 Dim Text As String * 120

Sub SayError(F As Form, ByVal ErrorCode)
Dim Win32Err As Long
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 WSC_WIN32ERR:
     Win32Err = SioWinError(Text, 120)
     F.Print Text
  Case Else
     F.Print "Error code "; ErrorCode
  End Select
End Sub