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

Новые блоги и статьи Все статьи Все блоги /
Учебный мини "цифровой двойник" = (Сервер = 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. Показов 6606. Ответов 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