Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.ScriptErrorsSuppressed = True '网页错误提示 【屏蔽】
WebBrowser1.Navigate("https://blog.youkuaiyun.com")
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If (e.CurrentProgress > 0) And (e.MaximumProgress > 0) Then
ElseElseIf WEBB1.ReadyState = WebBrowserReadyState.Complete Then '加载完成 判断
TextBox1.Text = WebBrowser1.Document.Body.InnerText
End If
End Sub
本文介绍了一个简单的VB.NET程序示例,该程序使用WebBrowser控件加载优快云首页,并读取页面正文内容到TextBox中。程序通过屏蔽网页错误提示,确保加载过程的流畅性。
1863

被折叠的 条评论
为什么被折叠?



