home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / apigid32.bas next >
Encoding:
BASIC Source File  |  1996-12-28  |  6.3 KB  |  106 lines
  1. Attribute VB_Name = "APIGuide32"
  2. Option Explicit
  3. ' ------------------------------------------------------------------------
  4. '
  5. '     APIGID32.BAS -- APIGID32.DLL API Declarations for Visual Basic
  6. '
  7. '                       Copyright (C) 1992-1996 Desaware
  8. '
  9. '  You have a royalty-free right to use, modify, reproduce and distribute
  10. '  this file (and/or any modified version) in any way you find useful,
  11. '  provided that you agree that Desaware and Ziff-Davis Press has no
  12. '  warranty, obligation or liability for its contents.
  13. '  Refer to the Ziff-Davis Visual Basic Programmer's Guide to the
  14. '  Win32 API for further information.
  15. '
  16. ' ------------------------------------------------------------------------
  17. Type POINTS
  18.         x  As Integer
  19.         y  As Integer
  20. End Type
  21.  
  22. Private Type FILETIME
  23.         dwLowDateTime As Long
  24.         dwHighDateTime As Long
  25. End Type
  26.  
  27. #If Win32 Then
  28. Declare Function agGetInstance& Lib "apigid32.dll" ()
  29. Declare Function agPOINTStoLong& Lib "apigid32.dll" (pt As POINTS)
  30. Declare Sub agCopyData Lib "apigid32.dll" (source As Any, dest As Any, ByVal nCount&)
  31. Declare Sub agCopyDataBynum Lib "apigid32.dll" Alias "agCopyData" (ByVal source&, ByVal dest&, ByVal nCount&)
  32. Declare Function agGetAddressForObject& Lib "apigid32.dll" (object As Any)
  33. Declare Function agGetAddressForInteger& Lib "apigid32.dll" Alias "agGetAddressForObject" (intnum%)
  34. Declare Function agGetAddressForLong& Lib "apigid32.dll" Alias "agGetAddressForObject" (intnum&)
  35. Declare Function agGetAddressForLPSTR& Lib "apigid32.dll" Alias "agGetAddressForObject" (ByVal lpstring$) ' See warning!
  36. Declare Function agGetAddressForVBString& Lib "apigid32.dll" (vbstring$)
  37. Declare Function agGetStringFrom2NullBuffer$ Lib "apigid32.dll" (ByVal ptr&)
  38. Declare Function agGetStringFromLPSTR$ Lib "apigid32.dll" (ByVal src$)
  39. Declare Function agGetStringFromPointer$ Lib "apigid32.dll" Alias "agGetStringFromLPSTR" (ByVal ptr&)
  40. Declare Function agSwapBytes% Lib "apigid32.dll" (ByVal src%)
  41. Declare Function agSwapWords& Lib "apigid32.dll" (ByVal src&)
  42. Declare Function agMakeROP4& Lib "apigid32.dll" (ByVal foreground&, ByVal background&)
  43. Declare Function agGetWndInstance& Lib "apigid32.dll" (ByVal hwnd&)
  44. Declare Function agDWORDto2Integers& Lib "apigid32.dll" (ByVal l&, lw%, lh%)
  45. Declare Function agIsValidName& Lib "apigid32.dll" (ByVal o As Object, ByVal lpname$)
  46. Declare Function agInp% Lib "apigid32.dll" (ByVal portid%)
  47. Declare Function agInpw% Lib "apigid32.dll" (ByVal portid%)
  48. Declare Function agInpd& Lib "apigid32.dll" (ByVal portid%)
  49. Declare Sub agOutp Lib "apigid32.dll" (ByVal portid%, ByVal outval%)
  50. Declare Sub agOutpw Lib "apigid32.dll" (ByVal portid%, ByVal outval%)
  51. Declare Sub agOutpd Lib "apigid32.dll" (ByVal portid%, ByVal outval&)
  52.  
  53. ' Declared As Any to allow it to be used within classes, not to mention by other
  54. ' double long structures
  55. Declare Sub agSubtractFileTimes Lib "apigid32.dll" (f1 As Any, f2 As Any, f3 As Any)
  56. Declare Sub agAddFileTimes Lib "apigid32.dll" (f1 As Any, f2 As Any, f3 As Any)
  57. Declare Sub agNegateFileTime Lib "apigid32.dll" (f1 As Any)
  58. Declare Function agConvertFileTimeToDouble Lib "apigid32.dll" (f1 As Any) As Double
  59. Declare Sub agConvertDoubleToFileTime Lib "apigid32.dll" (ByVal d As Double, f1 As Any)
  60.  
  61. #Else
  62. ' Note, not all 16 bit declarations have equivalent 32 bit functions
  63. ' and vice versa. Nor is their behavior always identical.
  64. ' Refer to the Visual Basic Programmer's Guide to the Windows API (16 bit)
  65. ' for documentation on the following functions
  66.  
  67. Global Const CTLFLG_USESPALETTE% = 2
  68. Global Const CTLFLG_HASPALETTE% = 1
  69.  
  70.  
  71. Declare Function agGetControlHwnd% Lib "Apiguide.dll" (hctl As Control)
  72. Declare Function agGetInstance% Lib "Apiguide.dll" ()
  73. Declare Sub agCopyData Lib "Apiguide.dll" (source As Any, dest As Any, ByVal nCount%)
  74. Declare Sub agCopyDataBynum Lib "Apiguide.dll" Alias "agCopyData" (ByVal source&, ByVal dest&, ByVal nCount%)
  75. Declare Function agGetAddressForObject& Lib "Apiguide.dll" (object As Any)
  76. Declare Function agGetAddressForInteger& Lib "Apiguide.dll" Alias "agGetAddressForObject" (intnum%)
  77. Declare Function agGetAddressForLong& Lib "Apiguide.dll" Alias "agGetAddressForObject" (intnum&)
  78. Declare Function agGetAddressForLPSTR& Lib "Apiguide.dll" Alias "agGetAddressForObject" (ByVal lpstring$)
  79. Declare Function agGetAddressForVBString& Lib "Apiguide.dll" (vbstring$)
  80. Declare Function agGetStringFromLPSTR$ Lib "Apiguide.dll" (ByVal lpstring$)
  81. Declare Function agGetControlName$ Lib "Apiguide.dll" (ByVal hwnd%)
  82. Declare Function agPOINTAPItoLong& Lib "Apiguide.dll" (pt As POINTAPI)
  83. Declare Function agPOINTStoLong& Lib "Apiguide.dll" Alias "agPOINTAPItoLong" (pt As POINTS)
  84. Declare Sub agDWORDto2Integers Lib "Apiguide.dll" (ByVal l&, lw%, lh%)
  85. Declare Function agXPixelsToTwips& Lib "Apiguide.dll" (ByVal pixels%)
  86. Declare Function agYPixelsToTwips& Lib "Apiguide.dll" (ByVal pixels%)
  87. Declare Function agXTwipsToPixels% Lib "Apiguide.dll" (ByVal twips&)
  88. Declare Function agYTwipsToPixels% Lib "Apiguide.dll" (ByVal twips&)
  89. Declare Function agDeviceCapabilities& Lib "Apiguide.dll" (ByVal hlib%, ByVal lpszDevice$, ByVal lpszPort$, ByVal fwCapability%, ByVal lpszOutput&, ByVal lpdm&)
  90. Declare Function agDeviceMode% Lib "Apiguide.dll" (ByVal hwnd%, ByVal hModule%, ByVal lpszDevice$, ByVal lpszOutput$)
  91. Declare Function agExtDeviceMode% Lib "Apiguide.dll" (ByVal hwnd%, ByVal hDriver%, ByVal lpdmOutput&, ByVal lpszDevice$, ByVal lpszPort$, ByVal lpdmInput&, ByVal lpszProfile&, ByVal fwMode%)
  92. Declare Function agInp% Lib "Apiguide.dll" (ByVal portid%)
  93. Declare Function agInpw% Lib "Apiguide.dll" (ByVal portid%)
  94. Declare Sub agOutp Lib "Apiguide.dll" (ByVal portid%, ByVal outval%)
  95. Declare Sub agOutpw Lib "Apiguide.dll" (ByVal portid%, ByVal outval%)
  96. Declare Function agHugeOffset& Lib "Apiguide.dll" (ByVal addr&, ByVal offset&)
  97. Declare Function agVBGetVersion% Lib "Apiguide.dll" ()
  98. Declare Function agVBSendControlMsg& Lib "Apiguide.dll" (ctl As Control, ByVal msg%, ByVal wp%, ByVal lp&)
  99. Declare Function agVBSetControlFlags& Lib "Apiguide.dll" (ctl As Control, ByVal mask&, ByVal value&)
  100. Declare Sub agVBScreenToClient Lib "Apiguide.dll" (ctl As Control, pap As POINTS)
  101. Declare Sub agVBClientToScreen Lib "Apiguide.dll" (ctl As Control, pap As POINTS)
  102. Declare Function dwVBSetControlFlags& Lib "Apiguide.dll" (ctl As Control, ByVal mask&, ByVal value&)
  103.  
  104. #End If
  105.  
  106.