home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / landau / global.bas < prev    next >
BASIC Source File  |  1991-12-18  |  3KB  |  74 lines
  1. Global LoadText As String
  2. Global LandauText As String
  3. Global OverviewText As String
  4. Global ServicesText As String
  5. Global ApplicationsText As String
  6. Global TrainingText As String
  7. Global BiographiesText As String
  8.  
  9. Global FileName As String
  10. Global FullPathName As String
  11.  
  12. Global DetailTopic As Integer
  13. Global Const OverviewTopic = 1
  14. Global Const ServicesTopic = 2
  15. Global Const ApplicationsTopic = 3
  16. Global Const TrainingTopic = 4
  17. Global Const BiographiesTopic = 5
  18.  
  19. Global Overview(10) As String
  20. Global Services(20) As String
  21. Global Applications(20) As String
  22. Global Training(20) As String
  23. Global Biographies(10)  As String
  24.  
  25. Global CalcHWnd As Integer
  26. Global NoteHWnd As Integer
  27.  
  28. ' Special TYPEs used by File Dialog routines
  29.  
  30. Type MhGetFileType
  31.      HWnd As Integer            ' Form's hWnd
  32.      FilterIndex As Long        ' Which Filter to use as default
  33.      InitFileName As String     ' Used to initialize File Name edit control
  34.      FormCaption As String      ' Caption for File Form
  35.      InitDir As String          ' Initial directory. Null for CurDir$
  36.      DefaultExtension As String     ' Default extension to use (no period)
  37.      HowManyFilters As Integer      ' In the other array
  38.      Flags As Long          ' See manual
  39.      RawNamePos As Integer      ' Returned as Instr in Result$ where raw file name begins
  40.      ExtensionPos As Integer        ' Returned as Instr in Result$ where extension begins
  41. End Type
  42.  
  43. Type MhFileFilterType
  44.      Description As String      ' i.e., "Text Files"
  45.      Mask As String         '       "*.txt;*.doc;*.bas
  46. End Type
  47.  
  48.  
  49. Rem Declare Function MhGetOpenFileName$ Lib "muscle.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  50. Rem Declare Function MhGetSaveFileName$ Lib "muscle.vbx" (X As MhGetFileType, Y As MhFileFilterType)
  51. Rem Declare Function MhGetFileTitle$ Lib "muscle.vbx" (ByVal A$)
  52. Rem Declare Function MhCtrlHwnd% Lib "muscle.vbx" (A As Control)
  53. Rem Declare Function MhEcode% Lib "muscle.vbx" ()
  54. Rem Declare Function MhExePath$ Lib "muscle.vbx" (ByVal HWnd%)
  55.  
  56. Declare Function WinHelp Lib "User" (ByVal HWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, ByVal dwData As Long) As Integer
  57. Declare Function GetFocus Lib "User" () As Integer
  58. Declare Function SetAppFocus Lib "User" Alias "SetFocus" (ByVal HWnd As Integer) As Integer
  59. Declare Function ShowWindow Lib "User" (ByVal HWnd As Integer, ByVal nCmdShow As Integer) As Integer
  60. Declare Function IsWindow Lib "User" (ByVal HWnd As Integer) As Integer
  61. Declare Function DestroyWindow Lib "User" (ByVal HWnd As Integer) As Integer
  62. Declare Sub BringWindowTotop Lib "User" (ByVal HWnd As Integer)
  63.  
  64. ' WinHelp command constants
  65.     
  66. Global Const HELP_CONTEXT = &H1 '  Display topic in ulTopic
  67. Global Const HELP_QUIT = &H2    '  Terminate help
  68. Global Const HELP_INDEX = &H3   '  Display index
  69. Global Const HELP_HELPONHELP = &H4  '  Display help on using help
  70. Global Const HELP_SETINDEX = &H5    '  Set the current Index for multi index help
  71. Global Const HELP_KEY = &H101       '  Display topic for keyword in offabData
  72. Global Const HELP_MULTIKEY = &H201
  73.  
  74.