منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - عايز اعمل ProgressBar فى وضع مسج بوكس بالتزامن مع شئ

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

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

(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

(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

(07-09-19, 12:52 PM)على زهران كتب : [ -> ]
(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

هدا متغير WebClient
عند استدعاء مكتبة Imports System.Net
يمكنك استعمالها وهو كثير الاستعمال في برامج الخاصة بالنت

كود :

Public WithEvents download As New WebClient

بص الفكرة مش واصلانى اوى عشان كل واحد مننا له تفكير مختلف بص لو فيها رزاله منى معلش ممكن تشرحلى ازاى اعمل 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 

السيد الفاضل سعود
يظهر حطا عند
invok button1

(08-09-19, 08:24 PM)atefkhalf2004 كتب : [ -> ]السيد الفاضل سعود
يظهر حطا عند
invok button1

اخي الكريم لا يخفى عليك الفروق في موضوع الاصدارات هذه الطريقة باستخدام الـ Invoke من 2010 وفوق.