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

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

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

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

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

@JoraVoenyjHaker · 09.11.2013, 00:39

fireday всегда сначало пробегись взглядом
по коду а потом спрашивай ) а то мало-ли...

Добавлено через 5 минут

Не по теме:

Ладно до завтра я пошол на дело )))

fireday · 09.11.2013, 14:44 **[ТС]**

JoraVoenyjHaker, стараюсь так и делать

@Alex77755 · 09.11.2013, 15:55

Может не совсем понял, что требуется, но мне нравится коротенький:

Visual Basic
1
2
3
4
5
6
7
Private Sub Комманда1_Click()
    Const BIF_RETURNONLYFSDIRS = 1&
    Dim WshShell As Object, WshFolder As Object, ff As Integer, FileName As String
    Set WshShell = CreateObject("Shell.Application") 'New Shell32.Shell
    Set WshFolder = WshShell.BrowseForFolder(Me.hWnd, "Select a Folder", BIF_RETURNONLYFSDIRS)
       MsgBox WshFolder.self.Path
End Sub

Есть даже возможность создания каталога

fireday · 09.11.2013, 17:22 **[ТС]**

Alex77755, интересное решение

@JoraVoenyjHaker · 09.11.2013, 17:35

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

Alex77755, интересное решение

чем оно интересное ?

fireday · 09.11.2013, 18:01 **[ТС]**

JoraVoenyjHaker, не winapi

@The trick · 09.11.2013, 18:03

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

JoraVoenyjHaker, не winapi

Второй пост в теме, я давал ссылку, там тоже самое практически.

@JoraVoenyjHaker · 09.11.2013, 18:32

Проверил )
действительно интересное решение )
я бы даже сказал то что надо )

Добавлено через 5 минут
Понравилось что кода, всего 3 строчки )))

Добавлено через 7 минут
Я вообще-то догадывался что через WshShell As Object можно реализовать
обзор папок просто лень было самому писать )))

Добавлено через 3 минуты
Alex77755 в друзья добавил !

fireday · 10.11.2013, 13:04 **[ТС]**

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

Второй пост в теме, я давал ссылку, там тоже самое практически.

Да, действительно

fireday · 13.11.2013, 00:59 **[ТС]**

Опят возникли проблемы
1) как получить размер окна по его hwnd (что бы расположить по центру, проверить на вылеты окно выбора папки)
2) The trick, каким образом ты узнал

Visual Basic
1
SendMessage hwndDlg, CDM_HIDECONTROL, [B]IDFILETYPECOMBO[/B], ByVal 0&

этот параметр?
3) как вызвать это окно диалогом (т.е. что бы на форму переключиться нельзя было). я так понимаю для этого есть айпишка
4) The trick, если не сложно, пожалуйста, прокомментируй код, хочется понимать как это сделано

@The trick · 13.11.2013, 01:11

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

как получить размер окна по его hwnd (что бы расположить по центру, проверить на вылеты окно выбора папки)

GetWindowRect

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

2) The trick, каким образом ты узнал Код Visual Basic1
SendMessage hwndDlg, CDM_HIDECONTROL, IDFILETYPECOMBO, ByVal 0& этот параметр?

Параметры можно взять отсюда, я просто переименовал на более понятное название.

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

как вызвать это окно диалогом (т.е. что бы на форму переключиться нельзя было). я так понимаю для этого есть айпишка

в структуре OPENFILENAME есть поле hwndOwner, присваивай ему хендл окна, относительно которого окно будет модальным.

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

The trick, если не сложно, пожалуйста, прокомментируй код, хочется понимать как это сделано

Позже, как время будет, тогда прокомментирую и сделаю комбобокс рабочим.

fireday · 21.11.2013, 00:02 **[ТС]**

ошибка "invalid use of addressof operator vb6" когда запихиваю код в контрол
нагуглил что addressof работает только в модулях, так ли это?

поясните пожалуйста зачем нужна и как используется (желательно примерами) функция addressof

Так же хочется немного еще изменить диалог

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

Параметры можно взять отсюда, я просто переименовал на более понятное название. http://www.vsokovikov.narod.ru... trl_id.htm

The trick, ты давал ссылку выше, но я не понял как ты перевел параметр в понимаемый вб6 вид "Private Const IDFILETYPECOMBO = &H470"

@The trick · 21.11.2013, 00:18

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

ошибка "invalid use of addressof operator vb6" когда запихиваю код в контрол
нагуглил что addressof работает только в модулях, так ли это?

Да, но можно обойти и получить адрес методов класса по другому.

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

поясните пожалуйста зачем нужна и как используется (желательно примерами) функция addressof

AddressOf может использоваться только в стандартных модулях, для получения адреса функции, и передаваться в качестве аргумента функции.

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

