من فضلكم عايز اعمل ProgressBar فى وضع الانتظار بالتزامن مع البحث عن تحديث جديد للبرنامج يعنى لما المستخدم يضغط على زر البحث عن تحديث جديد للبرنامج يطلع ProgressBar فى مسج بوكس لحد مالبرنامج يبدأ بالتحميل او يقول مافيش تحديثات جديده
من فضلكم عايز اعمل 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
07-09-19, 12:52 PM (آخر تعديل لهذه المشاركة : 07-09-19, 12:53 PM {2} بواسطة على زهران.)
(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
من فضلكم عايز اعمل 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
هدا متغير WebClient عند استدعاء مكتبة Imports System.Net يمكنك استعمالها وهو كثير الاستعمال في برامج الخاصة بالنت
بص الفكرة مش واصلانى اوى عشان كل واحد مننا له تفكير مختلف بص لو فيها رزاله منى معلش ممكن تشرحلى ازاى اعمل ProgressBar تطلع فى مسج بوكس تفضل عامله وضع انتظار لحد مالبرنامج يبحث عن تحديثات جديده للبرنامج ويجي بالنتيجه سواء فيه ام لا عايز الوقت الثوانى اللى ببحث فيها عن تحديثات يزهرلى مسج بوكس فيها انتظار ProgressBar
اخي الكريم هذا مثال بسيط vb 2010 مش يلبي المطلوب مئة بالمئة لاني لم اعرف كامل الفكرة اللي فهمته الانتظار
PHP كود :
Public Class Form1 Public mn As Integer = 0 Public mx As Integer = 100 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click M_sgbox.Top = Me.Bottom M_sgbox.Left = Me.Left If b1.IsBusy = False Then b1.RunWorkerAsync() End If M_sgbox.ShowDialog() End Sub Private Sub b1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles b1.DoWork Button1.Invoke(Sub() Button1.Enabled = False) For i As Integer = mn To mx b1.ReportProgress(i) Threading.Thread.Sleep(50) Next End Sub Private Sub b1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles b1.ProgressChanged M_sgbox.ProgressBar1.Value = (e.ProgressPercentage / mx) * 100 End Sub Private Sub b1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles b1.RunWorkerCompleted Button1.Invoke(Sub() Button1.Enabled = True) M_sgbox.Close() End Sub End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(08-09-19, 08:24 PM)atefkhalf2004 كتب : السيد الفاضل سعود
يظهر حطا عند
invok button1
اخي الكريم لا يخفى عليك الفروق في موضوع الاصدارات هذه الطريقة باستخدام الـ Invoke من 2010 وفوق.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
