home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 1.ddi / OPENSAVE.FR_ / OPENSAVE.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  4.0 KB  |  87 lines
  1. frmOpenSave
  2. Form1
  3. cmdOpenSave
  4. Cancel
  5. cmdOpenSave
  6. drvOpenSave
  7. dirOpenSave
  8. filOpenSave
  9. txtOpenSave
  10. lblOpenSave
  11. Dri&ves:
  12. lblOpenSave
  13. lblOpenSave
  14. &Directories
  15. lblOpenSave
  16. File &Name:
  17. cmdOpenSave_ClickQ
  18. Index\
  19. frmOpenSaved
  20. Caption
  21. dirOpenSave
  22. OpenFile
  23. FileName
  24. txtOpenSave
  25.     CloseFile
  26. dirOpenSave_Change
  27. filOpenSave
  28. lblOpenSave/
  29. drvOpenSave_Change>
  30. drvOpenSave|
  31. Driveq
  32. filOpenSave_Click
  33.     ListIndex
  34. filOpenSave_DblClick
  35. @    Form_Load
  36. Screen
  37. Width
  38. Height
  39. Form_QueryUnload
  40. Cancel
  41. UnloadMode
  42. DoUnLoadPreCheck
  43. txtFileName7
  44. filOpenSave_PatternChange
  45. DStop
  46. filOpenSave_PathChange
  47. Pattern
  48. Form_Activate
  49. CurDrive
  50. cmdOpenSave_Click
  51.  OK button pressed. 
  52.  Something wrong with supplied path or filename.
  53.  Bad path or filename,
  54.  so report that error.
  55.  Error was file didn't exist, but saving so that's ok.
  56.  File doesn't exist, and opening file, so report error.a
  57. File doesn't exist.
  58.  If the OK button wasn't pressed thenf
  59.  Cancel must have been so unload the dialog.
  60. dirOpenSave_Change
  61.  When the directory path changes, update the file list box patht
  62.  and the path displayed above the directory list box.s
  63.  Set the current working directory to the new path.r
  64. drvOpenSave_Change
  65.  When drive changes, update path of directory list box
  66.  and set the current working drive to the new drive.
  67. filOpenSave_Click
  68.  Display the file selected in the text box up in the File Name text box.
  69. filOpenSave_DblClick
  70.  When at root of drive, there is no "\" at the end of the path, so add it.
  71.  Check to see if "Open" or "Save" dialog.e
  72.  If "Open" then get the file name and open the file.
  73.  General procedure opens filer
  74.  If "Save" then get the file name and save the file.
  75.  General procedure closes file
  76. filOpenSave_PathChange
  77.  Notice that this doesn't cause a cascading event.
  78. filOpenSave_PatternChange
  79.  Notice this doesn't cause a cascading event.v
  80. Form_Load
  81.  The form is horizontally and vertically centered when loaded.
  82.  Set current drive and directory.
  83.  Display the current path.
  84. Form_QueryUnload
  85.  The general procedure DoUnLoadPreCheck handles the possible unload optionsx
  86.  for all three forms in this sample application.
  87.