home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / FILEOPEN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  5.0 KB  |  110 lines
  1. FileForm
  2.     File Form
  3. System
  4. Form1%
  5. cmdOk
  6. txtFileName
  7. *.txt
  8.     cmdCancel
  9. Cancel
  10. filFiles
  11. *.txt
  12. dirDirs
  13. cboFiletype
  14.     drvDrives
  15. Label1
  16. List Files of &Type:
  17. lblFileName
  18. File &Name:
  19. lblDirectories
  20. &Directories:
  21. lblCurrentDir
  22.     lblDrives
  23. Dri&ves:
  24. cboFiletype_Click
  25. cboFiletype
  26.     ListIndex
  27. NewPatternN
  28. txtFileName
  29. TextU
  30. filFiles
  31. Pattern
  32. cmdcancel_Click
  33. FileForm
  34. Empty
  35. cmdOK_ClickB
  36. EXEName
  37. SelStartJ
  38.     SelLength
  39. dirDirs_Change
  40. dirDirs
  41. lblCurrentDir
  42. Caption
  43. drvDrives_Changed
  44.     drvDrives
  45. Drive
  46. filFiles_Click
  47. FileName
  48. filFiles_DblClick
  49. filFiles_PathChange
  50. filFiles_PatternChange
  51. Form_Activate
  52. frmMDIm
  53. ActiveForm5
  54. @    Form_Load
  55. Form_Unload
  56. Cancel
  57. txtFileName_Change
  58. cmdOK
  59. Enabled
  60. cboFiletype_Click
  61.  Text Files (*.txt)t
  62. *.txt
  63.  All Files (*.*)
  64.  reinitialize the file controlse
  65. cmdcancel_Click
  66.  Set the file name text box to null.
  67.  By checking the text property of this text box,
  68.  other procedures can tell if Cancel has beeno
  69.  selected.
  70.  Hide the form
  71. cmdOK_Click
  72. *[;>]*
  73. *[ ,+|/]*
  74. Bad filename
  75.  Display error and select the offending text.
  76. dirDirs_Change
  77.  propogate directory changes to other controls
  78. drvDrives_Change
  79.  change the dirDirs control path, it willt
  80.  pass the change on to the filFiles control
  81. filFiles_Click
  82.  echo the selected name in the Text boxt
  83. filFiles_DblClick
  84.  we have a final selection from the File Save dialog
  85. txtFilename.Text = filFiles.FileName
  86. filFiles_PathChange
  87. filFiles_PatternChange
  88. Show the current search pattern in the txtFileName control
  89. Form_Activate
  90.  If File Open dialog, set Text box to current patternn
  91.  If a File Save dialog, set the text box
  92.  to the current file namee
  93. Save As
  94.  File is not named
  95. Untitled
  96.  File has a name
  97.  initialize file controls
  98.  Clear current selection in Filetype list box 
  99.  Set FileType list box to first item (*.txt)
  100.  highlight the current selection
  101. Form_Load
  102.  display full path name in a label
  103.  add items to List Files of Type list(
  104. Text Files (*.txt)
  105. All Files (*.*)
  106. Form_Unload
  107.  Don't unload form, just hide it
  108. txtFileName_Change
  109.  Disable OK button if no filename.
  110.