home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / FVIEW1B.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  3.9 KB  |  127 lines
  1. Form1
  2. File Viewer (version 1B)
  3. Form1%
  4. TextBox
  5. QuitBtn
  6. &Quit
  7.     ShowOSBtn
  8. &Show/Hide OS
  9. WinBtn
  10. &Windows Command
  11. DosBtn
  12. &DOS Command
  13. DosBox
  14. FindBtn
  15. &Find
  16. FindBox
  17. FindFileBtn
  18. F&ind File
  19. ReadBtn
  20. &Read
  21. FilenameBox
  22.     ToggleBtn
  23. &Toggle Read Button
  24. DosLbl
  25. DOS/Win Input
  26. FindLbl
  27. Find Input
  28. FilenameLbl
  29. Filename Input
  30. QuitBtn_Click
  31. Form_Click
  32. ReadBtn_Click
  33. FilenameBox
  34.     LineInput
  35. TextBox%
  36. TextLst_ClickG
  37. TextLstn
  38.     ListCount!
  39. ListSize
  40. FindBtn_ClickO
  41. CurrentLine
  42. Text1_Changev
  43. FindBox_Change
  44. FindBox
  45.     ListIndex
  46. Found
  47. FilenameBox_Change
  48.     Form_Load
  49.     MultiLine
  50. ScrollBars
  51. SelStart
  52.     SelLength
  53. CurrentIndexr
  54. CurIndex
  55. TextBox_Change
  56. Search
  57. SelText
  58. BadFile
  59. EndOfSub[
  60. Command1_Click
  61. DosBtn_Click
  62. DosBox
  63. Dummy7
  64. WinBox_Click
  65. DosBox_Changee
  66. Label1_Clicku
  67. FindFileBtn_Click
  68. DosLbl_Click
  69. Filename
  70. subdirectory
  71. ToggleBtn_Click
  72. ReadBtn
  73. Enabled
  74. False
  75. TrueQ
  76. ShowShellsBtn_Click
  77. Visible
  78. WinBtn_Click
  79. DosBtn
  80. WinBtn
  81. DosLbl
  82. Label3_Click
  83. FilenameLbl_Click
  84. FindLbl_Click
  85. ShowOSBtn_Click
  86. DosBtn_Click
  87.  invoke the DOSBAT batch file 
  88. dosbat.bat "
  89. FindBtn_Click
  90.   ' update the index to the current character
  91.  store the text of the Find box in the variable Find
  92.  is variable Find empty?
  93.  nothing to find
  94.  locate the index of the next substring Find in thet
  95.  text boxh
  96.  found a match?e
  97.  Yes! Display the matching text as selected text
  98.  No! Clear any selected text
  99. FindFileBtn_Click
  100.  invoke the DOS dir command with the /s
  101.  subdirectory option and the /p paginatedn
  102.  output option
  103. dosbat.bat dir "
  104.  /s/p"
  105. QuitBtn_Click
  106. ReadBtn_Click
  107.  obtain filename from the filename text boxs
  108.  if filename is an empty string, exitx
  109.  set error-handler
  110.  open the file
  111.  clear variable to reuse it
  112.  loop to read the text lines from the ASCII file
  113.  append a new line
  114.  copy F into text box 
  115.  close the filep
  116.  exit procedurep
  117. * Error-handler 
  118. Cannot open file "
  119. File I/O Error&
  120. ShowOSBtn_Click
  121.  toggle the Visible property of the DosBox text box,
  122.  the DosBtn button, the WinBtn button, and the DosLblL
  123.  label
  124. ToggleBtn_Click
  125. WinBtn_Click
  126.  invoke a Windows application 
  127.