[محمد]

هل يمكن عمل Ping وى ربطه بى Progressbar يعنى لو البنج عالى = Progressbar Value up
وى لو البنج منخفض = Progressbar value Down يعنى Value تزيد وى تقل على حسب البنج هل يمكن؟
او مكن زى الى فى هذه الصوره
؟

[SaLoOoMX]

كود :

Try
            Label1.Text = "0"
            ProgressBar1.Value = 0
            Dim n As String
            n = My.Computer.Network.Ping(TextBox1.Text)
            ProgressBar1.Maximum = n.Length
            ProgressBar1.PerformStep()
            Label1.Text = ProgressBar1.Value & ("  %")
        Catch ex As Exception

        End Try

[محمد]

SaLoOoMX كتب :

كود :

Try
            Label1.Text = "0"
            ProgressBar1.Value = 0
            Dim n As String
            n = My.Computer.Network.Ping(TextBox1.Text)
            ProgressBar1.Maximum = n.Length
            ProgressBar1.PerformStep()
            Label1.Text = ProgressBar1.Value & ("  %")
        Catch ex As Exception

        End Try

لا يعمل أخى هذا الكود

[Abu Ehab]

بسم الله الرحمن الرحيم
معرفة الوقت المنقضي



المثـــــــال في المرفقات

[محمد]

Abu Ehab كتب :

بسم الله الرحمن الرحيم
معرفة الوقت المنقضي



المثـــــــال في المرفقات

أخى ِشكرآ على المثال لاكن ProgressBar مبتشتغلش

[Abu Ehab]

طيب أنت شايف ProgressBar الموجود في صورة المثال الذي رفعته أنا لك ,,, هل هو شغال وأم لا ؟؟

[محمد]

Abu Ehab كتب :طيب أنت شايف ProgressBar الموجود في صورة المثال الذي رفعته أنا لك ,,, هل هو شغال وأم لا ؟؟

ProgressBar شغال
لاكن عندى ProgressBar مش شغال !

[Abu Ehab]

ما بعرف شو المشكلة عندك الصراحة
على كل الأحوال :
الكود بين يديك أستخدمه بالطريقة التى تناسبك .

[محمد]

Abu Ehab كتب :ما بعرف شو المشكلة عندك الصراحة
على كل الأحوال :
الكود بين يديك أستخدمه بالطريقة التى تناسبك .

شكرآ اخى و جزاك الله خير علرفت المشكله اين