home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / VBTVWR.ZIP / VBT-GLO.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-04  |  2.5 KB  |  70 lines
  1. 'VB-TIPS.TXT File Viewer
  2. 'Copyright 1991 Nelson Ford
  3. 'Public (software) Library
  4. '713-524-6394, CIS: 71355,470
  5.  
  6. 'For distribution only on the MSBASIC forum on CompuServe.
  7. 'Requires VB-TIPS.TXT file on the MSBASIC DL's as VBTIPS.EXE.
  8. 'Users are encouraged to make enhancements to this program.
  9.  
  10. 'To avoid confusion resulting from multiple copies being
  11. '  uploaded, do not upload your "enhanced" version.
  12. 'Either upload your changes or transmit your changes to
  13. '  me and I will integrate them into the program.
  14.  
  15. 'To maximize flexibility and ease of bringing in new data,
  16. '  the VB-TIPS.TXT file that is read by this program was
  17. '  left in its original file. That way, people without this
  18. '  program can easily read it. The only drawback is that
  19. '  it takes a while to read in the data when the program
  20. '  starts.
  21.  
  22. 'Because List Boxes are limited to 64k, the program uses
  23. '  a List Box control array to hold the tips, making the
  24. '  the selected one visible as needed. I could have used
  25. '  a third party add-on, but wanted to keep this useable
  26. '  by everyone. I could have used a Huge Array, but they
  27. '  are slow and a pain to access.
  28.  
  29. 'NOTE: The 6 forms are limited to 900-1000 lines, for a
  30. '  total of 5400-6000 lines. If the VB-TIPS.TXT files gets
  31. '  larger than that, this program will have to be modified
  32. '  to add more TIPS boxes to the control array in Form3.
  33.  
  34. 'Clicking "Clipboard" on the VB-TIPS form copies the
  35. '  current Tip to the Windows Clipboard for importing to
  36. '  your VB apps.
  37.  
  38. DefInt A-Z
  39.  
  40. Global DataPath     As String
  41. Global CR           As String
  42.  
  43. Global Cat(1 To 35)     As String
  44. Global TopicNum(1 To 30)
  45. Global Topic(1 To 500)  As String
  46. Global TipNum(0 To 1, 1 To 500)
  47.  
  48. Global CurTopic
  49. Global LastCat
  50. Global LastTopic
  51. Global Srch As String
  52.  
  53. Global CurrentForm, LastForm
  54.  
  55. 'for forcing forms to top (see "Float" in VB-TIPS.TXT):
  56. Declare Sub SetWindowPos Lib "user" (ByVal hWnd, ByVal hWndInsertAfter, ByVal X, ByVal Y, ByVal cx, ByVal cy, ByVal wFlags)
  57. Declare Function GetWindow Lib "User" (ByVal hWnd, ByVal wCmd)
  58.  
  59. Global Const SWP_Nosize = &H1
  60. Global Const SWP_NoMove = &H2
  61. Global Const SWP_NoActivate = &H10
  62. Global Const SWP_ShowWindow = &H40
  63.  
  64. Declare Function GetActiveWindow Lib "user" ()
  65. Declare Function IsWindow Lib "user" (ByVal hWnd)
  66. Declare Function SetFocusAPI Lib "user" Alias "SetFocus" (ByVal hWnd As Integer) As Integer
  67. Declare Function ShowWindow Lib "user" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  68. Declare Function FindWindow Lib "user" (ByVal Cname As Any, ByVal Caption As Any)
  69.  
  70.