VBAでのTaskDialogIndirect(Win7SP1)

gistfile1.vb

Option Explicit

Enum ICONS
    TD_WARNING_ICON = 65535
    TD_ERROR_ICON = 65534
    TD_INFORMATION_ICON = 65533
    TD_SHIELD_ICON = 65532
End Enum

Enum TASKDIALOG_FLAGS
    TDF_ENABLE_HYPERLINKS = &H1
    TDF_USE_HICON_MAIN = &H2
    TDF_USE_HICON_FOOTER = &H4
    TDF_ALLOW_DIALOG_CANCELLATION = &H8
    TDF_USE_COMMAND_LINKS = &H10
    TDF_USE_COMMAND_LINKS_NO_ICON = &H20
    TDF_EXPAND_FOOTER_AREA = &H40
    TDF_EXPANDED_BY_DEFAULT = &H80
    TDF_VERIFICATION_FLAG_CHECKED = &H100
    TDF_SHOW_PROGRESS_BAR = &H200
    TDF_SHOW_MARQUEE_PROGRESS_BAR = &H400
    TDF_CALLBACK_TIMER = &H800
    TDF_POSITION_RELATIVE_TO_WINDOW = &H1000
    TDF_RTL_LAYOUT = &H2000
    TDF_NO_DEFAULT_RADIO_BUTTON = &H4000
    TDF_CAN_BE_MINIMIZED = &H8000&
End Enum

Enum TASKDIALOG_COMMON_BUTTON_FLAGS
    TDCBF_OK_BUTTON = &H1
    TDCBF_YES_BUTTON = &H2
    TDCBF_NO_BUTTON = &H4
    TDCBF_CANCEL_BUTTON = &H8
    TDCBF_RETRY_BUTTON = &H10
    TDCBF_CLOSE_BUTTON = &H20
End Enum

Type TASKDIALOG_BUTTON
    nButtonID As Long
    pszButtonText As Long
End Type


Type TASKDIALOGCONFIG
    cbSize As Long
    hwndParent As Long
    hInstance As Long
    dwFlags As TASKDIALOG_FLAGS
    dwCommonButtons As Long
    pszWindowTitle As Long
    pszMainIcon As ICONS
    pszMainInstruction As Long
    pszContent As Long
    cButtons As Long
    pButtons As Long
    nDefaultButton As Long
    cRadioButtons As Long
    pRadioButtons As Long
    nDefaultRadioButton As Long
    pszVerificationText As Long
    pszExpandedInformation As Long
    pszExpandedControlText As Long
    pszCollapsedControlText As Long
    pszFooterIcon As Long
    pszFooter As Long
    pfCallback As Long
    lpCallbackData As Long
    cxWidth As Long
End Type

Declare Function TaskDialogIndirect& Lib "C:\Windows\winsxs\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2\comctl32.dll" (ByVal pTaskConfig&, ByVal pnButton&, ByVal pnRadioButton&, ByVal pfVerificationFlagChecked&)

Sub hoge()

    Dim st As TASKDIALOGCONFIG
    Dim ret&, buttons(0 To 1) As TASKDIALOG_BUTTON

    buttons(0).nButtonID = vbOK
    buttons(0).pszButtonText = StrPtr("ボタン名")

    buttons(1).nButtonID = vbCancel
    buttons(1).pszButtonText = StrPtr("ボタン名２")

    With st
        .cbSize = Len(st)
        .hwndParent = Excel.Application.Hwnd
        .pszWindowTitle = StrPtr("Title")
        .dwFlags = TDF_USE_COMMAND_LINKS
        .pszMainIcon = TD_ERROR_ICON
        .pszMainInstruction = StrPtr("hoge")
        .pszContent = StrPtr("foo")
        .pButtons = VarPtr(buttons(0))
        .cButtons = UBound(buttons) + 1
    End With
    
    TaskDialogIndirect VarPtr(st), VarPtr(ret), 0, 0
    Debug.Print ret
    
End Sub