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

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

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

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