المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
جرب KeyDown بدل MouseDown
و KeyUp بدل MouseUp
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
يمكنك استعمال الحدث Click لتنفيذ مهمتين.
في قسم التصريحات العام للـ Form قم بتعريف متغير من النوع Boolean. مثلاً:
كود :
Private ButtonPressed As Boolean
في الحدث Click للزر استعمل كوداً كالتالي:
كود :
ButtonPressed = Not ButtonPressed
If ButtonPressed Then
' الكود الذي تريد تنفيذه عند ضغط الزر
Else
' الكود الذي تريد تنفيذه عند تحرير أو إطلاق الزر
End If
* ملاحظة: من أجل إعطاء تلميح بصري للمستخدم أن الزر شغال أو متوقف يمكن ضبط الخاصية Style للزر على Graphical لتغيير لونه حسب حالته، مثلاً:
كود :
ButtonPressed = Not ButtonPressed
If ButtonPressed Then
Command1.BackColor = vbRed ' إظهار الزر باللون الأحمر - يعمل
' الكود الذي تريد تنفيذه عند ضغط الزر
Else
Command1.BackColor = vbButtonFace ' استعادة اللون الأصلي للزر - متوقف
' الكود الذي تريد تنفيذه عند تحرير أو إطلاق الزر
End If
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 41
المواضيع 11
الإنتساب : Dec 2013
السمعة :
0
الشكر: 46
تم شكره 5 مرات في 5 مشاركات
لم ينجح الامر
اريد اثناء الضغط تغيير الحاله وليس عند الانتهاء من الضغط
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
15-01-14, 06:05 PM
(آخر تعديل لهذه المشاركة : 15-01-14, 06:06 PM {2} بواسطة asto.)
يعني الماوس لا يعمل ابدا و لا حتى بالضغط ؟
ان كان لا يعمل بالضغط فاكيد مع الشاشة برامج و تعريفات للماوس
او ربما تدخل على رابط الشركة ثم اسم المنتج ثم السوفتوير تع المنتج
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
الأخ السائل mounzerlb ليس لديه مشكلة مع الفأرة. هو يتحدث عن شاشة اللمس (Touch Screen) مع استعمال الأصابع - أو ما شابه - بدل الفأرة. يريد أكواد بدل MouseDwon و MouseUp.
سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
المشاركات : 41
المواضيع 11
الإنتساب : Dec 2013
السمعة :
0
الشكر: 46
تم شكره 5 مرات في 5 مشاركات
المشكلة أخي العزيز أن خاصية mouse down و mouse up لا تعمل في التحكم يجهاز عبر جهاز أخر عن طريق التيم فيوورعن بعد فأريد بديل عنها
مع الشكر الجزيل