一段VB程序的注释..

来源:百度知道 编辑:UC知道 时间:2024/05/05 00:21:29
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
ProgressBar1.Value = Progress
End If

End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Combo1.Text = WebBrowser1.LocationURL

End Sub
因为我是初学者,能否说的详细一点!谢了!

第一个Sub:设置进度条,使进度条显示进度
第二个Sub:使浏览器加载完(起码Title出来时)将输入网址的下拉框的内容设为浏览器的当前地址。

这个有关进度条的