Dim messageinfo As New UltraMessageBoxInfo()
messageinfo.Style = MessageBoxStyle.Vista
messageinfo.Buttons = MessageBoxButtons.OKCancel
messageinfo.Icon = MessageBoxIcon.Warning
' デフォルトで選択される Button を設定します。
messageinfo.DefaultButton = MessageBoxDefaultButton.Button1
messageinfo.ButtonAppearance.FontData.Bold = DefaultableBoolean.True
messageinfo.ButtonAreaAppearance.BackColor = Color.LightSteelBlue
' キャプション
Dim captionmsg As String = "このファイルを実行または保存しますか?"
messageinfo.Caption = captionmsg
' ヘッダー
messageinfo.HeaderAppearance.BackColor = Color.Tan
messageinfo.HeaderAppearance.Image = Me.imageList1.Images(0)
Dim headermsg As String = " このファイルを実行または保存しますか?"
messageinfo.Header = headermsg
' コンテンツ領域
Dim contentmsg As String = "インターネットのファイルは役に立ちますが、このファイルの種類はコンピューターに危害を起こす可能性があります。<br />発行元を信頼できない場合、このソフトウェアを実行しないでください。"
messageinfo.TextFormatted = contentmsg
' ヘルプ ボタン
messageinfo.ShowHelpButton = DefaultableBoolean.[True]
Dim helpmsg As String = " http://jp.infragistics.com"
Dim helpinfo As New HelpInfo(helpmsg, HelpNavigator.Index)
messageinfo.HelpInfo = helpinfo
' フッター
messageinfo.FooterAppearance.BackColor = Color.Gold
messageinfo.HeaderAppearance.Image = Me.imageList1.Images(1)
Dim footermsg As String = " <a href = 'jp.infragistics.com'>詳細について</a>"
messageinfo.FooterFormatted = footermsg
' ボタンを右に配置します。
Me.ultraMessageBoxManager1.ButtonAlignment = HAlign.Right
Me.ultraMessageBoxManager1.ShowMessageBox(messageinfo)