[على زهران]

(07-09-19, 11:16 AM)fouadhdfouad كتب :

(07-09-19, 12:36 AM)على زهران كتب :

بسم الله الرحمن  الرحيم

من فضلكم عايز اعمل ProgressBar فى وضع الانتظار بالتزامن مع البحث عن تحديث جديد للبرنامج يعنى لما المستخدم يضغط على زر البحث عن تحديث جديد للبرنامج يطلع ProgressBar فى مسج بوكس لحد مالبرنامج يبدأ بالتحميل او يقول مافيش تحديثات جد

السلام عليكم اخي 

تفضل اخي طريق استعمال progressbar في تحميل او المزامنة

قم باضافة progressbar + label

بالنسبىة ل label يعتبر عداد رقمي يتزامن مع progressbar 

كود :

Imports System.Net
Public Class Form1
   Public WithEvents download As New WebClient
   Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
       ProgressBar1.Value = e.ProgressPercentage
       Label1.Text = e.ProgressPercentage.ToString + "%"
       If ProgressBar1.Value = 100 Then
           ProgressBar1.Value = 0
           Label1.Text = 0
           MessageBox.Show("تم التحميل بنجاح", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Else
           MsgBox("حدث خطا", MsgBoxStyle.Critical)
           Me.Close()
       End If
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       download = New WebClient
       download.DownloadFileAsync(New Uri("1"), "2") 'هن ضع الامر الدي تريد من والى
   End Sub
End Class

---

وبالنسبه للسطر ده بوتين ولا ايه بالظبط توظيفه
Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged