home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / vb_msg / vbmsg.bas < prev    next >
BASIC Source File  |  1993-07-19  |  3KB  |  57 lines
  1. Option Explicit
  2.  
  3. ' Declares for VB Messenger v1.0b API
  4. ' Copyright ⌐ 1993, JOSWare, Inc.
  5. ' All rights reserved.
  6.  
  7. Type MODEL
  8.   usVersion         As Integer      'VB version used by control
  9.   fl                As Long         'Bitfield structure
  10.   pctlproc          As Long         'The control proc.
  11.   fsClassStyle      As Integer      'Window class style
  12.   flWndStyle        As Long         'Default window style
  13.   cbCtlExtra        As Integer      '# bytes alloc'd for HCTL structure
  14.   idBmpPalette      As Integer      'BITMAP id for tool palette
  15.   npszDefCtlName    As Integer      'Default control name prefix (near ptr)
  16.   npszClassName     As Integer      'Visual Basic class name (near ptr)
  17.   npszParentClassName As Integer    'Parent window class if subclassed (near ptr)
  18.   npproplist        As Integer      'Property list (near ptr)
  19.   npeventlist       As Integer      'Event list (near ptr)
  20.   nDefProp          As String * 1   'Index of default property
  21.   nDefEvent         As String * 1   'Index of default event
  22.   nValueProp        As String * 1   'Index of control value property
  23. End Type
  24.  
  25. ' Get specific address of various variable types
  26. Declare Function ptGetVariableAddress Lib "VBMSG.VBX" (Var As Any) As Long
  27. Declare Function ptGetTypeAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (Var As Any) As Long
  28. Declare Function ptGetStringAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (ByVal S As String) As Long
  29. Declare Function ptGetLongAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (L As Long) As Long
  30. Declare Function ptGetIntegerAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (I As Integer) As Long
  31.  
  32. ' Get various values of data at specific addresses
  33. Declare Function ptGetIntegerFromAddress Lib "VBMSG.VBX" (ByVal I As Long) As Integer
  34. Declare Function ptGetLongFromAddress Lib "VBMSG.VBX" (ByVal L As Long) As Long
  35. Declare Function ptGetStringFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, ByVal cbBytes As Integer) As String
  36. Declare Sub ptGetTypeFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, lpType As Any, ByVal cbBytes As Integer)
  37.  
  38. 'Set address areas to variable values
  39. Declare Sub ptCopyTypeToAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, lpType As Any, ByVal cbBytes As Integer)
  40.  
  41. ' Data Type Manipulation Functions
  42. Declare Function ptMakelParam Lib "VBMSG.VBX" (ByVal wLow As Integer, ByVal wHigh As Integer) As Long
  43. Declare Function ptLoWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  44. Declare Function ptHiWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  45. Declare Function ptMakeUShort Lib "VBMSG.VBX" (ByVal LongVal As Long) As Integer
  46. Declare Function ptConvertUShort Lib "VBMSG.VBX" (ByVal ushortVal As Integer) As Long
  47.  
  48. ' Get the literal text for a message
  49. Declare Function ptMessagetoText Lib "VBMSG.VBX" (ByVal uMsgID As Long, ByVal bFlag As Integer) As String
  50.  
  51. ' Visual Basic API Translator Functions
  52. Declare Function ptRecreateControlHwnd Lib "VBMSG.VBX" (ctl As Control) As Long
  53. Declare Function ptGetControlModel Lib "VBMSG.VBX" (ctl As Control, lpm As MODEL) As Long
  54. Declare Sub ptSetControlModel Lib "VBMSG.VBX" (ctl As Control, lpm As MODEL)
  55. Declare Function ptGetControlName Lib "VBMSG.VBX" (ctl As Control) As String
  56.  
  57.