WebBrowser Events MAKE 02-24 ＩＥイベントのテスト

← フォームにWebBrowserを貼り、イベント処理の記述をテストしてみます。
まぁ、あまり難しく考えないで、オブジェクトをダブルクリック(笑)
まずは、ここから始めてみてください(おぃおぃ)
※しつこく繰り返すと、ダブルクリック、まずはここから？？？
-------
Private Sub UserForm_Initialize() Me.WebBrowser1.GoHome
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) Debug.Print URL
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) If MsgBox("新しいウインドウを開きますか？", vbYesNo) = vbNo Then Cancel = True End If
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Debug.Print Text
End Sub
-------

IE操作の解説を http://www.ken3.org/cgi-bin/group/vba_ie.asp で ほそぼそとやってます、よかったら見に来てください。

Category:

Science & Technology

Tags:

• 三流君
• VBA
• WebBrowser
• Events
• TEST

[s19830318]

で？