2020年8月15日 星期六

vb.net 創立網頁控件 [Create web page component] 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
    Dim webLoad As New WebBrowser

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        webLoad.Navigate("http://www.kiss.com.tw/service/songlist/?tp=KISS&ty=2015&tm=09&td=18&th=06")
        AddHandler webLoad.DocumentCompleted, AddressOf webLoad_DocumentCompleted
    End Sub

    Private Sub webLoad_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        RichTextBox1.Text = webLoad.DocumentText
    End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)