VPF::Вопрос - Форум программистов

Dina

Дата 7.6.2003, 14:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите, как связать между собой элементы DriveListBox, DirListBox, FileListBox таким, чтобы они работали как стандартный проводник по файлам (т.е. при выборе диска должны отражаться все папки, при выборе папки по кнопке Enter должен отражаться список файлов в этой папке и т.д.). Заранее благодарна за помощь.

GriKo

Дата 7.6.2003, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 7.6.2003
Где: Израиль

Репутация: нет
Всего: нет

У DirListBox и FileListBox надо Path одинаковый поставить, а у DriveListBox и DirListBox - Drive. И вообще они не так называются. Если это нестандартные контролы - то разберайся сама...

Shekspir

Дата 12.7.2003, 07:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 22.6.2003

Репутация: нет
Всего: нет

Вот привожу примерчик кода,
Считается, что на форме есть Эти самые BOXы, textbox
( там будет результат), и кнопка Command1

Код



Private Sub Command1_Click()
Apply
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


Private Sub Apply()
Dim FilePath As String
FilePath = File1.Path
Dim simbol As String
simbol = "\"
Dim dirx As String
dirx = Dir1.Path
If dirx = "c:\" Or dirx = "d:\" Or dirx = "e:\" Or dirx = "f:\" Or dirx = "G:\" Or dirx = "h:\" Or dirx = "I:\" Then simbol = ""
FilePath = dirx + simbol + File1.List(File1.ListIndex)
Form4.Text1.Text = FilePath
End Sub

Private Sub File1_DblClick()
Apply
End Sub

--------------------

Убить Билла 1, 2, 95, 98, 98SE, 2000, ME, XP....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »