Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / диалог открытия файла / 3 сообщений из 3, страница 1 из 1
07.05.2004, 11:08
    #32510284
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диалог открытия файла
как сделать,чтоб при вызове диалога открытия файла, отображались файлы с нужным мне расширением?
маску делаю так
Код: plaintext
1.
2.
3.
cmDialog.Flags = FileOpenConstants.cdlOFNFileMustExist + FileOpenConstants.cdlOFNHideReadOnly
cmDialog.Filter = "XML files (*.xml)"
cmDialog.ShowOpen
MsgBox cmDialog.FileName

а вот в окне пока все файлы отображаются
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2004, 11:21
    #32510326
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диалог открытия файла
Во как у меня

Private Sub BtEP_Click()
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
Else
TbEP.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла
TbEP.ControlTipText = CommonDialog1.Filename
End If
End Sub

Jojo®
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2004, 15:55
    #32510922
BJ
BJ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диалог открытия файла
Большое спасибо! все работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / диалог открытия файла / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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