Liren Large Software Subsidy 10

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

/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / INCLUTIL / MAINFORM.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1992-10-12 | 19.6 KB | 398 lines

Mainform MicroHelp $Include Utility System Form1 Frame2 Files to Process System Label1 &Spec FileOpenSpec FileOpenList *.BAS FileOption Files &Matching Spec FileOption Se&lected File Only Frame2 &Directories System FileOpenCurDir FileOpenCombo DirOptions Dir + &Below DirOptions &This Dir only DirOptions Entire Dr&ive Frame2 Include Files System Label1 S&pec IncFileSpec Label3 I&ndent IndentSpacing HScroll1 IncOption Forced &Update IncOption Date/Time &Only MainOption &Add/Update Text MainOption &Remove Text OkButton System . EndButton E&xit System SaveButton Sa&ve System ResetButton R&eset System Label2 7The two controls in this area are invisible at runtime. FileOpenDrive System FileOpenDirList MenuFile &File MenuExit E&xit MenuAbout &About $Include Utility MenuHelp &Help MenuGeneral &General MenuFiles &Files to Process MenuDirectories &Directories MenuInclude &Include Files MenuAdd &Add/Remove Text MenuButtons &Buttons Loading UpdateFileOpenList FileOpenList FormatPath MainForm Pattern FileOpenSpec FileOpenSpec_GotFocus SelStarti SelLengthC FileOpenSpec_KeyPress KeyAsciiW FileOpenSpec_LostFocusu FileOpenDrive_Change FileOpenDrive< DriveH FileOpenCombo_DblClick SavePath FileOpenCombo ListIndex BadDrive2 BadDir2y BadDrive3I FileOpenDirList UpdateCombo5 BadDriveMessage BadPathMessage @ Form_Load ReadIniFile OriginalSpecJ False IncludeV Remark1~ Remark2 Question0 Apostrophe IncludePath DirLevel HScroll1 Value IndentSpacing CaptionN EndButton_Click IncFileSpec_GotFocus IncfileSpecq FileOpenDrive_GotFocus0 FileOpenDirList_GotFocus OkButton_Click FileOption DirOptions Enabled StatusForm KickStart+ FileOption_Click% Index HScroll1_Change1 @ ResetSpec ListCount FileOpenCombo_KeyPressi MenuExit_Click AboutForm| MenuAbout_Click MenuGeneral_Click MenuFiles_Click MenuDirectories_Click MenuInclude_Click MenuAdd_Click MenuButtons_Click SaveButton_Click RememberDefaults SaveForm' AppName PFileName FileExist PrePend Default GetPrivateProfileString RestoreDefaults IncOption MainOption ResetButton_Click DirOptions_Click Visible Active LastSpec BadDrive BadDir@ TryDirG AfterTryDir MhFalse$ UpdateFileOpenList FileOpenSpec_GotFocus FileOpenSpec_KeyPress FileOpenDrive_Change FileOpenCombo_DblClick Save in case of error Read your selection Strip bracketse Change drives Change directories There is a problem with that drive Restore path/drive Form_Load For creating MsgBox statements Suppress bad path error message Breakdown drive/path/filename $INCLUDE:" '$BOF" Include file markerse '$EOF" INCLUDE" Keep track of directory levelse EndButton_Click IncFileSpec_GotFocus FileOpenDrive_GotFocus FileOpenDirList_GotFocus OkButton_Click Because you have selected 'Selected File Only', you must select one file before processing can begin." Selection Error" If you selected Entire Drivei This program cannot distinguish between programs " written for Visual Basic and programs written for other versions of BASIC. If there are any programs on the selected disk " that contain '$INCLUDE statements, and those programs were written for another version of BASIC, they should not be processed by this program. Do you wish to continue? Warning" If you didn't press Yes Load status form FileOption_Click If tagging files, then dir/drive choicesg don't apply Only this dir is valid HScroll1_Change ResetSpec UpdateCombo This procedure updates the list box containing the drives and directories Remove all items from the list boxx xxxFileOpenCombo.Visible = MhFalse If we're in a subdirectorya Add all subdirs Add all subdirs xxxFileOpenCombo.Visible = True FileOpenCombo_KeyPress If you pressed Enter MenuExit_Click MenuAbout_Click Modal MenuGeneral_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). This program is used to emulate the $INCLUDE " statement for Visual Basic programs. " You tell the program which VB source files " to process, which directories to search, " and which $INCLUDE files to process. As each $INCLUDE statement is encountered, " the text from the include file is embedded into your " source file. The text is surrounded by '$BOF and '$EOF " statements, so that future processing of the " program will be successful. (Otherwise, the program could not tell where the $INCLUDE text " begins and ends.)" This program can process TEXT files only. It " cannot process source code saved in binary " format within a .FRM file. If a $INCLUDE statement contains a drive " or path, only the directory where the file " exists is searched. Otherwise, that directory is searched first, " and if not found, the path specified " by the INCLUDE environment variable is searched. " Help - General Information MenuFiles_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). In the textbox labeled 'Spec', enter a file specification that tells the program " which of your source code files to process. You may specify a drive and path in this " field, and you may also use the standard " DOS wildcard characters '?' and '*'. The option buttons tell the program whether to " process only the selected file, or all " files matching the specification you enter." Help - Files to Process" %H{down} MenuDirectories_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). Use the Directories frame to tell this program " which directories on the selected disk should be searched for files matching the specification " entered in the 'Spec' field of the 'Files to Process' frame. The 'Dir + Below' option button tells the program to process the selected files in this directory, as well as all subdirectories " underneath it. Help - Directories to Process" %H{down}{down} MenuInclude_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). To limit processing of $INCLUDE files to either a single include file, or to " include files that match a specification " that includes wildcards, enter " the information in the 'Spec' textbox. 'Indent' value indicates how many spaces to place in your source code ahead of each line from the include file. This is handy when you have nested $INCLUDE files. " Use the scrollbar to change the value. The 'Forced Update' option button tells the program that the text from all $INCLUDE files matching " 'Spec' should be updated, regardless of the file dates and times." 'Date/Time Only' causes the text to be updated " only if the include file is newer than the " source file. (This applies " only to the include file named in your source, " and does not apply to $INCLUDE files that may be embedded within include files.) Help - Include Files %H{down}{down}{down} MenuAdd_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). Add/Update Text tells the program to embed text from the include file into your source file. " After processing, your source file will have a " '$BOF statement immediately under the $INCLUDE " statement, with a '$EOF statement appearing immediately after the embedded text. This is " done so we can tell which text came from the " include file if your source file is processed more than once." The 'Remove Text' option is present so that if " true $INCLUDE support is added to a future " version of Visual Basic, you will be able to remove the embedded text from your source " files. This results in only the $INCLUDE " statements themselves remaining in your source " code file. Help - Add/Remove" %H{down}{down}{down}{down} MenuButtons_Click Using MsgBox for Help is much, much faster than using WinHelp or even a separate form (dialog box). Clicking the OK button tells the program to begin execution. The Exit button simply ENDs the program. The Save button saves your selections to the INCLUTIL.INI file so that when you next run the program, the same selections will be loaded from INCLUTIL.INI and be put into effect. Clicking the Reset button causes all the " options to be restored to their defaults. If you have previously used the Save button, " this results in the same options you had " specified at the time you saved them. Otherwise, it results in the default settings as specified in the main dialog box of this program. Help - Buttons %H{down}{down}{down}{down}{down} SaveButton_Click ReadIniFile Set up parameters for INI filew INCLUTIL INCLUTIL.INI If file exists in current dir, prepend CurDir$i Make it ASCIIZr filespec fileoption diroption" incspec" spacing" incoption" mainoption keep defaults Setup defaults from the form, in case there's no INI file availablem how many items to savee Function returns length No INI file RememberDefaults how many items to saveh RestoreDefaults ResetButton_Click DirOptions_Click This Dir Only Do allow "selected file only" Check Files Matching Spec button Don't allow "selected file only"t FileOpenSpec_LostFocus Avoid recursion See if spec has \ or :a Nope - use CurDir$ + spec Avoid processing if same spec as before if there is a colon Attempt to change to that drive New directory? if there is a new directory Strip trailing backslashy If we can CHDIR to Temp$, then it's a directory If we got here, user entered a dir name Now it's not a spec anymore See if he specified a single file Don't report an error