サンプルコード004
Yahooニューストピックス一括表示です。以下の動作となります。
1.Yahooトップページ表示。
2.ニュースのトピックス8件を取得。
3.8件を新規タブで開く。
4.アドインプログラムの実行を停止します。
'CYTOLOGY2 Yahooニューストピックス一括表示 20130126
'---------------------------------------------------------------

Imports System.Drawing
Imports System.Windows.Forms

Public Class AddIn

    Private Const APPNAME As String = "Yahooニューストピックス一括表示"
    Private tabb As TabBrowser
    Private std As Std
    Private ddLabelNow As ToolStripLabel

    Public Sub New()
        tabb = New TabBrowser()
        std = New Std()
    End Sub

    Public Sub AddIn_Load()
        startMessage()
    End Sub

    Public Sub AddIn_Stop()
        std.AddInMenuRemove()
    End Sub

    Public Sub AddIn_Start()
        ddButtonInitial01()
        demo1()
    End Sub

    Private Sub info(ByVal str As String, ByVal c As Color)
        If std.StopFlag Then Exit Sub
        ddLabelNow.Text = str
        ddLabelNow.ForeColor = c
        Application.DoEvents()
    End Sub

    Private Sub ddButtonInitial01()
        ddLabelNow = New ToolStripLabel("停止中")
        ddLabelNow.ForeColor = Color.Black
        std.AddInMenuAddOnce(ddLabelNow)
    End Sub

    Private Sub startMessage()
        tabb.TabText = APPNAME
        Dim str As String = ""
        str &= "<!doctype html><html lang=""ja""><head><meta charset=""utf-8""><title>" & APPNAME & "</title></head>"
        str &= "<body>"
        str &= "<h2>" & APPNAME & "</h2>"
        str &= "このデモンストレーションは、以下の動作をします<br>"
        str &= "1.Yahooトップページ表示<br>"
        str &= "2.ニュースのトピックス8件を取得<br>"
        str &= "3.8件を新規タブで開く<br>"
        str &= "4.アドインプログラムの実行を停止します<br>"
        str &= "<br>"
        str &= "実行ボタンで開始します"
        str &= "</body></html>"
        tabb.WebBrowser.DocumentText = str
    End Sub

    Private Sub demo1()
        tabb.Navigate("http://yahoo.co.jp/")
        tabb.DocumentCompletedEventAdd(AddressOf demo2)
    End Sub
    Private Sub demo2(ByVal sender As Object, ByVal e As System.EventArgs)
        tabb.DocumentCompletedEventRemove(AddressOf demo2)
        Dim elems As HtmlElementCollection = tabb.WebBrowser.Document.GetElementById("topicsfb").All
        Dim c As Integer = 0
        For Each elm As HtmlElement In elems
            If elm.OuterHtml.StartsWith("<A") Then
                c += 1
                tabb.TabAdd()
                tabb.Navigate(elm.GetAttribute("href"))
                info("トピックス " & c.ToString, Color.Blue)
                If c >= 8 Then
                    Exit For
                End If
            End If
        Next
        std.ExitAddIn()
    End Sub

End Class
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page