بکارگیری ProgressBar در WebBrowser

[alih110]

سلام دوستان چه طوری میشه وقتی با Web Browser یه صفحه ای رو باز می کنی یکPROGRESS بزاری تا صفحه باز بشه .

[xxxxx_xxxxx]

كنترل web browser يك متد داره به نام ReadyState. اگر برابر بود با READYSTATE_COMPLETE يعني صفحه كامل لود شده. پس اگر برابر نبود يعني داره لود ميشه و ميتونيم اينجا Progress bar رو فعال كنيم.
به اين صورت:

WebBrowser1.Navigate "http://www.BarnameNevis.org"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE

   '...

   '...

   '...

   DoEvents

Loop

ولي يك اما و اگر داره ...!

موفق باشيد/

[site-111]

كنترل web browser يك متد داره به نام ReadyState. اگر برابر بود با READYSTATE_COMPLETE يعني صفحه كامل لود شده. پس اگر برابر نبود يعني داره لود ميشه و ميتونيم اينجا Progress bar رو فعال كنيم.
به اين صورت:

WebBrowser1.Navigate "http://www.BarnameNevis.org"

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE

   '...

   '...

   '...

   DoEvents

Loop

ولي يك اما و اگر داره ...!

موفق باشيد/

اگر ممکنه یک مثال با پروژه بزارید ممنون!!

[xxxxx_xxxxx]

دوخط کد که دیگه پروژه نمی خواد. تو همون کد بالا قبل یا بعد از DoEvent باید Value پروگرس بار رو افزایش بدید.
اون اما و اگری که گفتم داره این هست که شما نمی تونید حدس بزنید که کی قرار هست صفحه کامل لود بشه پس نمی تونید جریان پروگرس بار رو دقیق کنید.

یک راه دیگه هم وجود داره که خود IE از همین استفاده می کنه. و اون هم این که از رویداد ProgressChange در WebBrowser استفاده کنید. این رویداد دو پارامتر داره که اولی Progress هست و دومی ProgressMax. از اسمشون مشخص هست که چی هستند. پس شما یک ProgressBar بزارید رو فرم و این کد رو بنویسید:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

ProgressBar1.Max = ProgressMax

ProgressBar1.Value = Progress

End Sub

این دقیقاً همانند پروگرس بار خود IE عمل می کنه. On error در کد بالا به این خاطر هست که در انتها زمانی که فرم به طور کامل لود شد پارامتر Progress مقدار -1 میگیره درحالیکه Value پروگرس بار نمی تونه مقدار منفی داشته به همین خاطر on error گذاشتم.

موفق باشید/

پ.ن: عنوان تاپیک اصلاح شد. عنوان پیشین: کار با Web Browser

[saeidcd]

اینهم میشه

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven  tArgs) Handles WebBrowser1.ProgressChanged



        Dim d, t As Integer



        ProgressBar1.Visible = True



        d = e.CurrentProgress



        t = e.MaximumProgress



        If d <= 0 Then



            ProgressBar1.Value = 0



            ProgressBar1.Visible = False



        Else



            ProgressBar1.Value = Math.Min(ProgressBar1.Maximum, Convert.ToInt32(Math.Floor(ProgressBar1.Maximum * (d / t))))



        End If



    End Sub