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