Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение имени файла / 6 сообщений из 6, страница 1 из 1
17.05.2005, 15:40:49
    #33069847
Наивный мальчик
Наивный мальчик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
Привет, люди.
Visual Basic 6.
Есть TextBox, есть справа от него кнопка с "...". Как сделать так, чтоб по нажатии на эту кнопку, выводился стандартный диалог выбора файла, а потом по нажатии кнопки ОК имя выбранного файла присваивалось в этот TextBox. (Помню в Фоксе есть GetFileName или что-то такое. А тут не знаю как сделать.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2005, 17:00:30
    #33070174
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
вставляй Common Dialog Control и юзай метод FileOpen
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2005, 18:26:31
    #33070469
Наивный мальчик
Наивный мальчик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
Нет, не пойдет. Нужно именно так сделать. Что ж никто функцию не помнит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2005, 18:51:27
    #33070531
Aklin
Aklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
А-ля InputBox не пойдёт?

Кстати, вызвать стандартный диалог никак не получиться.
Подумай, стали бы люди тогда создавать CommonDialog???

Можно ещё через одно дело и АПИ сделать. Но через именно это место.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2005, 13:51:29
    #33126657
Focus_NEW
Focus_NEW
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
Высылаю класс модулей. Вставь его в свой проект.
А вызов окна для выбора файл приведен ниже.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub OpenFile_Click()
Dim cdl As CommonDlg
Set cdl = New CommonDlg
cdl.hWndOwner = Me.hWnd
cdl.CancelError = True
cdl.Filter = "SQL Files (*.sql)|*.sql"
cdl.OpenFlags = cdlOFNNoChangeDir
cdl.InitDir = "C:\" 'CurrentProject.Path
cdl.DialogTitle = "Выбор файла для выполнения"
cdl.DefaultExt = "sql"
cdl.ShowOpen
NameFileMDB = Nz(cdl.FileName, "") 
End Sub

Кстати может кто подскажет, почему у меня CurrentProject.Path неработает
Ругается так
Код: plaintext
Method 'Path' of object '_CurrentProject' failed
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2005, 13:52:40
    #33126662
Focus_NEW
Focus_NEW
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение имени файла
Что то файл не прклеился.
Вот еще раз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Получение имени файла / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167596]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 235ms
total:  332ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]