[mahmoud321]

السلام عليكم ورحمة اللة وبركاتة
شباب انا عندى سوال 




انا اريد ربط بروجريس بار بهذة العملية ايش اسوى

كود :

Label1.Text = update.DownloadString("https://dl.dropbox.com/s/pge4x6b8owk3kai/update4.txt?dl=0")
        If Label1.Text = "true" Then
            Timer1.Stop()
            MsgBox("يوجد تحديث جديد اجباري , لا يمكنك استخدام البرنامج الا  بعد التحديث , اضغط موافق للمتابعة", MsgBoxStyle.OkOnly)

 احتاج المساعدة وشكرا

[ممدوح]

هذا مثال مثل ما طلبت، مع أنه لا يستخدم البروجريس بار في مثل هذه الحالات.

كود :

Public Class Form1

    Private WithEvents wc As New Net.WebClient

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wc.DownloadFileAsync(New System.Uri("https://dl.dropbox.com/s/pge4x6b8owk3kai/update4.txt?dl=0"), Application.StartupPath & "\update4.txt")
    End Sub

    Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
        Label1.Text = IO.File.ReadAllText(Application.StartupPath & "\update4.txt")
        If Label1.Text = "true" Then
            MsgBox("يوجد تحديث جديد اجباري , لا يمكنك استخدام البرنامج الا  بعد التحديث , اضغط موافق للمتابعة", MsgBoxStyle.OkOnly)
        End If
    End Sub

End Class

[أبو عمر]

في وجهة نظري لا تمثل اضافة ال Progressbar في البرامج اي مساهمة في جودة البرنامج
انما كمساعد او مهدي للاعصاب عند المستخدم سواء أكانت حركة البار منطقية مع العملية التي يقوم بها البرنامج
أم كان وهمية في تايمر مثلاً.

[ممدوح]

وجهة نظر سليمة أخي وأستاذي أبو عمر، وبينتها أفضل مني.