بـبـسـاطـة اصـنـع مـتـصـفـح بـ ProgressBar عـلـى لـغـة الـVB6

[size=16]السلام عليكم ورحمة الله تعالى وبركاته
أهــلا وســهــلا بــكــم أخــوانــي أعــضــاء وزوار مــنــتـدى الـبـرمـجـة

طريقة صنع متصفح يدعم Porgressbar في لغة VB

الطريقة سهلة جدا
أولا ضع الأداة WebBrowser وتجدها في Microsoft Internet Control
ثانيا ضع الأداة ProgressBar وتجدها في Microsoft Windows Common Controls 6.0 (SP6
ثالثا ضع Command

وبــعــدهــا ندخل هـذا الـكود في Commnad1

Private Sub Command1_Click()
WebBrowser1.Navigate "star7-dz.com"
End Sub

وبعدها ندخل هذا الكود في الأداة WebBrowser1

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

ببساطة انتهينا

ما أروعها الـVB [/size]