تقييم الموضوع :
  • 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
تم ايجاد الحل
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 120 أمس, 02:39 PM
آخر رد: Crazy_Vb.NeT
  كيفية الاختصار bidaya 3 63 أمس, 01:05 AM
آخر رد: مساعدة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 76 21-02-17, 09:03 PM
آخر رد: noway
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 37 20-02-17, 02:45 PM
آخر رد: ناصر شير
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 60 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 62 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  سؤال .. عن طريقة ادراج صورة من السكانر وطباعتها ناصر شير 0 45 20-02-17, 02:54 AM
آخر رد: ناصر شير
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 142 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 55 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 53 14-02-17, 07:23 PM
آخر رد: dubai.eig

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


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