|
|
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
一切运行成功，但是程序运行时，进度条无任何反应，请问是什么回事呢？
真心向管理求解释。 |
|
QQ空间
腾讯微博
腾讯朋友
