home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 6 / Eagles_Nest_Mac_Collection_Disc_6.TOAST / Windows / VisBasAPIex / VBAPIGUIDE.image / DLLPARAM.ZIP / DLLPARAM.BAS < prev    next >
BASIC Source File  |  1993-05-08  |  2KB  |  42 lines
  1. ' Type defintions for dllparam.bas
  2. ' Copyright (c) 1992, by Desaware
  3. ' All rights reserved
  4.  
  5. ' User defined type used in several examples
  6. Type usertype
  7.     a As Integer
  8.     b As Integer
  9.     c As Integer
  10.     d As Integer
  11.     s As String
  12.     e(5) As Integer
  13. End Type
  14.  
  15. Declare Function ReceivesInteger% Lib "DLLPARAM.DLL" (ByVal x%)
  16. Declare Function ReceivesLong& Lib "DLLPARAM.DLL" (ByVal x&)
  17. Declare Function ReceivesSingle! Lib "DLLPARAM.DLL" (ByVal x!)
  18. Declare Function ReceivesDouble# Lib "DLLPARAM.DLL" (ByVal x#)
  19. Declare Function ReceivesCurrency@ Lib "DLLPARAM.DLL" (ByVal x@)
  20. Declare Sub Add5ToInteger Lib "DLLPARAM.DLL" (x%)
  21. Declare Sub Add5ToLong Lib "DLLPARAM.DLL" (y&)
  22. Declare Sub Add5ToSingle Lib "DLLPARAM.DLL" (f!)
  23. Declare Sub Add5ToDouble Lib "DLLPARAM.DLL" (d#)
  24. Declare Sub AddPennyToCurrency Lib "DLLPARAM.DLL" (c@)
  25. Declare Sub ReceivesString Lib "DLLPARAM.DLL" (ByVal s$)
  26. Declare Sub ChangesString Lib "DLLPARAM.DLL" (ByVal s$)
  27. Declare Function GetControlHwnd% Lib "DLLPARAM.DLL" (ctl As Control)
  28. Declare Function GetFormHwnd% Lib "DLLPARAM.DLL" Alias "GetControlHwnd" (frm As Form)
  29. Declare Sub ReceivesVBString Lib "DLLPARAM.DLL" (s$)
  30. Declare Sub ChangesVBString Lib "DLLPARAM.DLL" (s$)
  31. Declare Function ReturnsVBString$ Lib "DLLPARAM.DLL" ()
  32. Declare Sub ReceivesUserType Lib "DLLPARAM.DLL" (u As usertype)
  33. Declare Sub AddUserString Lib "DLLPARAM.DLL" (u As usertype)
  34. Declare Sub ReceivesIntArray Lib "DLLPARAM.DLL" (i As Integer)
  35. Declare Function ReceivesVBArray% Lib "DLLPARAM.DLL" (x() As Integer)
  36. Declare Function ReceivesVariantByVal% Lib "DLLPARAM.DLL" (ByVal x As Variant)
  37. Declare Function ReceivesVariant Lib "DLLPARAM.DLL" (x As Variant) As Variant
  38.  
  39. Declare Function callitback2& Lib "DLLPARAM.DLL" (ByVal procaddr&)
  40. Declare Function callitback& Lib "DLLPARAM.DLL" (ByVal procaddr&)
  41.  
  42.