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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

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

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