我开始使用Windows API Code Pack中的TaskDialog。除了此对话框中没有图标外,一切正常。你知道为什么以及如何实现它吗?
示例同志:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim dialog As New TaskDialog()
dialog.Caption = "Application Error"
dialog.InstructionText = "CRASH AND BURN!"
dialog.Text = "The application has performed an illegal action. Thisaction has been logged and reported."
dialog.Icon = TaskDialogStandardIcon.Error
dialog.Cancelable = False
dialog.DetailsExpanded = False
dialog.DetailsCollapsedLabel = "Show Expanded Text"
dialog.DetailsExpandedLabel = "Hide Expanded Text"
dialog.DetailsExpandedText = "### Start of Expanded Text ###" & Environment.NewLine & "" + Environment.NewLine + "### End of Expanded Text ###"
Dim minValue As Integer = 0
Dim maxValue As Integer = 100
Dim currentValue As Integer = 20
dialog.ProgressBar = New TaskDialogProgressBar(minValue, maxValue, currentValue)
dialog.Show()
End Sub