home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP22 / 309X2903.TXT < prev   
Encoding:
Text File  |  1998-05-28  |  1.6 KB  |  45 lines
  1.  
  2. Private Sub TAPIStatus(lonStatCode As Long)
  3.  
  4. ' Based on the TAPI status code (passed to this
  5. ' procedure in lonStatCode), add an appropriate message
  6. ' to the lstStatus ListBox.
  7. Select Case lonStatCode
  8.     Case TAPIERR_CONNECTED
  9.         lstStatus.AddItem "Ok"
  10.     Case TAPIERR_DROPPED
  11.         lstStatus.AddItem "Dropped"
  12.     Case TAPIERR_NOREQUESTRECIPIENT
  13.         lstStatus.AddItem "Err: No Request Recipient"
  14.     Case TAPIERR_REQUESTQUEUEFULL
  15.         lstStatus.AddItem "Err: Request Queue Full"
  16.     Case TAPIERR_INVALDESTADDRESS
  17.         lstStatus.AddItem "Err: Destination Address Invalid"
  18.     Case TAPIERR_INVALWINDOWHANDLE
  19.         lstStatus.AddItem "Err: Window Handle Invalid"
  20.     Case TAPIERR_INVALDEVICECLASS
  21.         lstStatus.AddItem "Err: Device Class Invalid"
  22.     Case TAPIERR_INVALDEVICEID
  23.         lstStatus.AddItem "Err: Device Class ID"
  24.     Case TAPIERR_DEVICECLASSUNAVAIL
  25.         lstStatus.AddItem "Err: Device Class Unavailable"
  26.     Case TAPIERR_DEVICEIDUNAVAIL
  27.         lstStatus.AddItem "Err: Device ID Unavailable"
  28.     Case TAPIERR_DESTBUSY
  29.         lstStatus.AddItem "Destination Busy"
  30.     Case TAPIERR_DESTUNAVAIL
  31.         lstStatus.AddItem "Destination Unavailable"
  32.     Case TAPIERR_UNKNOWNWINHANDLE
  33.         lstStatus.AddItem "Err: Unknown Windows Handle"
  34.     Case TAPIERR_UNKNOWNREQUESTID
  35.         lstStatus.AddItem "Err: Unknown Request ID"
  36.     Case TAPIERR_REQUESTFAILED
  37.         lstStatus.AddItem "Err: Request Failed"
  38.     Case TAPIERR_REQUESTCANCELLED
  39.         lstStatus.AddItem "Err: Request Cancelled"
  40.     Case TAPIERR_INVALPOINTER
  41.         lstStatus.AddItem "Err: Invalid Pointer"
  42. End Select
  43.  
  44. End Sub
  45.