powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь к файлу
12 сообщений из 12, страница 1 из 1
Путь к файлу
    #32305552
Maximusss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как в диалоге OpenDialog при нажатии на кнопку открыть, файл не открывался а в TextBox' е появился путь к файлу ??????
...
Рейтинг: 0 / 0
Путь к файлу
    #32305561
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Private Sub cmdView_Click()

CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.ShowOpen 'Запуск диалога открытия файла фактуры
If CommonDialog1.FileName = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
InputFileTxt.Text = CommonDialog1.FileName 'иначе вставляем в TextBox имя выбранного файла
End If

End Sub
...
Рейтинг: 0 / 0
Путь к файлу
    #32305563
Maximusss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что такое CommonDialog и где его взять ?????????
...
Рейтинг: 0 / 0
Путь к файлу
    #32305613
DionX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
project-->components-->ms commondiolog - ставь галку. На панели инструментов появитса новый значёк - енто и есть он :)
...
Рейтинг: 0 / 0
Путь к файлу
    #32305620
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пардон, не указал. Это Microsoft Common Dialog Control 6.0 (SP3), файл comdlg32.ocx. Добавляется через меню Project->Components...
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Путь к файлу
    #34214075
Qht
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Qht
Гость
А кроме CommonDialog'а это как можно сделать?
А то у меня VBA в Exclel, не понял как добавить этот инструмент.
...
Рейтинг: 0 / 0
Путь к файлу
    #34214163
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
используй GetOpenFilename

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub f()
    fileToOpen = Application _
        .GetOpenFilename("Text Files (*.txt), *.txt")
    If fileToOpen <> False Then
        MsgBox fileToOpen 
    End If
End Sub
...
Рейтинг: 0 / 0
Путь к файлу
    #34214861
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно еще API, например на vbaccelerator.com есть классы, для отображения диалогов на базе API
...
Рейтинг: 0 / 0
Путь к файлу
    #34220009
RUSYA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если всё же на CommonDialog, это болячая тема... т.к. он если выбрать файл, а потом нажать Отмена, он всёравно возвращает путь к файлу :) Проблема конечно решается сабклассингом, но есть слово лень :)
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Путь к файлу
    #35182479
jenekcowboy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
помогите пожалуста..я вставил в форму обьект Common dialog..А что дальше то делать???при обработке его ничего не выходит в код проги..При запуске проги его на форме не видно..
...
Рейтинг: 0 / 0
Путь к файлу
    #35182706
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Он и не должен быть виден.
Покажите код, который вы написали для вызова диалога.
...
Рейтинг: 0 / 0
Путь к файлу
    #35183043
Фотография IguMEN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RUSYAЕсли всё же на CommonDialog, это болячая тема... т.к. он если выбрать файл, а потом нажать Отмена, он всёравно возвращает путь к файлу :) Проблема конечно решается сабклассингом, но есть слово лень :)

Помимо лени есть еще и свойство commondialog1.cancelerror=true
Теперь ручками пиши обработчик отмены. Кажется, код 32755.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь к файлу
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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