home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 16 / QRZ_16.iso / devel / global.bas < prev    next >
BASIC Source File  |  2000-10-29  |  2KB  |  53 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Declare Function QRZInit Lib "qrz32.dll" (ByVal Drive As String) As Integer
  5. Declare Function QRZSearch Lib "qrz32.dll" (ByVal mode%, ByVal Key1 As String, ByVal Key2 As String, ByVal Key3 As String, ByVal Found As String, ByVal Fmt%) As Integer
  6. Declare Function QRZGetNext Lib "qrz32.dll" (ByVal Found As String, ByVal Fmt%) As Integer
  7. Declare Function QRZAdvance Lib "qrz32.dll" (ByVal K%, ByVal Found As String, ByVal Fmt%) As Integer
  8. Declare Function QRZAdvanceTo Lib "qrz32.dll" (ByVal K%, ByVal Found As String, ByVal Fmt%) As Integer
  9. Declare Function QRZBack Lib "qrz32.dll" (ByVal K%, ByVal Found As String, ByVal Fmt%) As Integer
  10. Declare Function QRZGetCount Lib "qrz32.dll" () As Long
  11. Declare Function QRZGetSbPos Lib "qrz32.dll" () As Integer
  12. Declare Function QRZCount Lib "qrz32.dll" (More%) As Long
  13. Declare Sub QRZReformat Lib "qrz32.dll" (ByVal mode%, ByVal Found As String)
  14. Declare Sub QRZField Lib "qrz32.dll" (ByVal Fld%, ByVal Found As String, Retlen%)
  15. Declare Sub QRZSetFilter Lib "qrz32.dll" (ByVal Filtstr As String)
  16. Declare Function QRZExit Lib "qrz32.dll" () As Integer
  17. Declare Function QRZGetEmail Lib "qrz32.dll" (ByVal Cs As String, ByVal ret As String, ByVal Lg As Long) As Long
  18.  
  19. Global Found As String * 256
  20. Global ReturnLen As Integer
  21.  
  22. Global Const QRZCALL = 1
  23. Global Const QRZNAME = 2
  24. Global Const QRZCITY = 3
  25. Global Const QRZZIP = 4
  26. Global Const QRZSTREET = 5
  27.  
  28. Global Const DISP_FMT = 1
  29. Global Const MAIL_FMT = 2
  30. Global Const BOOK_FMT = 3
  31. Global Const RAW_FMT = 4
  32. Global Const DBF_FMT = 5
  33.  
  34. Global Const CALLS = 0
  35. Global Const LNAME = 1
  36. Global Const JR = 2
  37. Global Const Fname = 3
  38. Global Const MI = 4
  39. Global Const DOB = 5
  40. Global Const EFDATE = 6
  41. Global Const EXPDATE = 7
  42. Global Const MAIL_STR = 8
  43. Global Const MAIL_CITY = 9
  44. Global Const MAIL_ST = 10
  45. Global Const MAIL_ZIP = 11
  46. Global Const CLASS = 12
  47. Global Const P_CALL = 13
  48. Global Const P_CLASS = 14
  49. Global Const NUM_FIELDS = 15
  50. Global Const FULLNAME = 100
  51. Global Const FULLCITY = 101
  52.  
  53.