tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: ソースの一部取得は?
投稿日: 2006/02/15(Wed) 16:11
投稿者YAS
VB2005であったらこんな感じでしょうか。

Public Class Form1
    WithEvents WebBrowser1 As New WebBrowser
    Dim TextBox1 As New TextBox
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Multiline = True
        Me.TextBox1.Dock = DockStyle.Fill
        Me.Controls.Add(Me.TextBox1)
        Me.WebBrowser1.Navigate("hhttp://www.yahoo.co.jp")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
    Handles WebBrowser1.DocumentCompleted
        Dim Document As HtmlDocument = Me.WebBrowser1.Document
        Dim HtmlElements As HtmlElementCollection = Document.GetElementsByTagName("a")
        For Each HtmlElement As HtmlElement In HtmlElements
            If HtmlElement.GetAttribute("href") _
            .StartsWith("hhttp://rd.yahoo.co.jp/toppage/topics/") Then
                Me.TextBox1.Text += HtmlElement.InnerText & ControlChars.CrLf
            End If
        Next
    End Sub
End Class

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。