投稿日 | : 2006/04/30(Sun) 13:26 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^4: 回答ではありませんが |
Form1 に WebBrowser コントロールを貼り付けて下記コードを試して見て下さい。
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate2 "hhttp://www.bcap.co.jp/hanafusa/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print pDisp.Document.location.href
End Sub