home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VBDB / GFILEBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-08-08  |  7.2 KB  |  197 lines
  1. GetFileBox
  2. Form1*
  3. FileSpec
  4. Command1
  5. Label3
  6. File &Name
  7. Command2
  8. Cancel
  9. Label1
  10. &Files:
  11. Files
  12. Label2
  13. &Directories:
  14. FALSE
  15. ErrorStatus
  16. LoadDir-
  17. AnyForm0
  18. hDlg 
  19. lpPathSpec
  20. nIDListBox
  21. nIDStaticPath
  22.     wFiletype,
  23. dummy
  24. DlgDirList/
  25. itemsg
  26. ListBox
  27. Form_Click
  28.     Form_Load^
  29. WinWidtht
  30. Screen
  31. Width
  32.     WinHieght
  33. Heightx
  34. FileBox
  35. Files_ClickC
  36. FileSpec_ChangeB
  37. ListFile
  38.     ListFiles
  39. ListDrives
  40. ListPath`
  41. Text"
  42. FileSpec
  43. Label1_ClickI
  44. Label2_ClickL
  45. FormHandle
  46. Command2_Click
  47. UpDate
  48. Caption
  49. Form1
  50. NewLoadDir
  51. DirBox2
  52. File_Box
  53. Dir_Box<
  54. List_Box
  55. DriveAndDir
  56.     FilesOnly
  57. DrivesAndDir 
  58. Command1_Clickh
  59. Cursor
  60.     HourGlass
  61. Default
  62. MousePointer
  63. FileSpec_KeyPress
  64. KeyAscii:
  65. UpDateForm
  66. NewFileSpecW
  67. Dirs_Click
  68. Dirs_DblClick
  69. ChangeTo+
  70. Drive
  71. ErrorHandler
  72. Files_DblClicky
  73. Files
  74.     StripPath
  75. Direc
  76. OldDriveW
  77. CUrDriveO
  78. OldPath%
  79. Chdirve
  80. nDriveL
  81. nPath8
  82. nFile
  83. existsb
  84. Exist
  85. F_Exist
  86. FileName
  87. ErrHandZ
  88.     ExitExisty
  89. f_spec
  90. Files_KeyPress
  91. Files_KeyDown
  92. KeyCode
  93. Shift
  94. FileSpec_LostFocus
  95. Files_MouseUp
  96. ButtonO
  97. Files_KeyUp
  98.     File_Mask
  99. Dirs_KeyDown
  100. ProcessDir
  101. DirItem
  102. Dirs_KeyPressk
  103. Dirs_MouseUp
  104. Files_Onlye
  105. GetMask
  106. Dirs_KeyUp
  107. Form_GotFocus
  108. GetFileBox
  109. ThisDir
  110. ThisDir1
  111. ThisDir2
  112. ThisDir3
  113. Path_Click]
  114. Form_LostFocusn
  115. Form_LinkOpen
  116. Cancel=
  117. Form_LinkExecute
  118. CmdStr~
  119. Form_LinkError
  120. LinkErr
  121. Form_LinkClose
  122. Form_KeyUp
  123. Form_KeyPress
  124. Form_KeyDown
  125. Form_DragOver
  126. Source
  127. State
  128. Files_GotFocus
  129. Form_Paint
  130. Form_Resize
  131. Code for Visual Basic 1.0 and Windows 3.0e
  132. (C)1991 Marquis Computing. All Rights Reserved..
  133. File Dialog box manager. Uses Windows system calls to increase
  134. speed and give a dialog box that dosen't have "visual basic"
  135. stamped all over it!
  136. --- these constants are used by GetFileBox formx
  137. Form_Load
  138. Center form 
  139. --- Center forme
  140. --- load the files box
  141. --- display current path
  142. LoadDir
  143. Loads a listbox with a variety of disk file items. Usually the array
  144. of items are file(s), dir(s) or drive(s). Uses a windows system call
  145. for enhanced speed and versatility.v
  146. On entry
  147. ListBox:   the number of the list box (i.e., 1,2 etc.)
  148. Mask$  :   a file specification mask (i.e., *.DBF, ?.DAT, *.SY?)
  149. Item   :   an integer which represents the type of item to load into
  150.  the list box where:
  151.  = read/write files only
  152.  = read-only files
  153.  = hidden filesd
  154.  = system filesd
  155.  &H10
  156.  = sub dirs
  157.  &H20
  158.  = archiveo
  159.  &H4000  = driveso
  160.  &H8000  = force ONLY those items meeting Mask$ and Item%
  161.  criteria to be loaded.h
  162. NOTE:  Items may be OR'd to combine -- for example to load system filesf
  163.  and drives ONLY, you would set up Item% as follows:
  164.  Item% = &H4 Or &H4000 Or &H8000
  165. on exit 
  166. The list box is filled with contents specified (if any found)-
  167. --- get windows handle of form
  168. --- ASCIIZ file spec
  169. --- assign list box number
  170. --- no static path id 
  171. --- assign itemM
  172. --- call windows
  173. Command2_Click
  174. Command1_Click
  175. FileSpec_KeyPress
  176. UpDateForm
  177. Updates a form based on new filespec
  178. Dirs_DblClick
  179. ChangeTo
  180. drive-
  181. Files_DblClick
  182. Files_KeyDown
  183. Files_MouseUp
  184. Files_KeyUp
  185. Dirs_KeyDown
  186. ProcessDir
  187. drivet
  188. directory 
  189. Dirs_MouseUp
  190. GetMask
  191. Dirs_KeyUp
  192. Files_KeyPress
  193. Dirs_KeyPress
  194. Form_Resize
  195. --- load the files box
  196. --- load the dir/drive box
  197.