home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / alexrk / alex.bas next >
BASIC Source File  |  1980-01-04  |  3KB  |  80 lines
  1. Global Const HelpPath$ = "C:\VB"
  2. Global Const HelpTextFile$ = "ALEXRKT.TXT"
  3. Global Const HelpIndexFile$ = "ALEXRKT.IDX"
  4.  
  5. Global HelpText$
  6. Global NewHelpPath$
  7. Global HelpIndexPath$
  8. Global HelpTextPath$
  9. Global HelpTopic$
  10.  
  11. Global Const MaxNum = 199
  12. Global Const MinNum = 101
  13. Global Const DefaultX = 110
  14. Global Const DefaultY = 110
  15. Global Const WRITEFILE = 1
  16. Global Const READFILE = 2
  17. Global Const ADDTOFILE = 3
  18. Global Const RANDOMFILE = 4
  19. Global Const BINARYFILE = 5
  20. Global Const SAVEFILE = 1
  21. Global Const LOADFILE = 2
  22. Global Const MB_EXCLAIM = 48
  23. Global Const MB_STOP = 16
  24. Global WorkingFileName As String
  25.  
  26. ' File Open error messages
  27. Global Const Err_DeviceUnavailable = 68
  28. Global Const Err_DiskNotReady = 71
  29. Global Const Err_FileAlreadyExists = 58
  30. Global Const Err_TooManyFiles = 67
  31. Global Const Err_RenameAcrossDisks = 74
  32. Global Const Err_PathFileAccessError = 75
  33. Global Const Err_DeviceIO = 57
  34. Global Const Err_DiskFull = 61
  35. Global Const Err_BadFileName = 64
  36. Global Const Err_BadFileNameOrNumber = 52
  37. Global Const Err_FileNotFound = 53
  38. Global Const Err_BadFileMode = 54
  39. Global Const Err_FileAlreadyOpen = 55
  40. Global Const Err_InputPastEndOfFile = 62
  41. Global Const Err_PathDoesNotExist = 76
  42.  
  43.  
  44. Global X, Y, Old_X, Old_Y, New_X, New_Y, Distance, Slope, i2
  45.  
  46.  
  47. '============================================================================'
  48. '                                                                            '
  49. ' Visual Basic global constant file.  This file can be loaded into the       '
  50. ' global module.                                                             '
  51. '                                                                            '
  52. ' Some constants are commented out because they have duplicates (for         '
  53. ' example, NONE appears in several places).                                  '
  54. '                                                                            '
  55. '============================================================================'
  56.  
  57. '========='
  58. '         '
  59. ' General '
  60. '         '
  61. '========='
  62.  
  63. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  64. Global Const BLACK = &H0&
  65. Global Const RED = &HFF&
  66. Global Const GREEN = &HFF00&
  67. Global Const YELLOW = &HFFFF&
  68. Global Const BLUE = &HFF0000
  69. Global Const MAGENTA = &HFF00FF
  70. Global Const CYAN = &HFFFF00
  71. Global Const WHITE = &HFFFFFF
  72.  
  73.  
  74. ' WindowState (form)
  75. Global Const NORMAL = 0                ' 0 - Normal
  76. Global Const MINIMIZED = 1             ' 1 - Minimized
  77. Global Const MAXIMIZED = 2             ' 2 - Maximized
  78.  
  79.  
  80.