home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_refer / learnvbx / multglob.bas < prev    next >
BASIC Source File  |  1992-06-30  |  2KB  |  68 lines
  1. '  Error Flags
  2. Global Const CE_RXOVER = &H1    '  Receive Queue overflow
  3. Global Const CE_OVERRUN = &H2   '  Receive Overrun Error
  4. Global Const CE_RXPARITY = &H4  '  Receive Parity Error
  5. Global Const CE_FRAME = &H8     '  Receive Framing error
  6. Global Const CE_BREAK = &H10    '  Break Detected
  7. Global Const CE_CTSTO = &H20    '  CTS Timeout
  8. Global Const CE_DSRTO = &H40    '  DSR Timeout
  9. Global Const CE_RLSDTO = &H80   '  RLSD Timeout
  10. Global Const CE_TXFULL = &H100  '  TX Queue is full
  11. Global Const CE_PTO = &H200     '  LPTx Timeout
  12. Global Const CE_IOE = &H400     '  LPTx I/O Error
  13. Global Const CE_DNS = &H800     '  LPTx Device not selected
  14. Global Const CE_OOP = &H1000    '  LPTx Out-Of-Paper
  15. Global Const CE_MODE = &H8000   '  Requested mode unsupported
  16.  
  17. Global Const IE_BADID = (-1)    '  Invalid or unsupported id
  18. Global Const IE_OPEN = (-2)     '  Device Already Open
  19. Global Const IE_NOPEN = (-3)    '  Device Not Open
  20. Global Const IE_MEMORY = (-4)   '  Unable to allocate queues
  21. Global Const IE_DEFAULT = (-5)  '  Error in default parameters
  22. Global Const IE_HARDWARE = (-10)        '  Hardware Not Present
  23. Global Const IE_BYTESIZE = (-11)        '  Illegal Byte Size
  24. Global Const IE_BAUDRATE = (-12)        '  Unsupported BaudRate
  25.  
  26. Type DCB
  27.         Id As String * 1
  28.         BaudRate As Integer
  29.         ByteSize As String * 1
  30.         Parity As String * 1
  31.         StopBits As String * 1
  32.         RlsTimeout As Integer
  33.         CtsTimeout As Integer
  34.         DsrTimeout As Integer
  35.         Bits1 As String * 1
  36.         Bits2 As String * 1
  37.         XonChar As String * 1
  38.         XoffChar As String * 1
  39.         XonLim As Integer
  40.         XoffLim As Integer
  41.         PeChar As String * 1
  42.         EofChar As String * 1
  43.         EvtChar As String * 1
  44.         TxDelay As Integer
  45. End Type
  46.  
  47. Type COMSTAT
  48.         Bits As String * 1
  49.         cbInQue As Integer
  50.         cbOutQue As Integer
  51. End Type
  52.  
  53.  
  54. Global Const WM_USER = &H400
  55. ' edit box messages
  56. Global Const EM_SETPASSWORDCHAR = WM_USER + 28
  57. Global Const EM_LIMITTEXT = WM_USER + 21
  58. Global Const ES_PASSWORD = &H20
  59. Global Const LBS_EXTENDEDSEL = &H800
  60. Global Const LBS_MULTIPLESEL = &H8
  61. Global Const GWL_STYLE = -16
  62. Global Const GWL_EXSTYLE = -20
  63. ' list box messages
  64. Global Const LB_RESETCONTENT = &H405
  65. Global Const LB_SETITEMDATA = WM_USER + 27
  66. Global Const LB_GETITEMDATA = WM_USER + 26
  67.  
  68.