mpv.net/vbnet/TaskDialog.vb

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions

Namespace UI
    Public Delegate Function PFTASKDIALOGCALLBACK(hwnd As IntPtr,
                                                  msg As UInteger,
                                                  wParam As IntPtr,
                                                  lParam As IntPtr,
                                                  lpRefData As IntPtr) As Integer
    Public Class TaskDialog(Of T)
        Inherits TaskDialog
        Implements IDisposable

        Private IdValueDic As New Dictionary(Of Integer, T)
        Private IdTextDic As New Dictionary(Of Integer, String)
        Private CommandLinkShieldList As New List(Of Integer)
        Private ButtonArray As IntPtr, RadioButtonArray As IntPtr
        Private Buttons As New List(Of TASKDIALOG_BUTTON)
        Private RadioButtons As New List(Of TASKDIALOG_BUTTON)

        Private Config As TASKDIALOGCONFIG

        Sub New()
            Config = New TASKDIALOGCONFIG()

            Config.cbSize = CUInt(Marshal.SizeOf(Config))
            Config.hwndParent = GetHandle()
            Config.hInstance = IntPtr.Zero
            Config.dwFlags = Flags.TDF_ALLOW_DIALOG_CANCELLATION
            Config.dwCommonButtons = TaskDialogButtons.None
            Config.MainIcon = New TASKDIALOGCONFIG_ICON_UNION(0)
            Config.FooterIcon = New TASKDIALOGCONFIG_ICON_UNION(0)
            Config.cxWidth = 0

            Config.cButtons = 0
            Config.cRadioButtons = 0
            Config.pButtons = IntPtr.Zero
            Config.pRadioButtons = IntPtr.Zero
            Config.nDefaultButton = 0
            Config.nDefaultRadioButton = 0

            Config.pszWindowTitle = Application.ProductName
            Config.pszMainInstruction = ""
            Config.pszContent = ""
            Config.pszVerificationText = Nothing
            Config.pszExpandedInformation = Nothing
            Config.pszExpandedControlText = Nothing
            Config.pszCollapsedControlText = Nothing
            Config.pszFooter = Nothing

            Config.pfCallback = New PFTASKDIALOGCALLBACK(AddressOf DialogProc)
        End Sub

        Function GetHandle() As IntPtr
            Dim r As New StringBuilder(260)
            Dim h = GetForegroundWindow()
            GetWindowModuleFileName(h, r, 260)
            If r.ToString.Replace(".vshost", "").Base = Application.ExecutablePath.Base Then Return h
        End Function

