تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] كيفية ادراج أداه Button و Label
#1
كيف اعمل زر وى Label اما اضفط على الزر Label يعد عد تنازلي من 3 الى 1
}}}}
تم الشكر بواسطة:
#2
أضف مايلي :-
Button1 + Timer1 + Label1

في خصائص Timer1
أجعل خاصية Interval قيمتها 1000
واجعل خاصية Enabled إلى False

في خصائص Label1
في خاصية Text أحذف النص الي بداخله

الأن افتح نافذة الأكواد
ضع هذا الكود
كود :
[color=#0000ff]Dim[/color] i [color=#0000ff]As Integer[/color] = 3
تحت كلمة Public Class Form1 مباشرة



الأن عند حدث
Button1_Click
ضع هذا الكود

كود :
Timer1.Enabled = [color=#0000ff]True[/color]

الأن في حدث Timer1_Tick
ضع الكود التالي

كود :
[b][SIZE=4][color=#0000ff]If[/color] I > -1 [COLOR=#0000ff]Then
[/COLOR][/SIZE][/b][b][SIZE=4]Label1.Text = I[/SIZE][/b]
[b][SIZE=4]I -= 1[/SIZE][/b]
[b][SIZE=4][color=#0000ff]Else[/color][/SIZE][/b]
[b][SIZE=4]Label1.Text = [color=#b22222]"تم الإنتهاء من العد التنازلي"[/color][/SIZE][/b]
[b][SIZE=4]I = 3[/SIZE][/b]
[b][SIZE=4]Timer1.Enabled = [color=#0000ff]False[/color][/SIZE][/b]
[b][SIZE=4][color=#0000ff]End If[/color][/SIZE][/b]


شغل البرنامج وشوف الناتج


أخوك


}}}}
تم الشكر بواسطة:
#3
Easy 4ever كتب :أضف مايلي :-
Button1 + Timer1 + Label1

في خصائص Timer1
أجعل خاصية Interval قيمتها 1000
واجعل خاصية Enabled إلى False

في خصائص Label1
في خاصية Text أحذف النص الي بداخله

الأن افتح نافذة الأكواد
ضع هذا الكود
كود :
[color=#0000ff]Dim[/color] i [color=#0000ff]As Integer[/color] = 3
تحت كلمة Public Class Form1 مباشرة



الأن عند حدث
Button1_Click
ضع هذا الكود

كود :
Timer1.Enabled = [color=#0000ff]True[/color]

الأن في حدث Timer1_Tick
ضع الكود التالي

كود :
[b][SIZE=4][color=#0000ff]If[/color] I > -1 [COLOR=#0000ff]Then
[/COLOR][/SIZE][/b][b][SIZE=4]Label1.Text = I[/SIZE][/b]
[b][SIZE=4]I -= 1[/SIZE][/b]
[b][SIZE=4][color=#0000ff]Else[/color][/SIZE][/b]
[b][SIZE=4]Label1.Text = [color=#b22222]"تم الإنتهاء من العد التنازلي"[/color][/SIZE][/b]
[b][SIZE=4]I = 3[/SIZE][/b]
[b][SIZE=4]Timer1.Enabled = [color=#0000ff]False[/color][/SIZE][/b]
[b][SIZE=4][color=#0000ff]End If[/color][/SIZE][/b]


شغل البرنامج وشوف الناتج


أخوك



جزاك الله خيرا اخى
}}}}
تم الشكر بواسطة:
#4
تم ايجاد الحل
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 79 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
  [VB.NET] printing label dubai.eig 0 42 27-11-16, 12:44 AM
آخر رد: dubai.eig
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 109 23-11-16, 08:51 PM
آخر رد: newvbdev
  كيفية تغير رسائل الخطأ؟ noway 3 68 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 244 10-11-16, 10:02 PM
آخر رد: Programmer_2017
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 105 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] كيفية التعامل مع العلاقات برمجياً ؟؟؟؟ thevirus 4 138 06-11-16, 08:22 PM
آخر رد: thevirus
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 122 24-10-16, 06:45 AM
آخر رد: thevirus
  مساعدة في كيفية عرض بيانات جدوال SQL Relationshipفي نفس تقرير VB أحمد محمد جمعة 1 62 23-10-16, 10:45 PM
آخر رد: Adrees
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 122 21-10-16, 04:40 AM
آخر رد: silverlight

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم