标题: VB进度条功能。 [打印本页]

---

作者: lbqxzl    时间: 2011-4-7 21:43     标题: VB进度条功能。

Option Explicit
Private Sub Command1_Click()
  WebBrowser1.Navigate Combo1.Text
End Sub

Private Sub Form_Load()
  WebBrowser1.Left = 0
  StatusBar1.Style = sbrSimple
End Sub

Private Sub WebBrowser1_DownloadBegin()
  StatusBar1.SimpleText = "正在下载..."
End Sub

Private Sub WebBrowser1_DownloadComplete()
  StatusBar1.SimpleText = "连接成功..."
  ProgressBar1.Value = 0
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If ProgressMax = 0 Then Exit Sub
ProgressBar1.Max = ProgressMax
If Progress <> -1 And Progress <= ProgressMax Then
End If

End Sub




以上代码是书上P252-P253
一切运行成功，但是程序运行时，进度条无任何反应，请问是什么回事呢？
真心向管理求解释。

---

作者: fwbook    时间: 2011-4-8 08:48

1# lbqxzl


看代码，进度条的值并没有发生改变。

---

欢迎光临 万卷图书 (http://wanjuanchina.net/)

Powered by Discuz! 7.2