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

Новые блоги и статьи Все статьи Все блоги /
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .

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

	GetOpenFileName - два фильтра 07.11.2013, 22:31. Показов 6602. Ответов 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