home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / PARADOX / FILEFORM.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1991-08-10  |  7.3 KB  |  166 lines
  1. FileForm
  2.     File Form
  3. System
  4. Form1*
  5. LAB_FileName
  6. File &Name:
  7. LAB_Directories
  8. &Directories:
  9. TXT_TextBox
  10. LAB_CurrentDir
  11.     FIL_Files
  12. DIR_Dirs
  13. LAB_Drives
  14. Dri&ves:
  15. BTN_Ok
  16. BTN_Cancel
  17. Cancel
  18. DRV_Drives
  19. LastChange
  20. @    Form_Load0
  21. LAB_CurrentDir    
  22. Caption|
  23. DIR_Dirs
  24. path\
  25. HeightR
  26.     FIL_Files
  27. Form_Unload
  28. Cancel
  29. TRUE'
  30. FileForm
  31. CancelOp
  32. ProcessFileSpecu
  33. filespec
  34. MsgBoxResponsep
  35. FALSE
  36. Pattern
  37. TXT_TextBox
  38. textk
  39. MB_YES
  40. HighLightTextBox
  41. SelStart,
  42.     SelLength
  43. IsFileName-
  44. Indexe
  45. OldDir
  46. NewDir"
  47. BTN_Cancel_Click
  48. DIR_Dirs_Change
  49. DIR_Dirs_Click
  50. FIL_Files_Click2
  51. filename
  52. FIL_Files_DblClickm
  53. BTN_OK_ClickJ
  54. FIL_Files_PathChange
  55. FIL_Files_PatternChange^
  56.     ListIndex
  57. TXT_TextBox_Change
  58. DRV_Drives_Change
  59. DRV_Drives
  60. Drive
  61. pdox1
  62. LAB_FileName_Click
  63. LAB_Directories_Click
  64. LAB_CurrentDir_Click
  65. opnbtn_clickD
  66. openbtn_CLICK
  67. pdox1_openbtn_CLICK
  68. apName
  69. flddisp
  70.     listcount7
  71. PXInit
  72. PXSHARED
  73. PXTblClose
  74. pxtbl
  75. PXError
  76. tIndex
  77. pxname
  78. DBPATH
  79. PXOpen
  80. pxrec
  81. PXRecNFlds
  82. nFlds
  83. recdisp
  84.     PXFldName
  85. fldname!
  86.     pxFldType
  87. pxFType
  88. fldTextE
  89. PXRecFirst
  90. PXRecGet:
  91. remember what changed last
  92. Form_Load
  93. Show full path name in a label
  94. No controls have been modified
  95. Align Drives box to Files boxl
  96. Form_Unload
  97.  Don't unload form, just hide it
  98.  Notify Cardfile form of cancellationl
  99. ProcessFileSpec
  100.  This function accepts a string which may be a directory name,
  101.  a wildcard pattern, or a file name.  The function returns TRUE
  102.  if the string is a valid filename, and FALSE if the string is
  103.  either an invalid filename or a directory specification.  If the
  104.  string specifies a directory, ProcessFileSpec() changes the
  105.  current directory and updates the appropriate form controls.
  106.  Note: This procedure expects FileForm's caption to be set to
  107.  one of "File Save As", "File Open" or "File Merge" in order
  108.  to prompt the user appropriately (eg - 'Replace existingd
  109.  file?' during File Save As, or "File not found' duringn
  110.  File Open/Merge).
  111.  FileSpec is a filename or wildcard, not a dir
  112. Filename too long: '
  113. Did user specify a new wildcard pattern?
  114.  We're finished -- got a valid filename?
  115. File Open"
  116. File Merge
  117. No such file: 
  118. Cardfile
  119. File Save As
  120. Replace existing "
  121. Cardfile
  122.  FileSpec was just a directory name
  123.  The user only specified a new drive (handled in IsFileName)
  124. HighLightTextBox
  125. IsFileName
  126.  This function accepts FileSpec, a string, as input, thenm
  127.  checks to see if the string is a valid file path/expression.
  128.  If FileSpec is valid, and specifies a new drive, pattern and/or
  129.  directory, the directory and file list boxes are notified.n
  130.  If FileSpec contains a valid file name, the filename is placedr
  131.  in the form's text edit box and IsFileName() returns a value of
  132.  TRUE.  If FileSpec does not contain a valid file name (ie, it
  133.  contains directory name and/or a new file pattern and/or an
  134.  invalid file/path expression), IsFileName() returns FALSE.n
  135. Remember current directory
  136. Does it specify new drive?
  137. Disk Error
  138. Separate path/filename, try againf
  139. Parse any directory info
  140. NewDir gets text to the left of & including FileSpec's first "\"
  141. FileSpec becomes the text to the right of the first "\"f
  142. Remove ending "\"f
  143. Invalid path: '"
  144. Cardfile
  145. Update file controls
  146. User specified a new, valid dir; update the file controls
  147. BTN_Cancel_Click
  148. DIR_Dirs_Change
  149.  propogate directory changes to other controls
  150. DIR_Dirs_Click
  151. remember that the DIR_Dirs control changed
  152. FIL_Files_Click
  153. echo the selected name in the Text box
  154. FIL_Files_DblClick
  155. we have a final selection from the File Save dialogn
  156. FIL_Files_PathChange
  157. Show the current search pattern in the TXT_TextBox control
  158. FIL_Files_PatternChange
  159. BTN_OK_Click
  160. Text box control was last changedT
  161. Directory list control was last changedT
  162. TXT_TextBox_Change
  163. DRV_Drives_Change
  164.  change the DIR_Dirs control path, it will
  165.  pass the change on to the FIL_Files control
  166.