ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

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

/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / UTIL / APPSHL.ZIP / APPOPSV.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1991-08-17 | 12.5 KB | 285 lines

AppOpenSave File Open wwwwwwwwwp wwwwwwwwwp wwwwwwwwwp Form1* FileName FileName OKCmd FileNameLbl File &Name: DirectoryLbl Directory: Directory CancelCmd &Cancel FilesLbl &Files: DirectoriesLbl &Directories: FilesList DirectoriesList TheFocus List1Flag@ Text1Flag TheDriveI LastChange @ Form_Load FormTitle> FOpenFormF Caption7 ThePath File1 ThePattern Pattern Text1b Textr Label1 Form_GotFocus| List1 List1_GotFocus GetFocus SendMessageY LB_DIR BuildSpec SelStart SelLength Visible List1_Dblclick ListIndex curnt OldPath ChangeDrive ErrState LB_RESETCONTENT List1_KeyPress} KeyAsciik File1_Click FileName File1_KeyPress File1_DblClick Command1_Click Text1_Keypress temp; RemoveSpaces Listcount< TheFileNameV Foundit true7 false tempo ProcessEntry ChangeDir TheStructv OfStruct OpenFileQ OF_EXIST lclose0 FullName Text1_Changes List1_Click TheText1 Command2_Clickz fpath Text1_GotFocus maxi% TextLimit[ EM_LIMITTEXT CompleteName ErrCodeK DirLabel_Clickc Label4_Click Command1_DragDropf Source Command1_DragOver State Command1_GotFocus) Command2_DragDrop& Command2_DragOver Command2_GotFocus Command2_KeyDown{ KeyCodeq ShiftS Command2_KeyPressh Command2_KeyUp FilesLabel_Click~ FNameLabel_Click Label1_Click CE_Path CE_FileName CE_FullFileName CEOpenSave CE_Drive CE_FormTitle CE_SaveOpenTitleC CE_OpenSaveTitled CE_FilePattern UpdateDirList SetFileLimit CurFocus> App_Driver App_OpenSaveTitle App_FilePattern9 App_Path App_FileName App_FullFileName AppOpenSave App_OpenSaveStyle APPOPEN App_OpenTitle| App_SaveTitle APP_OPEN invoke Remove_Items_from_Sysmenu^ AppAbout Screen Width Height FilesLabele DirLabelS Command1Y Enabled APP_SAVE1 tryingj drive App_DialogReturn3 IDCANCEL MB_ICONSTOP FileName_Change CancelCmd_Click- DirectoriesLbl_ClickF DirectoriesList_Click Directory_Click OKCmd_Click FileName_KeyPress$ FileList DirectoriesList_Dblclick FilesList_Click FilesList_DblClick FileList1 FileList_DblClick FilesList_KeyPress DirectoriesList1 DirectoriesList DirectoryLabela @ DirectoriesList_GotFocus} @ DirectoriesList_KeyPress FileNameText1 OKCmd: FileName_GotFocus DirectoryLbl FilesLbl DirectoriesLbl FilesLbl_Click FileNameLbl_Click DirectoryLbl_Click Directory FilesList Validate_FileName MustExist" FileNameError Exit_Function FILE_NOT_FOUND MB_ICONEXCLAMATION< APP_NAME CurFo DirectoryList FunctionExitk AppMain MB_QUESTIONr MB_YESNO IDYES MB_EXCLAMATION MB_DEFBUTTON2 estIf$ DuplicateFilec SaveDuplicate App_FileExtension FilesName SplitFileName fqual LastOne1 PATH_NOT_FOUND] pqual Validate_SaveFileName CheckFileQualH TempSub! Validate_SAve Validate_OpenFileName FileExists Exit_OpenFunction OpenFileNameError SaveFileNameError Exit_SaveFunction FileNotFound FirstCheck OldPattern RefreshDirectoriesList Place_DialogBox_in_Form MousePointer HOURGLASS DEFAULTt Form_Load Update Drive/Subdirectory listbox first time Limit text length of file name first time load dialog box caption File Open" File Save As load the path set the pattern load default file namea adjust the dialog's controls for open or save Form_GotFocus Set the Focus to fill the ListBox RemoveSpaces BuildSpec CancelCmd_Click DirectoriesList_Click FileName_Change OKCmd_Click FilesList_Click FilesList_DblClick duplicate file name on save Replace Existing " do not save the file!"u FilesList_KeyPress DirectoriesList_Dblclick DirectoriesList_GotFocus first time load of directories list DirectoriesList_KeyPress check if the user presses the Return key while on a valid entry FileName_GotFocus limit the text entry to not more than 127 characters FileName_KeyPress get rid of the beep do save checking here - add extension if user forgott open file checkingh Validate_SaveFileName first assign any path change enteredr now check the the file name portion if it exists already a dblclick will be generated ine the files list control otherwise a file error will be generated (i.e. file not found, bad file name ) directory changeh Directory does not exist;" check to ensure you specified the correct directory. check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension." No spaces, commas, or backslashes (/) are allowed. CheckFileQual too many .h Validate_OpenFileName first assign any path change entered now check the the file name if it exists already a dblclick will be generated in the files list control otherwise a file error will be generated (i.e. file not found, bad file name ) must have been a directory or pattern change only so update dir. list Cannot find check to ensure that the path and file are correct." Directory does not exist;" check to ensure you specified the correct directory. check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension." No spaces, commas, or backslashes (/) are allowed. RefreshDirectoriesList