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 / vbpg32 / samples5 / vbdll / vbdll.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-13  |  3.3 KB  |  52 lines
  1. Attribute VB_Name = "VBDLLModule"
  2. ' Type defintions for VBDLL.bas
  3. ' Copyright (c) 1995-1997, by Desaware
  4. ' All rights reserved
  5.  
  6. ' User defined type used in several examples
  7. Type UserType
  8.     a As Integer
  9.     b As Integer
  10.     c As Integer
  11.     d As Integer
  12.     s As String
  13.     e(5) As Integer
  14.     s2 As String * 4
  15.     st As Integer
  16. End Type
  17.  
  18. Declare Function ReceivesInteger% Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x%)
  19. Declare Function ReceivesBytes Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal a As Byte, ByVal b As Byte) As Byte
  20. Declare Function ReceivesLong& Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x&)
  21. Declare Function ReceivesSingle! Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x!)
  22. Declare Function ReceivesDouble# Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x#)
  23. Declare Function ReceivesCurrency@ Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x@)
  24. Declare Sub Add5ToInteger Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (x%)
  25. Declare Sub Add5ToLong Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (y&)
  26. Declare Sub Add5ToSingle Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (f!)
  27. Declare Sub Add5ToDouble Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (d#)
  28. Declare Sub AddPennyToCurrency Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (c@)
  29. Declare Sub ReceivesString Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal s$)
  30. Declare Sub ChangesString Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal s$)
  31. Declare Function GetControlHwnd% Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ctl As Control)
  32. Declare Function GetFormHwnd% Lib "D:\src2\zdbook\WinDebug\apigid32.dll" Alias "GetControlHwnd" (frm As Form)
  33. Declare Sub ReceivesVBString Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (s$)
  34. Declare Sub ChangesVBString Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (s$)
  35. Declare Function ReturnsVBString$ Lib "D:\src2\zdbook\WinDebug\apigid32.dll" ()
  36. Declare Sub ReceivesUserType Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (u As UserType)
  37. Declare Sub AddUserString Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (u As UserType)
  38. Declare Function ReturnUserType Lib "D:\src2\zdbook\WinDebug\apigid32.dll" () As UserType
  39. Declare Sub ReceivesIntArray Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (i As Integer)
  40. Declare Function ReceivesVBArray% Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (x() As Integer)
  41. Declare Function ReceivesVariantByVal% Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal x As Variant)
  42. Declare Function ReceivesVariant Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (x As Variant) As Variant
  43. Declare Function UsesDate Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal d As Date) As Date
  44. Declare Sub ReceivesObject Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal o As Object)
  45. Declare Function ReceivesObject2 Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal o As Object) As Object
  46. Declare Sub ChangesObject Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal o As Object, d As Object)
  47. Declare Function passint Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (i As Integer) As Integer
  48. Declare Function ShowAddress Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (o As Any) As Long
  49. Declare Sub DumpValues Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal l As Long, ByVal c As Integer)
  50. Declare Sub ChangeValues Lib "D:\src2\zdbook\WinDebug\apigid32.dll" (ByVal l As Long, nv As Any, ByVal c As Integer)
  51.  
  52.