14-04-13, 05:58 PM
اخواني اخواتي
السلام عليكم ورحمة الله وبركاته
عند محاولة تنفيذ امر حفظ لعدة قيم وبعد كل حفظ اسند لاداة تسمية label كلمة "تم الحفظ" وهن ادوات تسمية اسفل بعض ..
الذي اريده: ان يتم تنفيذ كل امر على حده يعني يحفظ ثم يكتب تم الحفظ ثم ينتقل لامر الحفظ الاخر.
الذي فعلته هو بزر امر واحد لكن لايتم اخباري بانه تم الحفظ لاي قيمة الا بعد الانتهاء من كافة القيم.
ايضاح اكثر
اقوم الان بتعديلات على معالج التثبيت المخصص للمنتدى بمعنى زرع الجداول للقاعدة بقيم افتراضية اريد بعد الانتهاء من اي جدول ان يتم كتابة انه تم انشاء الجدول الفلاني بنجاح (اريده بشكل فوري بعد اي انشاء لاي جدول) لان الحاصل انه بعد الانتهاء من انشاء كافة الجداول يتم اظهار الرسائل
والصورة التالية توضح المطلوب
وهذا هو الكود
وشكرا لكم مقدما
السلام عليكم ورحمة الله وبركاته
عند محاولة تنفيذ امر حفظ لعدة قيم وبعد كل حفظ اسند لاداة تسمية 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