在VB.net如何调用任务对话框

请问各位，在VB.net中如何调用“任务对话框”？
有关“任务对话框”的介绍，参见：https://learn.microsoft.com/zh-cn/windows/win32/controls/task-dialogs
麻烦懂行的解答一下，感激不尽！！

调用api 函数 TaskDialog
https://learn.microsoft.com/zh-cn/windows/win32/api/commctrl/nf-commctrl-taskdialog

微软官方示例：Windows Forms Sample: Task Dialog (Visual Basic)。
chatGPT提供的示例代码

    ' 声明TaskDialog API
    Private Declare Function TaskDialog Lib "Comctl32.dll" ( _
        ByVal hWndParent As IntPtr, _
        ByVal hInstance As IntPtr, _
        ByVal pszWindowTitle As String, _
        ByVal pszMainInstruction As String, _
        ByVal pszContent As String, _
        ByVal dwCommonButtons As Integer, _
        ByVal pszIcon As IntPtr, _
        ByRef pnButton As Integer) As Integer

    ' 声明TaskDialog常量
    Private Const TDCBF_OK_BUTTON As Integer = &H1
    Private Const TDCBF_YES_BUTTON As Integer = &H2
    Private Const TDCBF_NO_BUTTON As Integer = &H4
    Private Const TDCBF_CANCEL_BUTTON As Integer = &H8
    Private Const TDCBF_RETRY_BUTTON As Integer = &H10
    Private Const TDCBF_CLOSE_BUTTON As Integer = &H20

    Private Const TD_ICON_WARNING As IntPtr = New IntPtr(&H30)
    Private Const TD_ICON_ERROR As IntPtr = New IntPtr(&H10)
    ' ... 其他常量根据需要添加
Private Sub ShowTaskDialog()
    Dim hWnd As IntPtr = Me.Handle ' 如果你希望在窗体上显示TaskDialog，可以传递窗体的句柄
    Dim hInst As IntPtr = IntPtr.Zero ' 使用0表示使用默认资源

    Dim mainInstruction As String = "这里是主要指令"
    Dim content As String = "这里是内容文本"

    Dim button As Integer = 0 ' 用于存储用户点击的按钮

    ' 设置响应的按钮，可以根据需要进行组合
    Dim commonButtons As Integer = TDCBF_OK_BUTTON Or TDCBF_CANCEL_BUTTON

    ' 设置图标，可以根据需要选择不同的图标
    Dim icon As IntPtr = TD_ICON_WARNING

    Dim result As Integer = TaskDialog(hWnd, hInst, "", mainInstruction, content, commonButtons, icon, button)

    ' 处理按钮点击的结果
    Select Case button
        Case TDCBF_OK_BUTTON
            ' 点击了OK按钮的处理逻辑
            Exit Select
        Case TDCBF_CANCEL_BUTTON
            ' 点击了Cancel按钮的处理逻辑
            Exit Select
        Case Else
            ' 其他按钮的处理逻辑
            Exit Select
    End Select
End Sub

不知道你这个问题是否已经解决, 如果还没有解决的话:

• 以下回答由chatgpt基于相关博客总结生成:

  要在VB.net中调用任务对话框，可以使用Windows API中的Shell32.dll库。以下是调用任务对话框的具体步骤：

  1. 首先，你需要在VB.net项目中导入Shell32.dll库。在解决方案资源管理器中，右键单击"引用"，然后选择"添加引用"。
  2. 在弹出的对话框中，选择"COM"选项卡，然后找到并选中"Microsoft Shell Controls And Automation"引用。点击确定按钮以将该库添加到项目中。
  3. 在VB.net代码中，你可以创建Shell对象并调用其ShowTaskDialog方法来显示任务对话框。以下是示例代码：

  Imports Shell32
  
  ' 创建Shell对象
  Dim shell As New Shell()
  ' 创建任务对话框对象
  Dim taskDialog As IShellDispatch4 = DirectCast(shell, IShellDispatch4)
  ' 设置任务对话框的属性
  taskDialog.Title = "任务对话框示例"
  taskDialog.InstructionText = "请选择一个选项："
  taskDialog.Icon = ShellSpecialFolderConstants.ssfWINDOWS
  taskDialog.CommonButtons = TaskDialogCommonButtons.TDCBF_OK_BUTTON Or TaskDialogCommonButtons.TDCBF_CANCEL_BUTTON
  taskDialog.Caption = "任务对话框标题"
  taskDialog.FooterText = "任务对话框底部文本"
  
  ' 显示任务对话框并获取用户的选择
  Dim result As Integer = taskDialog.ShowTaskDialog(hWnd:=0, _
                                                      prompt:=Nothing, _
                                                      width:=0, _
                                                      height:=0, _
                                                      options:=Nothing, _
                                                      buttonList:=Nothing, _
                                                      defaultButton:=0)
  
  ' 处理用户的选择结果
  If result = TaskDialogResult.TDCBF_OK_BUTTON Then
      ' 用户点击了确定按钮
      ' 执行相应操作
      Console.WriteLine("用户选择了确定按钮")
  ElseIf result = TaskDialogResult.TDCBF_CANCEL_BUTTON Then
      ' 用户点击了取消按钮
      ' 执行相应操作
      Console.WriteLine("用户选择了取消按钮")
  End If
  

  这样就可以在VB.net中调用任务对话框了。你可以根据需要自定义和设置任务对话框的属性和按钮。请注意，你可能需要查看Shell32.dll库的文档以了解更多详细信息。

  希望这个解决方案对你有所帮助！如果你有任何问题，请随时提问。

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^

问题已自行解决，非常感谢大家的帮助，参考代码：

    <DllImport("ComCtl32.dll", CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.StdCall)>
    Public Shared Function TaskDialog(hWndParent As IntPtr, hInstance As IntPtr, pszWindowTitle As String, pszMainInstruction As String, pszContent As String, uType As Integer, dwCommonButtons As Integer, ByRef pnButton As IntPtr) As Integer
    End Function
    'TaskDialog(Me.Handle, 0, "标题", "主要说明", "内容", 按钮, 图标, 0)
    '图标：
    'TD_WARNING_ICON的数值为 65535。
    'TD_ERROR_ICON的数值为 65534。
    'TD_INFORMATION_ICON的数值为 65533。
    'TD_SHIELD_ICON的数值为 65532。
    '65532 ：UAC图标
    '按钮：
    'TDCBF_OK_BUTTON
    '任务对话框包含按下按钮： 确定。1
    'TDCBF_YES_BUTTON
    '任务对话框包含按钮： 是。2
    'TDCBF_NO_BUTTON
    '任务对话框包含按钮： 否。4
    'TDCBF_CANCEL_BUTTON
    '任务对话框包含按钮： 取消。 8
    'TDCBF_RETRY_BUTTON
    '任务对话框包含推送按钮： 重试。16
    'TDCBF_CLOSE_BUTTON
    '任务对话框包含按钮： 关闭。32