home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / FILEBOX.ZIP / FILEBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-10-21  |  5.3 KB  |  106 lines
  1. FileBox
  2.     Open File
  3. Form1,
  4. Label2
  5. File Name:
  6. Text1
  7. Label3
  8. Files:
  9. Label1
  10. File1
  11. Label4
  12. Directories:
  13. List1
  14. Drive1
  15. Command2
  16. Command1
  17. &Cancel
  18. LastChange
  19. CurDirectory$
  20. ASCII_ENTER4
  21. WM_USER
  22. LB_RESETCONTENT
  23. SendMessageT
  24. wParam
  25. lParam2
  26. GetFocus
  27. PutFocus
  28. Drive1_ChangeL
  29. Dir1G
  30. Patha
  31. Drive1
  32. Drive
  33. List1_Update
  34. Dir1_Change
  35. File1
  36. Label1v
  37. Captions
  38. Command2_Click
  39. Command1_Click
  40.     Form_Load
  41. RefreshFiles
  42. Text1
  43. SelStart!
  44.     SelLength+
  45. Text1_LostFocus
  46. Patternj
  47. Text1_KeyPress
  48. KeyAscii
  49. ClearListBox
  50. List1
  51. DirPos
  52.     ListCount
  53.     DiskStart
  54. FindLast
  55. needle
  56. haystack
  57. List1_DblClick
  58.     ListIndex
  59. Visible
  60. hWndOld
  61. List1_KeyPress
  62. FBox_Click
  63. DBox_Click
  64. NBox_Click
  65. Command3_Click-
  66. CommandN_GotFocusB
  67. CommandF_GotFocus
  68. CommandD_GotFocus
  69.  FILEBOX declarations and constantsd
  70. SetFocus
  71. Drive1_Change
  72. Dir1_Change
  73. Command2_Click
  74.  OK button pressed
  75. Command1_Click
  76.  Cancel button pressed
  77. Form_Load
  78. Text1_LostFocus
  79. RefreshFiles
  80.  If File1.ListIndex >= 0 Then
  81.   Path$ = Dir1.Path 
  82.   If Right$(Path$, 1) = "\" Then
  83.    Label1.Caption = Dir1.Path + File1.Filename
  84.  Elseb
  85.    Label1.Caption = Dir1.Path + "\" + File1.Filename
  86.   End If
  87.  Else 
  88.   Label1.Caption = " "
  89.  End If1
  90. Text1_KeyPress
  91. List1_Update
  92. FindLast
  93. List1_DblClick
  94.  Change to the parent directory
  95.  This is a drive spec
  96.  This is a subdirectory of the current directory
  97. ClearListBox
  98. List1_KeyPress
  99. FBox_Click
  100. DBox_Click
  101. NBox_Click
  102. Command3_Click
  103. CommandN_GotFocus
  104. CommandF_GotFocus
  105. CommandD_GotFocus
  106.