| 投稿日 | ： 2003/10/22(Wed) 16:12 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: WebBrowserコントロールについて |
もっといい方法があるかも知れませんが、下記でも一応取得できるようです。
但し、フレームのページの場合はフレーム数になるようです。
他のイベント等でも試して見て下さい。
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)
Text1.Text = CLng(Text1.Text) + 1
End Sub