home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / appshell / appopsv.frm (.txt) < prev    next >
Visual Basic Form  |  1980-01-04  |  13KB  |  285 lines

  1. AppOpenSave
  2.     File Open
  3. wwwwwwwwwp
  4. wwwwwwwwwp
  5. wwwwwwwwwp
  6. Form1%
  7. DirectoriesList
  8.     FilesList
  9.     CancelCmd
  10. &Cancel
  11. OKCmd
  12. FileName
  13. FileName
  14. DirectoriesLbl
  15. &Directories:
  16. FilesLbl
  17. &Files:
  18.     Directory
  19. DirectoryLbl
  20. Directory:
  21. FileNameLbl
  22. File &Name:
  23. TheFocus
  24.     List1Flag@
  25.     Text1Flag
  26. TheDriveI
  27. LastChange
  28. @    Form_Load
  29.     FormTitle>
  30.     FOpenFormF
  31. Caption7
  32. ThePath
  33. File1
  34. ThePattern
  35. Pattern
  36. Text1b
  37. Textr
  38. Label1
  39. Form_GotFocus|
  40. List1 
  41. List1_GotFocus
  42. GetFocus
  43. SendMessageY
  44. LB_DIR
  45.     BuildSpec
  46. SelStart
  47.     SelLength
  48. Visible
  49. List1_Dblclick
  50.     ListIndex
  51. curnt
  52. OldPath
  53. ChangeDrive
  54. ErrState
  55. LB_RESETCONTENT
  56. List1_KeyPress}
  57. KeyAsciik
  58. File1_Click
  59. FileName
  60. File1_KeyPress
  61. File1_DblClick
  62. Command1_Click
  63. Text1_Keypress
  64. temp;
  65. RemoveSpaces
  66.     Listcount<
  67. TheFileNameV
  68. Foundit
  69. true7
  70. false
  71. tempo
  72. ProcessEntry
  73.     ChangeDir
  74.     TheStructv
  75. OfStruct
  76. OpenFileQ
  77. OF_EXIST
  78. lclose0
  79. FullName
  80. Text1_Changes
  81. List1_Click
  82. TheText1
  83. Command2_Clickz
  84. fpath
  85. Text1_GotFocus
  86. maxi%
  87.     TextLimit[
  88. EM_LIMITTEXT
  89. CompleteName
  90. ErrCodeK
  91. DirLabel_Clickc
  92. Label4_Click
  93. Command1_DragDropf
  94. Source
  95. Command1_DragOver
  96. State
  97. Command1_GotFocus)
  98. Command2_DragDrop&
  99. Command2_DragOver
  100. Command2_GotFocus
  101. Command2_KeyDown{
  102. KeyCodeq
  103. ShiftS
  104. Command2_KeyPressh
  105. Command2_KeyUp
  106. FilesLabel_Click~
  107. FNameLabel_Click
  108. Label1_Click
  109. CE_Path
  110. CE_FileName
  111. CE_FullFileName
  112. CEOpenSave
  113. CE_Drive
  114. CE_FormTitle
  115. CE_SaveOpenTitleC
  116. CE_OpenSaveTitled
  117. CE_FilePattern
  118. UpdateDirList
  119. SetFileLimit
  120. CurFocus>
  121.     App_Driver
  122. App_OpenSaveTitle
  123. App_FilePattern9
  124. App_Path
  125. App_FileName
  126. App_FullFileName
  127. AppOpenSave
  128. App_OpenSaveStyle
  129. APPOPEN
  130. App_OpenTitle|
  131. App_SaveTitle
  132. APP_OPEN
  133. invoke
  134. Remove_Items_from_Sysmenu^
  135. AppAbout
  136. Screen
  137. Width
  138. Height
  139. FilesLabele
  140. DirLabelS
  141. Command1Y
  142. Enabled
  143. APP_SAVE1
  144. tryingj
  145. drive
  146. App_DialogReturn3    
  147. IDCANCEL
  148. MB_ICONSTOP
  149. FileName_Change
  150. CancelCmd_Click-
  151. DirectoriesLbl_ClickF
  152. DirectoriesList_Click
  153. Directory_Click
  154. OKCmd_Click
  155. FileName_KeyPress$
  156. FileList
  157. DirectoriesList_Dblclick
  158. FilesList_Click
  159. FilesList_DblClick
  160.     FileList1
  161. FileList_DblClick
  162. FilesList_KeyPress
  163. DirectoriesList1
  164. DirectoriesList
  165. DirectoryLabela    @
  166. DirectoriesList_GotFocus}    @
  167. DirectoriesList_KeyPress
  168. FileNameText1
  169. OKCmd:
  170. FileName_GotFocus
  171. DirectoryLbl
  172. FilesLbl
  173. DirectoriesLbl
  174. FilesLbl_Click
  175. FileNameLbl_Click
  176. DirectoryLbl_Click
  177.     Directory
  178.     FilesList
  179. Validate_FileName
  180.     MustExist"
  181. FileNameError
  182. Exit_Function
  183. FILE_NOT_FOUND
  184. MB_ICONEXCLAMATION<
  185. APP_NAME
  186. CurFo
  187. DirectoryList
  188. FunctionExitk
  189. AppMain
  190. MB_QUESTIONr
  191. MB_YESNO
  192. IDYES
  193. MB_EXCLAMATION
  194. MB_DEFBUTTON2
  195. estIf$
  196. DuplicateFilec
  197. SaveDuplicate
  198. App_FileExtension
  199.     FilesName
  200. SplitFileName
  201. fqual
  202. LastOne1
  203. PATH_NOT_FOUND]
  204. pqual
  205. Validate_SaveFileName
  206. CheckFileQualH
  207. TempSub!
  208. Validate_SAve
  209. Validate_OpenFileName
  210. FileExists
  211. Exit_OpenFunction
  212. OpenFileNameError
  213. SaveFileNameError
  214. Exit_SaveFunction
  215. FileNotFound
  216. FirstCheck
  217. OldPattern
  218. RefreshDirectoriesList
  219. Place_DialogBox_in_Form
  220. MousePointer
  221.     HOURGLASS
  222. DEFAULTt
  223. BuildSpec
  224. CancelCmd_Click
  225. CheckFileQual
  226.  too many .h
  227. DirectoriesList_Click
  228. DirectoriesList_Dblclick
  229. DirectoriesList_GotFocus
  230.  first time load of directories list
  231. DirectoriesList_KeyPress
  232.  check if the user presses the Return key while on a valid entry
  233. FileName_Change
  234. FileName_GotFocus
  235.  limit the text entry to not more than 127 characters
  236. FileName_KeyPress
  237.  get rid of the beep
  238.  do save checking here - add extension if user forgott
  239.  open file checkingh
  240. FilesList_Click
  241. FilesList_DblClick
  242.  duplicate file name on save
  243. Replace Existing 
  244. do not save the file!
  245. FilesList_KeyPress
  246. Form_GotFocus
  247.  Set the Focus to fill the ListBox
  248. Form_Load
  249.  Update Drive/Subdirectory listbox first time
  250.  Limit text length of file name first time
  251.  load dialog box caption
  252. File Open
  253. File Save As
  254.  load the path 
  255.  set the pattern
  256.  load default file namea
  257.  adjust the dialog's controls for open or save
  258. OKCmd_Click
  259. RefreshDirectoriesList
  260. RemoveSpaces
  261. Validate_OpenFileName
  262.  first assign any path change entered 
  263.  now check the the file name
  264.  if it exists already a dblclick will be generated in 
  265.  the files list control otherwise a file error will be
  266.  generated (i.e. file not found, bad file name )
  267.  must have been a directory or pattern change only so update dir. list
  268. Cannot find 
  269. check to ensure that the path and file are correct.
  270. Directory does not exist;
  271. check to ensure you specified the correct directory.
  272. check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension.
  273. No spaces, commas, or backslashes (/) are allowed.
  274. Validate_SaveFileName
  275.  first assign any path change enteredr
  276.  now check the the file name portion
  277.  if it exists already a dblclick will be generated ine
  278.  the files list control otherwise a file error will be
  279.  generated (i.e. file not found, bad file name )
  280.  directory changeh
  281. Directory does not exist;
  282. check to ensure you specified the correct directory.
  283. check to ensure the filename has no more than 8 characters followed by a period and a 3-letter extension.
  284. No spaces, commas, or backslashes (/) are allowed.
  285.