The trick, ты давал ссылку выше, но я не понял как ты перевел параметр в понимаемый вб6 вид "Private Const IDFILETYPECOMBO = &H470"

Проходишь по ссылке, ищешь, параметр какой надо, потом открываешь файл Dlgs.h (заголовочный файл пользовательского интерфейса диалогов) и ищешь там строку - например cmb1

C++
1
#define cmb1        0x0470

Переводишь в бейсик:

Visual Basic
1
Const cmb1= &H470&

fireday · 21.11.2013, 00:44 **[ТС]**

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

открываешь файл Dlgs.h

Делал поиск по диску С, нашел файл от среды freebasic

Спрятать флажек удалось
А как-то можно изменить размер окна? через SetWindowPos не меняет, т.к. окно статичное

@The trick · 21.11.2013, 01:02

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

А как-то можно изменить размер окна? через SetWindowPos не меняет, т.к. окно статичное

Как делаешь, покажи код?

Добавлено через 3 минуты
Если имеется ввиду изменение размеров мышью - то флаг

Visual Basic
1
Public Const OFN_ENABLESIZING = &H800000

fireday · 21.11.2013, 01:05 **[ТС]**

Добавил в PickFolder входящий параметр "(ByVal hwndOwner As Long)" и код "OFN.hwndOwner = hwndOwner"
после чего форма hwnd которой был передан подвисает (не регеагирует на клики), из среды закрывается успешно (т.е. среда не вылетает)

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

Как делаешь, покажи код?

Visual Basic
1
SetWindowPos hwndDlg, 0, 100, 100, 123, 123, SWP_NOSIZE Or SWP_NOZORDER

дело в параметрах SWP_NOSIZE Or SWP_NOZORDER?

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

Если имеется ввиду изменение размеров мышью - то флаг

Visual Basic
1
Public Const OFN_ENABLESIZING = &H800000

То есть как вариант перед изменением положения можно сделать форму resizable, а потом, после вызова SetWindowPos, опять в статик?

@The trick · 21.11.2013, 01:09

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

Добавил в PickFolder входящий параметр "(ByVal hwndOwner As Long)" и код "OFN.hwndOwner = hwndOwner"
после чего форма hwnd которой был передан подвисает (не регеагирует на клики), из среды закрывается успешно (т.е. среда не вылетает)

Она не подвисает, просто окно GetOpenFileName открывается модально в этом случае, также как если вызвать MsgBox

Добавлено через 3 минуты
У тебя неправильные флаги в SetWindowPos, зачем SWP_NOSIZE? Это говорящее название, означающее что размеры окна не будут изменены; к тому же размер нужно менять в WM_NOTIFY с уведомлением CDN_INITDONE, иначе контролы будут неправильно отображены.

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

То есть как вариант перед изменением положения можно сделать форму resizable, а потом, после вызова SetWindowPos, опять в статик?

Нет!

fireday · 21.11.2013, 02:28 **[ТС]**

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

Она не подвисает, просто окно GetOpenFileName открывается модально в этом случае, также как если вызвать MsgBox

я не совсем правильно выразился
То что она открывается модально все верно
Но после закрытия доступа к форме нету

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

размер нужно менять в WM_NOTIFY с уведомлением CDN_INITDONE, иначе контролы будут неправильно отображены

Спасибо, с изменением размера разобрался

@The trick · 21.11.2013, 10:56

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

Но после закрытия доступа к форме нету

Покажи код, все должно быть.

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

The trick, в твоем примере все ОК
Я нашел причину, но не понял почему это происходит
Если добавлю hwnd формы так, то все нормально

Visual Basic
1
2
3
Public Function PickFolder() As String
  With OFN
    .hwndOwner = frmTest.hwnd

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

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

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

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

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

@JoraVoenyjHaker Заблокирован
	09.11.2013, 00:39
	fireday всегда сначало пробегись взглядом по коду а потом спрашивай ) а то мало-ли... Добавлено через 5 минут Не по теме: Ладно до завтра я пошол на дело ))) 1

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	09.11.2013, 14:44 [ТС]
	JoraVoenyjHaker, стараюсь так и делать 0

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	09.11.2013, 17:22 [ТС]
	Alex77755, интересное решение 0

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	09.11.2013, 18:01 [ТС]
	JoraVoenyjHaker, не winapi 0

@JoraVoenyjHaker Заблокирован
	09.11.2013, 18:32
	Проверил ) действительно интересное решение ) я бы даже сказал то что надо ) Добавлено через 5 минут Понравилось что кода, всего 3 строчки ))) Добавлено через 7 минут Я вообще-то догадывался что через WshShell As Object можно реализовать обзор папок просто лень было самому писать ))) Добавлено через 3 минуты Alex77755 в друзья добавил ! 1