QBasic & Borland Pascal & C

home *** CD-ROM | disk | FTP | other *** search

/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / FVIEW3.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-03-05 | 8.7 KB | 274 lines

Form1 File Viewer (version 3) Form1% FilenameBox FindBox DosBox TextBox MS Serif FilenameLbl Filename Input FindLbl Find Input DosLbl DOS/Win Input FileCom &File ReadCom ToggleReadCom Toggle Read FindFileCom Find File AddFileCom Add File DeleteFileCom Delete File QuickFilename QuitCom SearchCom &Search FindCom CommandCom &Command DosCom DOS Command WinCom Windows Command ToggleOSCom Toggle OS FontCom SystemCom System CourierCom Courier TerminalCom Terminal BoldCom ItalicCom Italic StrikethruCom Strikethru UnderlineCom Underline FontSizeCom Font Size Size9Com $ Size10Com % Size12Com & Size14Com ' Size18Com QuitBtn_Click Form_Click ReadBtn_Click FilenameBox LineInputM TextBox% TextLst_ClickG TextLstn ListCount! ListSize FindBtn_ClickO CurrentLine Text1_Changev FindBox_Change Find| FindBox ListIndex Foundr FilenameBox_Change @ Form_Load MultiLine ScrollBars SelStart SelLength CurrentIndexr CurIndex TextBox_Change Search SelText BadFile EndOfSub[ Command1_Click DosBtn_Click^ DosBox Dummy7 WinBox_Click DosBox_Changee Label1_Clicku FindFileBtn_Click DosLbl_Click Filename( subdirectory ToggleBtn_Click~ ReadBtn Enabled False TrueQ ShowShellsBtn_Click Visible WinBtn_Click DosBtn WinBtn DosLblh Label3_Click FilenameLbl_Click FindLbl_Click ShowOSBtn_Click QuitCom_Click DosCom_Click FileCom_Click$ FindCom_ClickI ToggleReadCom_Clickv ReadCom ReadCom_Click FindFileCom_Click WinCom_Click2 ToggleOSCom_Click WinComB DosCom BadFile2 EndOfSub2 FinCom Checked FindCom1 FindLbl_Change CommandCom_ClickH AddFileCom_Click TheFilename NumFiles QuickFilename QuickFilename_Click Index# DeleteFileCom_Click Caption Form_LinkClose Form_LinkError LinkErr Form_LinkExecute? CmdStr CancelS Form_LinkOpen config ModernComb FontNameT CourierCom ScriptCom FontBold BoldComQ FontItealic ItalicCom FontStrikethru StrikethruCom FontUnderlinev UnderlineCom Size9Com FontSize Size10Com Size12Com Size14Com Size18Com4 FontItalic WindowState ModernCom_Clickg ClearFontComs ClearFontCom2 ClearAppearComg ClearSizeCom BoldCom_ClickG CourierCom_Click ClearFonCom ItalicCom_Click Size10Com_Click Size12Com_Click Size14Com_Click Size18Com_Click Size9Com_Click' StrikethruCom_Click UnderlineCom_Click ScriptCom_Click NormalCom NormalCom_Click SystemCom SystemCom_Click TerminalCom TerminalCom_Click TermnalCom Form1 AddFileCom_Click Enter full file name: increment the menu count load a new menu command BoldCom_Click ClearFontCom ClearSizeCom CourierCom_Click Courier DeleteFileCom_Click Enter number to delete: The number is out-of-range Input Error DosCom_Click invoke the DOSBAT batch file dosbat.bat FindBox_Change FindCom_Click update the index to the current character store the text of the Find box in the variable Find is variable Find empty? nothing to find locate the index of the next substring Find in thed text boxh found a match? Yes! Display the matching text as selected text No! Clear any selected text FindFileCom_Click invoke the DOS dir command with the /se subdirectory option and the /p paginated output option dosbat.bat dir /s/p FindLbl_Change Form_Load get the font name System Courier Terminal Courier get the fond appearance get the font size ItalicCom_Click QuickFilename_Click QuitCom_Click ReadCom_Click obtain filename from the filename text box if filename is an empty string, exitx set error-handler open the file clear variable to reuse it loop to read the text lines from the ASCII file append a new line copy F into text box close the filep exit procedurep * Error-handler Cannot open file File I/O Error Size10Com_Click Size12Com_Click Size14Com_Click Size18Com_Click Size9Com_Click StrikethruCom_Click SystemCom_Click System TerminalCom_Click Terminal ToggleOSCom_Click toggle the Visible property of the DosBox text box, the DosBtn button, the WinBtn button, and the DosLbl label ToggleReadCom_Click UnderlineCom_Click WinCom_Click invoke a Windows application