home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / FVIEW4.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  10.7 KB  |  159 lines
  1. Form1
  2. File Viewer (version 4)
  3. Form1%
  4.     TogglePct
  5. FindPct
  6. FilenameBox
  7. ReadPct
  8. xxwwxx
  9. xxxxxp
  10. xxxxxp
  11. FindFilePct
  12. FindBox
  13. DosPct
  14. wwwwwwwwwwwwww
  15. wwwwwwwwwwwww
  16. WinPct
  17. wwwwwww
  18. wwwww
  19.     ShowOSPct
  20. wwwwwww
  21. wwwwwww
  22. wwwwwwwwwp
  23. QuitPct
  24. DosBox
  25. TextBox
  26. FilenameLbl
  27. Filename Input
  28. FindLbl
  29. Find Input
  30. DosLbl
  31. DOS/Win Input
  32. QuitBtn_Click
  33. Form_Click
  34. ReadBtn_Click
  35. FilenameBox
  36.     LineInput
  37. TextBox%
  38. TextLst_ClickG
  39. TextLstn
  40.     ListCount!
  41. ListSize
  42. FindBtn_ClickO
  43. CurrentLine
  44. Text1_Changev
  45. FindBox_Change
  46. FindBox
  47.     ListIndex
  48. Found
  49. FilenameBox_Change
  50. @    Form_Load
  51.     MultiLine
  52. ScrollBars
  53. SelStart
  54.     SelLength
  55. CurrentIndexr
  56. CurIndex
  57. TextBox_Change
  58. Search
  59. SelText
  60. BadFile
  61. EndOfSub[
  62. Command1_Click
  63. DosBtn_Click
  64. DosBox
  65. Dummy7
  66. WinBox_Click
  67. DosBox_Changee
  68. Label1_Clicku
  69. FindFileBtn_Click
  70. DosLbl_Click+
  71. Filename5
  72. subdirectory
  73. ToggleBtn_Click
  74. ReadBtnJ
  75. Enabled
  76. False?
  77. TrueQ
  78. ShowShellsBtn_Click
  79. Visible
  80. WinBtn_Click
  81. DosBtn
  82. WinBtn
  83. DosLbl
  84. Label3_Click
  85. FilenameLbl_Click
  86. FindLbl_Click[
  87. ShowOSBtn_Click{
  88. ReadPct_Click
  89. FindPct
  90. Click
  91. FindPct_Click
  92. Picture1_Click
  93. FindFilePct_Click
  94. DosPct_Click
  95. WinPct_Click
  96. WinPct
  97. DosPct
  98. ReadPctn
  99. QuitPct_Click
  100. TogglePct_Click
  101.     TogglePct
  102. Picture
  103. icons
  104. writing
  105. book01b
  106. WindowState
  107. ShowOSPct_Click
  108. ToggleOsPct
  109.     ShowOSPct
  110. DosPct_Click
  111.  invoke the DOSBAT batch file 
  112. dosbat.bat 
  113. FindFilePct_Click
  114.  invoke the DOS dir command with the /s
  115.  subdirectory option and the /p paginatedn
  116.  output option
  117. dosbat.bat dir 
  118.  /s/p
  119. FindPct_Click
  120.  update the index to the current character
  121.  store the text of the Find box in the variable Find
  122.  is variable Find empty?
  123.  nothing to find
  124.  locate the index of the next substring Find in thet
  125.  text boxh
  126.  found a match?e
  127.  Yes! Display the matching text as selected text
  128. \vb\icons\office\crdfle12.ico
  129.  No! Clear any selected text
  130. \vb\icons\office\crdfle11.ico
  131. Form_Load
  132. QuitBtn_Click
  133. QuitPct_Click
  134. ReadPct_Click
  135.  obtain filename from the filename text boxt
  136.  if filename is an empty string, exitx
  137.  set error-handler
  138.  open the file
  139.  clear variable to reuse it
  140.  loop to read the text lines from the ASCII file
  141.  append a new line
  142.  copy F into text box 
  143.  close the filep
  144.  exit procedurep
  145. * Error-handler 
  146. Cannot open file 
  147. File I/O Error
  148. ShowOSPct_Click
  149.  toggle the Visible property of the DosBox text box,
  150.  the DosBtn button, the WinBtn button, and the DosLblL
  151.  label
  152. \vb\icons\computer\key03.ico
  153. \vb\icons\computer\key02.ico
  154. TogglePct_Click
  155. \vb\icons\writing\book01b.ico
  156. \vb\icons\writing\book01a.ico
  157. WinPct_Click
  158.  invoke a Windows application 
  159.