الـســلام علــيــكــم ورحــمــة الله تــعــالى وبــركــاتــه
بــســم الله الــرحــمــن الــرحـيــم
أهــلا وســهــلا بــكــم أخــوانــي أعــضــاء وزوار مــنــتـدي
لغات البرمجة
طريقة صنع متصفح يدعم Porgressbar في لغة VB
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
وبــعــدهــا ندخل هـذا الـكود في Commnad1
كود:
Private Sub Command1_Click()
"WebBrowser1.Navigate "[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
End Sub
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
وبعدها ندخل هذا الكود في WebBrowser1
كود:
[left]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
والــنــتــيــجــة مــصــفــح رائــع
وفــي الأخـيــر تـقــبــلوا خـالـص
الســلام !
"WebBrowser1.Navigate "[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
End Sub
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
وبعدها ندخل هذا الكود في WebBrowser1
كود:
[left]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
والــنــتــيــجــة مــصــفــح رائــع
وفــي الأخـيــر تـقــبــلوا خـالـص
الســلام !
» أكبر مكتبة لمذكرات التخرج و البحوث في علم النفس على النت ""حصريا " أكثر من 300 مذكرة
» تحميل dsm-iv الدليل التشخيصي للاضطرابات - انجليزي
» Notion Allgeljh - caractéristiques - Diagnostic - Traitement
» الجاثوم (شلل النوم المؤقت)
» الإعجاز السلوكي والأخلاقي في الإسلام
» اقتلاع شجرة
» الإسلام وأصحاب ذوي الاحتياجات الخاصة
» ما معني المنى والسلوى