كيف الى التنفيذ السلس للاوامر - نسخة قابلة للطباعة

كيف الى التنفيذ السلس للاوامر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=52)
+---- قسم : قسم اسئلة ASP.NET (http://vb4arb.com/vb/forumdisplay.php?fid=53)
+---- الموضوع : كيف الى التنفيذ السلس للاوامر (/showthread.php?tid=8477)

كيف الى التنفيذ السلس للاوامر - سعود - 14-04-13

اخواني اخواتي
السلام عليكم ورحمة الله وبركاته
عند محاولة تنفيذ امر حفظ لعدة قيم وبعد كل حفظ اسند لاداة تسمية label كلمة "تم الحفظ" وهن ادوات تسمية اسفل بعض ..
الذي اريده: ان يتم تنفيذ كل امر على حده يعني يحفظ ثم يكتب تم الحفظ ثم ينتقل لامر الحفظ الاخر.
الذي فعلته هو بزر امر واحد لكن لايتم اخباري بانه تم الحفظ لاي قيمة الا بعد الانتهاء من كافة القيم.

ايضاح اكثر
اقوم الان بتعديلات على معالج التثبيت المخصص للمنتدى بمعنى زرع الجداول للقاعدة بقيم افتراضية اريد بعد الانتهاء من اي جدول ان يتم كتابة انه تم انشاء الجدول الفلاني بنجاح (اريده بشكل فوري بعد اي انشاء لاي جدول) لان الحاصل انه بعد الانتهاء من انشاء كافة الجداول يتم اظهار الرسائل
والصورة التالية توضح المطلوب

وهذا هو الكود

كود :

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click        

Label1.Text = "تم الحفظ"

        Label1.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label2.Text = "تم الحفظ"

        Label2.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label3.Text = "تم الحفظ"

        Label3.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label4.Text = "تم الحفظ"

        Label4.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label5.Text = "تم الحفظ"

        Label5.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label6.Text = "تم الحفظ"

        Label6.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label7.Text = "تم الحفظ"

        Label7.ForeColor = Color.Blue

        Threading.Thread.Sleep(500)

        Label8.Text = "تم الحفظ"

        Label8.ForeColor = Color.Blue

    End Sub

وشكرا لكم مقدما