下記は、特定のダイアログが表示された場合個別に指定するようなやり方 Private Sub WebBrowerCtrl_ShowMessage(ByVal sender As Object, _ ByVal e As WebBrowserController.ShowMessageEventArgs) Handles WebBrowerCtrl.ShowMessage '------------------------------------------------------------------ 'すべてのダイアログで、OK を返し、ダイアログを表示しない場合 'e.Result = MsgBoxResult.Ok 'e.Handled = True '------------------------------------------------------------------
'確認ダイアログ のボタンをクリックして表示したダイアログにだけ対応 'そのページの下の方のサンプルのボタンのダイアログは、通常のダイアログが表示する If e.Text = "本当にいいんですね？" Then '確認のダイアログを表示せずに、OK ボタンが押された事にする。 Dim ret As MsgBoxResult = MsgBoxResult.Ok ' メッセージボックスで押されたボタンを返す。 e.Result = ret ' 標準のダイアログを表示させないなら True、表示させるなら False e.Handled = True Else e.Handled = False End If End Sub