#Region "Constants"
        Const TDE_CONTENT As Integer = 0
        Const TDE_EXPANDED_INFORMATION As Integer = 1
        Const TDE_FOOTER As Integer = 2
        Const TDE_MAIN_INSTRUCTION As Integer = 3

        Const TDN_CREATED As Integer = 0
        Const TDN_NAVIGATED As Integer = 1
        Const TDN_BUTTON_CLICKED As Integer = 2
        Const TDN_HYPERLINK_CLICKED As Integer = 3
        Const TDN_TIMER As Integer = 4
        Const TDN_DESTROYED As Integer = 5
        Const TDN_RADIO_BUTTON_CLICKED As Integer = 6
        Const TDN_DIALOG_CONSTRUCTED As Integer = 7
        Const TDN_VERIFICATION_CLICKED As Integer = 8
        Const TDN_HELP As Integer = 9
        Const TDN_EXPANDO_BUTTON_CLICKED As Integer = 10

        Const TDM_NAVIGATE_PAGE As Integer = &H400 + 101
        Const TDM_CLICK_BUTTON As Integer = &H400 + 102 'wParam = Button ID
        Const TDM_SET_MARQUEE_PROGRESS_BAR As Integer = &H400 + 103 'wParam = 0 (nonMarque) wParam != 0 (Marquee)
        Const TDM_SET_PROGRESS_BAR_STATE As Integer = &H400 + 104 'wParam = new progress state
        Const TDM_SET_PROGRESS_BAR_RANGE As Integer = &H400 + 105 'lParam = MAKELPARAM(nMinRange, nMaxRange)
        Const TDM_SET_PROGRESS_BAR_POS As Integer = &H400 + 106 'wParam = new position
        Const TDM_SET_PROGRESS_BAR_MARQUEE As Integer = &H400 + 107 'wParam = 0 (stop marquee), wParam != 0 (start marquee), lparam = speed (milliseconds between repaints)
        Const TDM_SET_ELEMENT_TEXT As Integer = &H400 + 108 'wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
        Const TDM_CLICK_RADIO_BUTTON As Integer = &H400 + 110 'wParam = Radio Button ID
        Const TDM_ENABLE_BUTTON As Integer = &H400 + 111 'lParam = 0 (disable), lParam != 0 (enable), wParam = Button ID
        Const TDM_ENABLE_RADIO_BUTTON As Integer = &H400 + 112 'lParam = 0 (disable), lParam != 0 (enable), wParam = Radio Button ID
        Const TDM_CLICK_VERIFICATION As Integer = &H400 + 113 'wParam = 0 (unchecked), 1 (checked), lParam = 1 (set key focus)
        Const TDM_UPDATE_ELEMENT_TEXT As Integer = &H400 + 114 'wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
        Const TDM_SET_BUTTON_ELEVATION_REQUIRED_STATE As Integer = &H400 + 115 'wParam = Button ID, lParam = 0 (elevation not required), lParam != 0 (elevation required)
        Const TDM_UPDATE_ICON As Integer = &H400 + 116 'wParam = icon element (TASKDIALOG_ICON_ELEMENTS), lParam = new icon (hIcon if TDF_USE_HICON_* was set, PCWSTR otherwise)
#End Region

#Region "Properties"

        Private AllowCancelValue As Boolean

        WriteOnly Property AllowCancel() As Boolean
            Set(Value As Boolean)
                If Value Then
                    Config.dwFlags = Config.dwFlags Or Flags.TDF_ALLOW_DIALOG_CANCELLATION
                ElseIf (Config.dwFlags And Flags.TDF_ALLOW_DIALOG_CANCELLATION) = Flags.TDF_ALLOW_DIALOG_CANCELLATION Then
                    Config.dwFlags = Config.dwFlags Xor Flags.TDF_ALLOW_DIALOG_CANCELLATION
                End If
            End Set
        End Property

        Property MainInstruction() As String
            Get
                Return Config.pszMainInstruction
            End Get
            Set(Value As String)
                Config.pszMainInstruction = Value
            End Set
        End Property

        Property Content() As String
            Get
                Return Config.pszContent
            End Get
            Set(Value As String)
                Config.pszContent = ExpandWikiMarkup(Value)
            End Set
        End Property

        Property ExpandedInformation() As String
            Get
                Return Config.pszExpandedInformation
            End Get
            Set(Value As String)
                Config.pszExpandedInformation = ExpandWikiMarkup(Value)
            End Set
        End Property

        Property VerificationText() As String
            Get
                Return Config.pszVerificationText
            End Get
            Set(Value As String)
                Config.pszVerificationText = Value
            End Set
        End Property

        Property DefaultButton() As DialogResult
            Get
                Return CType(Config.nDefaultButton, DialogResult)
            End Get
            Set(Value As DialogResult)
                Config.nDefaultButton = Value
            End Set
        End Property

        Property Footer() As String
            Get
                Return Config.pszFooter
            End Get
            Set(Value As String)
                Config.pszFooter = ExpandWikiMarkup(Value)
            End Set
        End Property

        WriteOnly Property MainIcon() As TaskDialogIcon
            Set(Value As TaskDialogIcon)
                Config.MainIcon = New TASKDIALOGCONFIG_ICON_UNION(Value)
            End Set
        End Property

        Private SelectedIDValue As Integer = -1

        Property SelectedID As Integer
            Get
                Return SelectedIDValue
            End Get
            Set(value As Integer)
                For Each i In IdValueDic
                    If i.Key = value Then SelectedIDValue = value
                Next
            End Set
        End Property

        Private SelectedValueValue As T

        Property SelectedValue() As T
            Get
                If IdValueDic.ContainsKey(SelectedID) Then Return IdValueDic(SelectedID)
                Return SelectedValueValue
            End Get
            Set(value As T)
                SelectedValueValue = value
            End Set
        End Property

        Private SelectedTextValue As String

        Property SelectedText() As String
            Get
                If IdTextDic.ContainsKey(SelectedID) Then Return IdTextDic(SelectedID)
                Return SelectedTextValue
            End Get
            Set(value As String)
                SelectedTextValue = value
            End Set
        End Property

        Property CheckBoxChecked() As Boolean
            Get
                Return (Config.dwFlags And Flags.TDF_VERIFICATION_FLAG_CHECKED) = Flags.TDF_VERIFICATION_FLAG_CHECKED
            End Get
            Set(value As Boolean)
                If value Then
                    Config.dwFlags = Config.dwFlags Or Flags.TDF_VERIFICATION_FLAG_CHECKED
                ElseIf CheckBoxChecked Then
                    Config.dwFlags = Config.dwFlags Xor Flags.TDF_VERIFICATION_FLAG_CHECKED
                End If
            End Set
        End Property

        Private CommonButtonsValue As TaskDialogButtons

        Property CommonButtons() As TaskDialogButtons
            Get
                Return Config.dwCommonButtons
            End Get
            Set(Value As TaskDialogButtons)
                Config.dwCommonButtons = Value
            End Set
        End Property

        Private TimeoutValue As Integer

        Property Timeout As Integer
            Get
                Return CInt(TimeoutValue / 1000)
            End Get
            Set(Value As Integer)
                TimeoutValue = Value * 1000

                If Value > 0 Then
                    Config.dwFlags = Config.dwFlags Or Flags.TDF_CALLBACK_TIMER
                End If
            End Set
        End Property
#End Region

#Region "Methods"

        Sub AddButton(text As String, value As T)
            Dim id = 1000 + IdValueDic.Count + 1
            IdValueDic(id) = value
            Buttons.Add(New TASKDIALOG_BUTTON(id, text))
        End Sub

        Function ExpandWikiMarkup(value As String) As String
            If value.Contains("[") Then
                Dim re As New Regex("\[(\w+?:.*?) (.+?)\]")
                Dim m = re.Match(value)

                If m.Success Then
                    Config.dwFlags = Config.dwFlags Or Flags.TDF_ENABLE_HYPERLINKS
                    value = re.Replace(value, "<a href=""$1"">$2</a>")
                End If
            End If

            Return value
        End Function

        Sub AddCommandLink(text As String, value As T)
            Dim id = 1000 + IdValueDic.Count + 1
            IdValueDic(id) = value
            IdTextDic(id) = text
            Buttons.Add(New TASKDIALOG_BUTTON(id, text))
            Config.dwFlags = Config.dwFlags Or Flags.TDF_USE_COMMAND_LINKS
        End Sub

        Sub AddCommandLink(text As String,
                           description As String,
                           value As T,
                           Optional setShield As Boolean = False)

            Dim id = 1000 + IdValueDic.Count + 1
            IdValueDic(id) = value
            If setShield Then CommandLinkShieldList.Add(id)
            If description <> "" Then text = text + BR + description
            Buttons.Add(New TASKDIALOG_BUTTON(id, text))
            Config.dwFlags = Config.dwFlags Or Flags.TDF_USE_COMMAND_LINKS
        End Sub

        Sub AddRadioButton(text As String, value As T)
            Dim id = 1000 + IdValueDic.Count + 1
            IdValueDic(id) = value
            RadioButtons.Add(New TASKDIALOG_BUTTON(id, text))
        End Sub

        Function Show() As T
            MarshalDialogControlStructs()
            Dim isChecked As Boolean
            Dim hr = TaskDialogIndirect(Config, Nothing, Nothing, isChecked)
            CheckBoxChecked = isChecked
            If hr < 0 Then Marshal.ThrowExceptionForHR(hr)
            If TypeOf SelectedValue Is DialogResult Then SelectedValue = DirectCast(CObj(SelectedID), T)
            Return SelectedValue
        End Function

        Private ExitTickCount As Integer

        Private Function DialogProc(hwnd As IntPtr,
                                    msg As UInteger,
                                    wParam As IntPtr,
                                    lParam As IntPtr,
                                    lpRefData As IntPtr) As Integer
            Select Case msg
                Case TDN_BUTTON_CLICKED, TDN_RADIO_BUTTON_CLICKED
                    If TypeOf SelectedValue Is DialogResult Then
                        SelectedIDValue = wParam.ToInt32
                    Else
                        SelectedID = wParam.ToInt32
                    End If
                Case TDN_TIMER
                    If ExitTickCount = 0 Then
                        ExitTickCount = Environment.TickCount + Timeout * 1000
                    End If

                    If Environment.TickCount > ExitTickCount Then
                        SendMessage(hwnd, TDM_CLICK_BUTTON, DialogResult.OK, 0)
                    End If
                Case TDN_HYPERLINK_CLICKED
                    Dim url = Marshal.PtrToStringUni(lParam)

                    If url.StartsWith("mailto:") OrElse url Like "http*://*" Then
                        ProcessHelp.Start(url)
                    ElseIf url = "copymsg:" Then
                        Clipboard.SetText(MainInstruction + BR2 + Content + BR2 + ExpandedInformation)
                        MsgBox("Message was copied to clipboard.", MessageBoxIcon.Information)
                    End If
                Case TDN_CREATED
                    For Each i In CommandLinkShieldList
                        SendMessage(hwnd, TDM_SET_BUTTON_ELEVATION_REQUIRED_STATE, i, 1)
                    Next
            End Select

            Return 0
        End Function

        Private Sub MarshalDialogControlStructs()
            If Not Buttons Is Nothing AndAlso Buttons.Count > 0 Then
                ButtonArray = AllocateAndMarshalButtons(Buttons)
                Config.pButtons = ButtonArray
                Config.cButtons = CUInt(Buttons.Count)
            End If

            If Not RadioButtons Is Nothing AndAlso RadioButtons.Count > 0 Then
                RadioButtonArray = AllocateAndMarshalButtons(RadioButtons)
                Config.pRadioButtons = RadioButtonArray
                Config.cRadioButtons = CUInt(RadioButtons.Count)
            End If
        End Sub

        Private Shared Function AllocateAndMarshalButtons(structs As List(Of TASKDIALOG_BUTTON)) As IntPtr
            Dim initialPtr = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(TASKDIALOG_BUTTON)) * structs.Count)
            Dim currentPtr = initialPtr

            For Each button In structs
                Marshal.StructureToPtr(button, currentPtr, False)
                currentPtr = CType((currentPtr.ToInt64 + Marshal.SizeOf(button)), IntPtr)
            Next

            Return initialPtr
        End Function

#End Region

#Region "IDispose Pattern"

        Private disposed As Boolean

        Sub Dispose() Implements IDisposable.Dispose
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub

        Protected Overrides Sub Finalize()
            Try
                Dispose(False)
            Finally
                MyBase.Finalize()
            End Try
        End Sub

        Protected Sub Dispose(disposing As Boolean)
            If Not disposed Then
                disposed = True

                If ButtonArray <> IntPtr.Zero Then
                    Marshal.FreeHGlobal(ButtonArray)
                    ButtonArray = IntPtr.Zero
                End If

                If RadioButtonArray <> IntPtr.Zero Then
                    Marshal.FreeHGlobal(RadioButtonArray)
                    RadioButtonArray = IntPtr.Zero
                End If

                If disposing Then
                End If
            End If
        End Sub

#End Region

    End Class

    Public Class TaskDialog
        <DllImport("comctl32", CharSet:=CharSet.Unicode, SetLastError:=True)>
        Shared Function TaskDialogIndirect(<[In]()> pTaskConfig As TASKDIALOGCONFIG,
                                           <Out()> ByRef pnButton As Integer,
                                           <Out()> ByRef pnRadioButton As Integer,
                                           <MarshalAs(UnmanagedType.Bool)> <Out()> ByRef pVerificationFlagChecked As Boolean) As Integer
        End Function

        <DllImport("user32.dll")>
        Shared Function GetForegroundWindow() As IntPtr
        End Function

        <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
        Shared Function GetWindowModuleFileName(hwnd As IntPtr,
                                                lpszFileName As StringBuilder,
                                                cchFileNameMax As UInteger) As UInteger
        End Function

        <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
        Shared Function SendMessage(hWnd As IntPtr,
                                    Msg As Int32,
                                    wParam As Integer,
                                    lParam As Integer) As IntPtr
        End Function

        <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=4)>
        Public Class TASKDIALOGCONFIG
            Public cbSize As UInteger
            Public hwndParent As IntPtr
            Public hInstance As IntPtr
            Public dwFlags As Flags
            Public dwCommonButtons As TaskDialogButtons
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszWindowTitle As String
            Public MainIcon As TASKDIALOGCONFIG_ICON_UNION
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszMainInstruction As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszContent As String
            Public cButtons As UInteger
            Public pButtons As IntPtr
            Public nDefaultButton As Integer
            Public cRadioButtons As UInteger
            Public pRadioButtons As IntPtr
            Public nDefaultRadioButton As Integer
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszVerificationText As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszExpandedInformation As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszExpandedControlText As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszCollapsedControlText As String
            Public FooterIcon As TASKDIALOGCONFIG_ICON_UNION
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszFooter As String
            Public pfCallback As PFTASKDIALOGCALLBACK
            Public lpCallbackData As IntPtr
            Public cxWidth As UInteger
        End Class

        'TASKDIALOG_FLAGS
        Public Enum Flags
            NONE = 0
            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
        End Enum

        <StructLayout(LayoutKind.Explicit, CharSet:=CharSet.Unicode)>
        Public Structure TASKDIALOGCONFIG_ICON_UNION
            Sub New(i As Integer)
                spacer = IntPtr.Zero
                pszIcon = 0
                hMainIcon = i
            End Sub

            <FieldOffset(0)>
            Public hMainIcon As Integer
            <FieldOffset(0)>
            Public pszIcon As Integer
            <FieldOffset(0)>
            Public spacer As IntPtr
        End Structure

        <StructLayout(LayoutKind.Sequential,
        CharSet:=CharSet.Unicode, Pack:=4)>
        Public Structure TASKDIALOG_BUTTON
            Sub New(n As Integer, txt As String)
                nButtonID = n
                pszButtonText = txt
            End Sub

            Public nButtonID As Integer
            <MarshalAs(UnmanagedType.LPWStr)>
            Public pszButtonText As String
        End Structure
    End Class

    Public Enum TaskDialogButtons
        None = &H0
        Ok = &H1
        Yes = &H2
        No = &H4
        Cancel = &H8
        Retry = &H10
        RetryCancel = Retry Or Cancel
        Close = &H20
        OkCancel = Ok Or Cancel
        YesNo = Yes Or No
        YesNoCancel = YesNo Or Cancel
    End Enum

    Public Enum TaskDialogIcon
        Warning = 65535 'TD_WARNING_ICON
        [Error] = 65534 'TD_ERROR_ICON
        Info = 65533 'TD_INFORMATION_ICON
        Shield = 65532 'TD_SHIELD_ICON
        SecurityShieldBlue = 65531
        SecurityWarning = 65530
        SecurityError = 65529
        SecuritySuccess = 65528
        SecurityShieldGray = 65527
    End Enum
End Namespace