VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/04/09(Wed) 15:58
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: インターネット上の文字列取得

こちらの方法が簡単かも WebBrowser1 とTextBox とCommand ボタンを配列で２個用意
しておいて下さい。

Option Explicit    
Private Sub Form_Load()
    '別途プロジェクト→コンポーネントで Microsoft Internet Control に
    'チェックを入れてWebBrowserコントロールをフォームに貼り付けて下さい。
    'HTMLファイルを表示
    WebBrowser1.Navigate "http://www.yahoo.co.jp/"      
End Sub

Private Sub Command1_Click(Index As Integer)
    With WebBrowser1.Document
        If Index = 0 Then
            'テキスト形式で取得
            Text1.Text = .body.innerText
        Else
　　　　　　'HTML形式で取得
            Text1.Text = .body.innerHTML
        End If
    End With
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -