Использование CreateDialog в VBA в попытке создать немодальные диалоговые окна

Я не хочу отвлекать внимание от глубоко и хорошо изученных, но есть возможные обходные пути динамически создавать немодальные диалоговые окна в VBA. Это была первоначальная проблема, прежде чем Аскер смело нырнул в кроличью нору с CreateDialog, Таким образом, этот ответ для исходной проблемы динамического создания немодальных диалоговых окон в VBA, а не как использовать CreateDialog, Я не могу помочь там.

Как уже говорилось ранее, немодальные диалоговые окна могут быть созданы с использованием пользовательской формы, но мы не хотим, чтобы бесполезные формы засоряли проект. Обходной путь, которого я достиг, использует библиотеку Microsoft VBA Extensibility. Короче говоря, мы создаем класс, который добавляет универсальную пользовательскую форму в проект при создании и удаляет пользовательскую форму при завершении.

Также обратите внимание, что это проверено с использованием Excel VBA. У меня нет SolidWorks, поэтому я не могу проверить его там.

Грубо сделано как модуль класса.

Option Explicit

Private pUserForm As VBIDE.VBComponent

Private Sub Class_Initialize()
' Add the userform when created '
Set pUserForm = ThisWorkbook.VBProject.VBComponents.Add(VBIDE.vbext_ct_MSForm)
End Sub
Private Sub Class_Terminate()
' remove the userform when instance is deleted '
ThisWorkbook.VBProject.VBComponenets.Remove pUserForm
End Sub
Public Property Get UserForm() As VBIDE.VBComponent
' allow crude access to modify the userform '
' ideally this will be replaced with more useful methods '
Set UserForm = pUserForm
End Property
Public Sub Show(ByVal mode As Integer)
VBA.UserForms.Add(pUserForm.Name).Show mode
End Sub

В идеале этот класс был бы лучше разработан и позволил бы упростить доступ к изменению формы, но пока это решение.

тесты

Private Sub TestModelessLocal()

Dim localDialog As New Dialog
localDialog.UserForm.Properties("Caption") = "Hello World"localDialog.Show vbModeless

End Sub

Вы должны увидеть, как окно появляется и исчезает как localDialog выходит за рамки. UserForm1 был создан в вашем VBProject и удален.

Этот тест создаст постоянное диалоговое окно. К несчастью, UserForm1 останется в вашем VBProject как globalDialog все еще определяется. Сброс проекта не удалит пользовательскую форму.

Dim globalDialog As Dialog
Private Sub TestModeless()

Set globalDialog = New Dialog
globalDialog.UserForm.Properties("Caption") = "Hello World"globalDialog.Show vbModeless
'Set globalDialog = Nothing  closes window and removes the userform '
'Set gloablDialog = new Dialog should delete userform1 after added userform2'
End Sub

Поэтому никогда не используйте это в области видимости модуля.

В заключение, это уродливое решение, но оно гораздо менее уродливо, чем то, что пытался сделать Аскер.

У вас очень плохое начало этого проекта. Вы полностью зашифровали порядок аргументов для CreateDialogParam, обратите внимание, как hInstance аргумент первый, dwInitParam аргумент последний.

Вы полностью нащупали объявление DIALOGPROC, это указатель на функцию. Это требует LongPtr в декларации и AddressOf оператор, когда вы делаете звонок.

Это был только первый 1%, заставляющий это работать. Следующая проблема заключается в том, что вам придется написать функциональную диалоговую процедуру (цель AddressOf), который обрабатывает уведомления, которые генерирует диалог. Основные вещи, такие как признание того, что пользователь нажал кнопку ОК. Очень сложно писать, когда вы недостаточно разбираетесь в программировании WinAPI, небольшие ошибки — это большие не диагностируемые проблемы во время выполнения.

Это просто мелочи, есть много большие проблемы. lpTemplateName Аргумент является очень серьезным препятствием. Это должен быть идентификатор ресурса, тип, сгенерированный «rc.exe» и добавленный компоновщиком в исполняемый файл. Вы не можете повторно связать SolidWorks. Немодальный диалог требует помощи из цикла сообщений, он должен вызвать IsDialogMessage(), Вы не можете убедить SolidWorks сделать этот звонок за вас. Без этого диалог плохо себя ведет в трудных для диагностики способах, таких как табуляция не будет работать.

Вы должны знать, когда у вас нет абсолютно никаких шансов заставить это работать. Вы не можете заставить это работать.

Этот ответ, как Cheezsteak-х не занимается непосредственно проблемами, с которыми вы сталкиваетесь CreateDialog, Это касается конечной цели создания немодального диалогового окна.

Мое предложение состоит в том, чтобы использовать UserForm чтобы сделать это. Это Показать метод принимает необязательный параметр, который определяет, будет ли пользовательская форма отображаться в модальной или немодальной форме.

Из документации MSDN:

модальный Необязательно. Логическое значение, определяющее, является ли пользовательская форма модальной
или немодальный.

1. Создайте пользовательскую форму и разработайте ее в соответствии с вашими потребностями.

2. В коде, который создает экземпляр пользовательской формы, просто передайте ему vbModeless постоянная.

   Option Explicit
   
   Private frm As UserForm1
   
   Sub test2()
   Set frm = New UserForm1
   frm.Show vbModeless
   End Sub
   

Если вы беспокоитесь о том, чтобы загромождать ваш проект формами, не беспокойтесь. Просто создать форму на лету.