GetOpenFileName - два фильтра

fireday · Регистрация: 17.04.2013

Студворк — интернет-сервис помощи студентам

Использую api GetOpenFileName для вызова диалога выбора файла
Как сделать один фильтр по двум расширениям? (*.GIF *.7z)

Еще вопрос: есть ли подобный диалог выбора католога, а не файла
Сейчас использую SHBrowseForFolder, что не очень удобно в плане использования юзером

@The trick · 21.11.2013, 17:10

Сообщение от fireday

А если передам параметром при вызове, то подвисает после закрытия (как будто диалог еще не закрылся)

Это не может влиять. Значит что-то не то передаешь.

fireday · 21.11.2013, 17:35 **[ТС]**

The trick, передаваемой переменной не надо тип указывать
Если указываю Long, то подвисает, убираю - все ок
т.е. вот так работает без проблем

Visual Basic
1
Public Function PickFolder(ByVal hwndOwner) As String

какой тип у hwnd? ведь Long... почему когда указываю подвисает?

@The trick · 21.11.2013, 17:38

Сообщение от fireday

The trick, передаваемой переменной не надо тип указывать
Если указываю Long, то подвисает, убираю - все ок
т.е. вот так работает без проблем

Что-то ты не то делаешь. У меня все работает отлично хоть как не передаю.

Сообщение от fireday

какой тип у hwnd? ведь Long... почему когда указываю подвисает?

Да Long. Покажи весь код вместе с вызовом

fireday · 21.11.2013, 19:16 **[ТС]**

The trick, все что я изменил в твоем примере:функцию PickFolder

Сообщение от fireday

Visual Basic
1
2
3
Public Function PickFolder(ByVal hwndOwner As Long) As String
* With OFN
* * .hwndOwner = hwndOwner

и вызов из формы

Visual Basic
1
modGetOpenFolder.PickFolder Me.hwnd

больше ничего не менял - смысл давать весь код нету

После чего и происходит подвисание. А если убрать тип Long передаваемой переменной hwndOwner, то все работает
Так же можно задать параметр .hwndOwner = Form1.hwnd, так подвисание не происходит

з.ы. подвисание происходит только при нажатии кнопки выбора. при нажатии на кнопку отмена все ок

Добавлено через 59 минут
после перезагрузки компа стало подвисать и при

Visual Basic
1
2
3
Public Function PickFolder(ByVal hwndOwner As Long) As String
* With OFN
* * .hwndOwner = hwndOwner

а так же при

Visual Basic
1
.hwndOwner = frmTest.hwnd

тоже стало подвисать
в коде ничего не менял...
Как так...

@The trick · 21.11.2013, 19:33

Попробуй вместо

Visual Basic
1
2
3
If Len(mPath) Then
    DestroyWindow hwndDlg
End If

Написать

Visual Basic
1
2
3
If Len(mPath) Then
    EndDialog hwndDlg, 0
End If

fireday · 21.11.2013, 19:51 **[ТС]**

The trick, заработало! спасибо!

@kreotodr · 23.01.2015, 10:00

Сообщение от Pro_grammer

Ну это вы не искали! Есть код системных диалогов, между прочим файл датирован 1998 г.
"ShowOpen"
"ShowSave"
"ShowColor"
"ShowFont"
"ShowPrinter"
"ShowPageSetupDlg"
Всего 6 штук, столько надо кнопок положить на форму

Добрый день Всем!
Как всегда отдельное спасибо за ответы и помощь The trick, Pro_grammer
Коллеги подскажите как устранить одну неприятную вещь. А именно. При открытии стандартного диалога выбора файла происходит смена текущей директории, (возвращает переменная CurDir).

То-есть, если после вызова диалога и выбора файлов. программа сохраняет какие-то настройки, скажем в INI файл, или пытается найти INI файл, который лежит в одной папке с самой программой, она естественно его не видит...

@Апострофф · 23.01.2015, 10:11

Сообщение от kreotodr

пытается найти INI файл, который лежит в одной папке с самой программой, она естественно его не видит...

App.Path спасёт.

@The trick · 23.01.2015, 18:23

Сообщение от kreotodr

При открытии стандартного диалога выбора файла происходит смена текущей директории

https://www.cyberforum.ru/post6591578.html

@kreotodr · 23.01.2015, 20:14

Трик как всенда респектище!
Оффтоп нужен код на появления уведомления в системном трее....Если есть, конечно....

@The trick · 23.01.2015, 20:28

Сообщение от kreotodr

нужен код на появления уведомления в системном трее....Если есть, конечно....

Один вопрос - одна тема и более развернуто.

@kreotodr · 23.01.2015, 21:46

Спасибо уже нашел...)))

@kreotodr · 25.01.2015, 09:35

Сообщение от The trick

Сообщение от kreotodr
При открытии стандартного диалога выбора файла происходит смена текущей директории
Как избежать смены текущей папки при работе с файлами?

Простите, как правильно использовать данный OFN_NOCHANGEDIR флаг?
Public Const OFN_NOCHANGEDIR = &H8 ???

Добавлено через 16 минут
пробовал, не работает на Win7

@Апострофф · 26.01.2015, 08:19

Сообщение от kreotodr

всенда

Объясните один раз - для чего нужен CURDIR и CURDRIVE вашей программе?

@kreotodr · 26.01.2015, 12:29

Все достаточно просто.
1. загрузили программу из "c:\PRG\1.exe"
2. открыли файл исходных из "d:\tmp\"
3. сохраняем результат в папку по умолчанию с программой "c:\PRG\1.rez"

результат файл будет создан в папке "d:\tmp\1.rez"

@Апострофф · 26.01.2015, 12:42

Сообщение от Апострофф

App.Path спасёт.

И не стоит уповать на папку по умолчанию (CURDIR т.е.).
Её может поменять не только ваша программа! Тогда точно концов не найдете.

fireday · 24.04.2015, 20:55 **[ТС]**

Подниму тему

При выборе каталога методом выше, если вписать имя несуществующего каталога в окно ввода имени файла, происходит вылет -> скрыл окно ввода имени для каталога

Visual Basic
1
2
Private Const cmb13 = &H47C
SendMessage hwndDlg, CDM_HIDECONTROL, cmb13, ByVal 0&

но тему поднял по другой причине:

как лечить? может просто сделать enabled=false? но тогда приятные возможности заблокируются
и, если прятать, какую команду отсылать?
код окна:

Visual Basic
1
Private Const cmb2 = &H471

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943

	GetOpenFileName - два фильтра 07.11.2013, 22:31. Показов 6315. Ответов 56 Метки нет (Все метки) Использую api GetOpenFileName для вызова диалога выбора файла Как сделать один фильтр по двум расширениям? (.GIF .7z) Еще вопрос: есть ли подобный диалог выбора католога, а не файла Сейчас использую SHBrowseForFolder, что не очень удобно в плане использования юзером 0

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	21.11.2013, 19:51 [ТС]
	The trick, заработало! спасибо! 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	23.01.2015, 20:14
	Трик как всенда респектище! Оффтоп нужен код на появления уведомления в системном трее....Если есть, конечно.... 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	23.01.2015, 21:46
	Спасибо уже нашел...))) 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	26.01.2015, 12:29
	Все достаточно просто. 1. загрузили программу из "c:\PRG\1.exe" 2. открыли файл исходных из "d:\tmp\" 3. сохраняем результат в папку по умолчанию с программой "c:\PRG\1.rez" результат файл будет создан в папке "d:\tmp\1.rez" 0