السلام عليكم ورحمة اللة وبركاتة
شباب انا عندى سوال
انا اريد ربط بروجريس بار بهذة العملية ايش اسوى
كود :
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 في البرامج اي مساهمة في جودة البرنامج
انما كمساعد او مهدي للاعصاب عند المستخدم سواء أكانت حركة البار منطقية مع العملية التي يقوم بها البرنامج
أم كان وهمية في تايمر مثلاً.
وجهة نظر سليمة أخي وأستاذي أبو عمر، وبينتها أفضل مني.