access2010 Webブラウザーコントロール その3

Webブラウザーコントロールのobjectプロパティ
Webブラウザーコントロールのメソッドでは、実体であるIEを直接操作することができない。
イベントはひと通り揃ってるからよいのだけれど、GoBackとかリロードさせるメソッドがないということ。なので、objectプロパティで オブジェクトを参照しメソッドを呼び出す。

Option Compare Database
Option Explicit
'エラー処理してない

Private wbObj As WebBrowser

Const BaseUrl = "http://www.google.co.jp/"

Private Sub cmdBack_Click()
    wbObj.GoBack
End Sub

Private Sub cmdForword_Click()
    wbObj.GoForward
End Sub

Private Sub cmdReload_Click()
    wbObj.Refresh
End Sub

Private Sub Form_Load()
    Set wbObj = Me.Webブラウザー0.Object
    Me.Webブラウザー0.ControlSource = URLstring(BaseUrl)
End Sub

Private Function URLstring(x As String)
    URLstring = Chr(61) & Chr(34) & x & Chr(34)
End Function