متصفح منتدى المهندس بال vb

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: أيلول 12, 2009, 11:25:17 صباحاً
الـســلام علــيــكــم ورحــمــة الله تــعــالى وبــركــاتــه
بــســم الله  الــرحــمــن الــرحـيــم



أهــلا وســهــلا بــكــم أخــوانــي أعــضــاء وزوار  مــنــتـدي
المهندس

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









































     




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

 كود:Private Sub Command1_Click()
WebBrowser1.Navigate  "www.ingdz.com"
End Sub 







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

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



والــنــتــيــجــة مــصــفــح رائــع






منـــــــــــــــــــــتـــــــــــــــــــــــــــــــــــــــدى المـــــــــــــــــــــــــــــــــــــــــــــهنــــــــــــــــــدس.


dida

  • Hero Member
  • *****
    • مشاركة: 1864
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: أيلول 12, 2009, 11:30:13 صباحاً
بارك الله فييك اخي الكرييم انتظر بقية دروووسك


يوسف الضادي

  • Hero Member
  • *****
    • مشاركة: 5333
    • مشاهدة الملف الشخصي
    • http://www.sou9dz.com
    • البريد الالكتروني
رد #2 في: أيلول 13, 2009, 06:18:14 صباحاً
بارك الله فيك اخي
روعة درووووووووووسك