home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / apptbook / apptbook.$ / APPTBOOK.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-02-17  |  1.3 KB  |  54 lines
  1. ' ---------------------------------------------------------
  2. '       Copyright (C) 1993 Apex Software Corporation
  3. '
  4. ' You have a royalty-free right to use, modify, reproduce,
  5. ' and distribute the True Grid sample application files
  6. ' (and/or any modified version) in any way you find useful,
  7. ' provided that you agree that Apex Software Corporation
  8. ' has no warranty, obligations, or liability for any sample
  9. ' application files.
  10. ' ---------------------------------------------------------
  11.  
  12. ' Preferences
  13.  
  14. Type apptPrefs
  15.     timeStart As Variant
  16.     timeEnd As Variant
  17.     timeIncrement As Variant
  18. End Type
  19.  
  20. Global Prefs As apptPrefs
  21.  
  22. ' Constants not included elsewhere
  23.  
  24. Global Const LTGREY = &HC0C0C0
  25. Global Const OFF_YELLOW = &H80FFFF
  26. Global Const LTGREEN = &H8000&
  27.  
  28. ' Grid arrays
  29.  
  30. Global ApptTimes(1 To 20) As String
  31. Global ApptInfo(1 To 20) As String
  32. Global ApptSelect(1 To 20) As Integer
  33.  
  34. Sub CenterForm (F As Form)
  35.  
  36. ' Center the specified form within the screen
  37.  
  38.     F.Move (Screen.Width - F.Width) \ 2, (Screen.Height - F.Height) \ 2
  39.  
  40. End Sub
  41.  
  42. Sub Main ()
  43.  
  44.     Prefs.timeStart = TimeValue("8:00am")
  45.     Prefs.timeEnd = TimeValue("6:00pm")
  46.     Prefs.timeIncrement = TimeValue("0:30")
  47.  
  48.     CenterForm ApptForm
  49.     ApptForm.Show
  50.     
  51.  
  52. End Sub
  53.  
  54.