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

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

Во-первых, вам нужно забыть о CreateDialog, потому что они требуют, чтобы шаблон диалога был в разделе ресурсов. Вы можете использовать CreateDialogIndirectParam для создания диалога из шаблона диалога в памяти. Вам понадобится это:

Private Type DLGTEMPLATE
    style As Long
    dwExtendedStyle As Long
    cdit As Integer
    x As Integer
    y As Integer
    cx As Integer
    cy As Integer
End Type

Private Type DLGITEMTEMPLATE
    style As Long
    dwExtendedStyle As Long
    x As Integer
    y As Integer
    cx As Integer
    cy As Integer
    id As Integer
End Type

Private Type DLG
    dlgtemp As dlgtemplate
    menu As Long
    classname As String
    title As String
End Type

Private Declare PtrSafe Function CreateDialogIndirectParam Lib "User32.dll" Alias "CreateDialogIndirectParamW" _
  (ByVal hInstance As Long, _
  ByRef lpTemplate As DLGTEMPLATE, _
  ByVal hWndParent As Long, _
  ByVal lpDialogFunc As LongPtr, _
  ByVal lParamInit As Long) _
  As LongPtr

Const WM_INITDIALOG As Long = &H110
Const DS_CENTER As Long = &H800&
Const DS_SETFONT As Long = &H40
Const DS_MODALFRAME As Long = &H80
Const WS_EX_APPWINDOW As Long = &H40000

Затем назовите это так:

Dim d As DLG
d.dlgtemp.style = DS_MODALFRAME + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
d.dlgtemp.dwExtendedStyle = WS_EX_APPWINDOW
d.dlgtemp.cdit = 0
d.dlgtemp.x = 100
d.dlgtemp.y = 100
d.dlgtemp.cx = 200
d.dlgtemp.cy = 200
d.menu = 0
d.title = "Test"
d.classname = "Test"

CreateDialogIndirectParam 0, d.dlgtemp, 0, AddressOf DlgFunc, 0

с DlgFunc выглядит примерно так:

Public Function DlgFunc(ByVal hwndDlg As LongPtr, ByVal uMsg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    If uMsg = h110 Then  ' = WM_INITDIALOG - you should make a const for the various window messages you'll need...
        DlgFunc = True
    Else
        DlgFunc = False
    End If
End Function

Прошло более десяти лет с тех пор, как я в последний раз делал что-либо из этого. Но если вы решили пойти по этому пути, я думаю, что этот подход является наиболее многообещающим: следующим шагом будет адаптация структуры DLG для добавления некоторых элементов DLGITEMTEMPLATE, установите d.dlgtemp.cdit на количество элементов управления в вашем диалоговом окне, и начните обрабатывать управляющие сообщения в вашем DlgFunc.

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

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

Также обратите внимание, что это проверено с использованием 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 для этого. Это Show Method принимает необязательный параметр, который определяет, отображается ли пользовательская форма как модальная или немодальная форма.

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

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

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

2. В коде, создающем экземпляр UserForm, просто передайте ему константу vbModeless.

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

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