QBasic & Borland Pascal & C

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

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

Wrap

Visual Basic Form | 1993-03-05 | 9.1 KB | 279 lines

Form1 Window Editor (Ver. 2) Form1% DosBox CaseSenseChk Case Sensitive FilenameBox FindBox TextBox Courier DosLbl DOS/Win Input FilenameLbl Filename Input FindLbl Find Input FileCom &File LoadCom SaveCom ToggleLoadCom Toggle Load ReadOnlyCom Read-Only FindFileCom Find File AddFileCom Add File DeleteFileCom Delete File QuickFilename QuitCom EditCom &Edit CutCom CopyCom PasteCom Paste ClipboardCom C&lipboard ViewCom View Clipboard ClearCom Clear AppendCom Append SearchCom &Search FindCom FindSelTextCom Find Selected Text CommandCom &Command DosCom DOS Command WinCom Windows Command ToggleOSCom Toggle OS 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_Change2 Search SelText BadFileU 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 Visiblel WinBtn_Click DosBtn WinBtn DosLblh Label3_Click FilenameLbl_Click FindLbl_Click ShowOSBtn_Click QuitCom_Click DosCom_Click FileCom_Click$ FindCom_ClickI ToggleReadCom_Clickp ReadCom ReadCom_Click FindFileCom_Click WinCom_Click ToggleOSCom_Click WinComY DosCom9 BadFile2 EndOfSub2 FinCom Checked@ FindCom1 FindLbl_Change CommandCom_ClickH AddFileCom_Click theFilename NumFiles QuickFilenameu QuickFilename_Click Index DeleteFileCom_Click Caption Form_LinkCloseD Form_LinkError LinkErr| Form_LinkExecuteL CmdStr Cancel_ Form_LinkOpen config LoadCom_Click SaveCom_ClickM SaveAsCom_Click NewFilename CutCom_Clickj Clipboard CF_TEXT First StrLen CopyCom_Click AppendCom_Click PasteCom_Click LoadCom WindowState< Leng~ ToggleLoadCom_Click ApeendCom_Click ClearCom_Click ViewCom_Click ViewFile ViewClipboard theFileText) ViewCom ClearCom AppendCom BadSaveFilename ExitSaveFile FontName FontSizeM ReadOnlyCom_ClickW SaveCom ReadOnly_Com ReadOnlyCom ToggleLoadCom FindSelTextCom_Click CaseSenseChk_Click CaseSenseChk Value Screen ActiveControl KeyStr TextBox_KeyDown KeyCode Shift SHIFT_MASK KEY_F1 KEY_F10 KEY_F9 KEY_F8 KEY_F7 KEY_F6 KEY_F5 KEY_F4 KEY_F3 KEY_F2 CTRL_MASKl declare the strings that store the ten text blockse AddFileCom_Click Enter full file name: increment the menu count load a new menu command AppendCom_Click ClearCom_Click CopyCom_Click CutCom_Click 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 FindSelTextCom_Click Form_Load Courier" LoadCom_Click obtain filename from the filename text boxt 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& PasteCom_Click QuickFilename_Click QuitCom_Click ReadOnlyCom_Click SaveCom_Click * Error-Handler Cannot write to file " File I/O Error& TextBox_KeyDown ToggleLoadCom_Click ToggleOSCom_Click toggle the Visible property of the DosBox text box, the DosBtn button, the WinBtn button, and the DosLbl label ViewCom_Click View Clipboard View File" Clipboard" WinCom_Click invoke a Windows application