投稿日 | : 2005/01/20(Thu) 13:43 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: IE上の文字を取得する方法を教えてください |
一番簡単な方法を
Private Sub Form_Load()
'別途プロジェクト→コンポーネントで Microsoft Internet Control に
'チェックを入れてWebBrowserコントロールをフォームに貼り付けて下さい。
'HTMLファイルを表示
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
End Sub
Private Sub Command1_Click()
Text1.Text = WebBrowser1.Document.body.innerText
’Text1.Text = WebBrowser1.Document.body.innerHTML
End Sub