| 投稿日 | ： 2005/01/22(Sat) 11:59 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: ＩＥ上の文字を取得する方法を教えてください |
下記のようにサイトが表示されてからテキスト取得するようにして下さい。
Private Sub Form_Load()
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text = WebBrowser1.Document.body.innerText
End Sub
又は、下記のように表示されるまで待機して下さい。
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
Do While WebBrowser1.Busy = True
DoEvents
Loop
WebBrowser1.Visible = True
Do While WebBrowser1.Document.ReadyState <> "complete"
DoEvents
Loop
Text1.Text = WebBrowser1.Document.body.innerText
End Sub
下記では質問のようなエラーが発生します。
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
Text1.Text = WebBrowser1.Document.body.innerText
End Sub