Public Class Form1 '响应“浏览”按钮单击事件 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MyWeb As String = Me.ComboBox1.Text Try If (String.IsNullOrEmpty(MyWeb)) Then Return End If Me.WebBrowser1.Navigate(MyWeb) Catch ex As Exception MessageBox.Show(ex.Message, "信息提示", _ MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub '在状态栏进度条上显示完成进度 Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged Me.ProgressBar1.Maximum = CType(e.MaximumProgress, Integer) Me.ProgressBar1.Minimum = 0 Me.ProgressBar1.Value = CType(e.CurrentProgress, Integer) End Sub End Class
WebBrowser打开,网站时用ProgressBar显视进度
最新推荐文章于 2019-08-27 14:42:13 发布