الـســلام علــيــكــم ورحــمــة الله تــعــالى وبــركــاتــه
بــســم الله الــرحــمــن الــرحـيــم
أهــلا وســهــلا بــكــم أخــوانــي أعــضــاء وزوار مــنــتـدي
لغات البرمجة
طريقة صنع متصفح يدعم 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
والــنــتــيــجــة مــصــفــح رائــع
وفــي الأخـيــر تـقــبــلوا خـالـص
الســلام !
الإثنين يناير 27, 2014 8:16 pm من طرف نوال 73
» أكبر مكتبة لمذكرات التخرج و البحوث في علم النفس على النت ""حصريا " أكثر من 300 مذكرة
السبت ديسمبر 28, 2013 8:05 pm من طرف abdouhaker
» تحميل dsm-iv الدليل التشخيصي للاضطرابات - انجليزي
الخميس نوفمبر 22, 2012 9:52 pm من طرف mima psychologie
» Notion Allgeljh - caractéristiques - Diagnostic - Traitement
الخميس يونيو 07, 2012 11:02 am من طرف wardaelrimel
» الجاثوم (شلل النوم المؤقت)
الخميس يونيو 07, 2012 10:51 am من طرف wardaelrimel
» الإعجاز السلوكي والأخلاقي في الإسلام
الخميس يونيو 07, 2012 10:45 am من طرف wardaelrimel
» اقتلاع شجرة
الخميس مايو 31, 2012 1:08 pm من طرف مدير المنتدى
» الإسلام وأصحاب ذوي الاحتياجات الخاصة
الخميس مايو 31, 2012 10:32 am من طرف wardaelrimel
» ما معني المنى والسلوى
الخميس مايو 31, 2012 10:29 am من طرف wardaelrimel