[abdewidad]

اخواني الفضلاء
ارجوا المساعدة في برنامج vusial basic 6
اريد عند الضغط على زر Command يخرج قيمة 1 وعند نزع يدي عن الزر يصبح 0

Private Sub Command1_Click()
If Command1 = "1" Then
MSComm1.Output = "1"
else
MSComm1.Output = "0"
End If
End Sub

[abdewidad]

ارجوا المساعدة

[ناصراحمد2]

السلام عليكم ورحمة الله وبركاتة
وكل عام وانتم جميعا بخير وعيد خير عليكم وعلى الامة الاسلامية ان شاء الله .
==================
هذا الطلب بهذا الوصف لا يصلح
لان الكومند لا ينفذ الاوامر الا فى حالة الضغط علية
==================
ولكن يوجد طريقة اخرى وهى حدث الماوس

للاسف ماعنديش الفجول بيسك على هذا الهارد
ولكن ساحاول التذكر والشرح
==================
اضغط على الكومند اللى عايز تشغلة لكى يكون هو اكتف
واختر من اعلى القائمة سوف تجد امر الماوس اضغط عليها واكتب الاوامر
وهذا معناة انة بمجرد مرور الماوس على الزر يعطى خرج 1 وبمجرد ابتعاد الماوس يعطى 0
==================
وان لم تجد هذة الخاصية متوفرة للكوماند جرب وضع تكست بوكس
او حتى صورة
=================
اتمنى تكون وصلت الفكرة

وكل عام وانتم بخير

[abu-thabit]

MouseDown, MouseUp Events


بالتوفيق

[abdewidad]

شكرا اخواني
عيد سعيد وكل عام وانت بخير

[abdewidad]

اخواني هل من حل اخر

[abdewidad]

اخواني هل من حل اخر

[keidk]

بسم الله الرحمن الرحيم

اولا عدل الحدث event الى mouse
move
if botton=1 then
comman1.caption=1
else
command1.caption=0
end if
ويعني اذا ضغطت على الزر الايسر من الماوس اكتب 1 وعند الذهاب بعيد عن الزر الايسر يكتب صفر