سؤال عن الفيجوال بيسك

بدأه maan1984 في 2 فبراير 2011 · 1 رد · 377 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#12 فبراير 2011 في 08:44 صاحب الموضوع

السلام عليكم

انا لدي استفسار او مشكلة في الفيجوال بيسك 6 وكالتالي

في الـ Form وضعت Command1 وانا اريد عن الضغط على هذا الـ Command1 تظهر لي عبارة MsgBox "The Device Is ON

وبعدها اضغط على اوكي

ولكن المرة الثانية التي اضغط فيها على Command1 تظهر لي عبارة MsgBox "The Device IS OFF

اي في كل مرة عبارة تختلف عن الثانية

كيف اكون هذا الشي

#22 فبراير 2011 في 13:01

السلام عليكم

نحتاج الى متغير ما لنضع فيه الحالة عند كل ضغط لذا ساستخدم هنا command1.tag لمعرفة هذه الحالة

ضع في command1_click الكود التالي :

If Command1.Tag = "1" Then
Command1.Tag = "0"
MsgBox "The Device IS OFF"
Else
Command1.Tag = "1"
MsgBox "The Device IS On"
End If