تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أريد command بحالتين
#1
السلام عليكم
أريد صنع حالتين للزر commad
الحالة الأولى أثناء الضغط
الحالة الثانية عندما يعود لطبيعته
المشروع نجح عندما استخدمت هذا الحدت
كود :
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
كود :
Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
ولكن في حالة شاشة التاتش لم يعد للموس دور فلم يعد يعمل زر command
فهل من طريقة أخرى؟
مع الشكر الجزيل


الملفات المرفقة
.rar   العد عند الضغط.rar (الحجم : 1.66 ك ب / التحميلات : 101)
الرد }}}
تم الشكر بواسطة:
#2
جرب KeyDown بدل MouseDown

و KeyUp بدل MouseUp
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم...

يمكنك استعمال الحدث 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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#4
لم ينجح الامر
اريد اثناء الضغط تغيير الحاله وليس عند الانتهاء من الضغط
الرد }}}
تم الشكر بواسطة:
#5
يعني الماوس لا يعمل ابدا و لا حتى بالضغط ؟

ان كان لا يعمل بالضغط فاكيد مع الشاشة برامج و تعريفات للماوس

او ربما تدخل على رابط الشركة ثم اسم المنتج ثم السوفتوير تع المنتج
الرد }}}
تم الشكر بواسطة: VB_Coder
#6
السلام عليكم...

الأخ السائل mounzerlb ليس لديه مشكلة مع الفأرة. هو يتحدث عن شاشة اللمس (Touch Screen) مع استعمال الأصابع - أو ما شابه - بدل الفأرة. يريد أكواد بدل MouseDwon و MouseUp.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: mounzerlb
#7
السلام عليكم

- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة:
#8
(15-01-14, 08:02 PM)VB_Coder كتب : السلام عليكم

- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .

- تحياتي .

أخي العزيز الكريم
سأعطي مثل على تلك المشكلة
قمت بعمل برنامج صغير وهو عبارة عن زر command أثناء الضغط عليه يقوم بتنفيذ أمر ما وعند إلغاء الضغط عنه يوقف الأمر
نجح الأمر بواسطة كود mouse down و mouse up ووضعت البرنامج على جهاز لا يمكنني دائما الوصول إليه إلا عبر الإنترت بواسطة برنامج team viewer وعند الدخول الى الجهاز بواسطة التيم فيوور لا يعمل البرنامج. وكي لا أخفي عليكم قمت بحل مبدأي ولكنه ليس فعال 100% إستعمل الحدث كليك وبتشغيل تايمر عند الضغط على زر command فهل من طريقه أخرى.
بالتحكم عن بعد يعمل فقط حدث click وهذا منطقي لأن البرنامج الموجود على الجهاز لا يتلقد الأوامر من الكبسات الموس فمن هنا قلت ما ينطبف على شاشة التاتش ينطبق غلى التحكم عن بعد
وشكراً لكم على المشاركة والتفاعل
الرد }}}
تم الشكر بواسطة:
#9
(15-01-14, 11:11 PM)mounzerlb كتب :
(15-01-14, 08:02 PM)VB_Coder كتب : السلام عليكم

- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .

- تحياتي .

أخي العزيز الكريم
سأعطي مثل على تلك المشكلة
قمت بعمل برنامج صغير وهو عبارة عن زر command أثناء الضغط عليه يقوم بتنفيذ أمر ما وعند إلغاء الضغط عنه يوقف الأمر
نجح الأمر بواسطة كود mouse down و mouse up ووضعت البرنامج على جهاز لا يمكنني دائما الوصول إليه إلا عبر الإنترت بواسطة برنامج team viewer وعند الدخول الى الجهاز بواسطة التيم فيوور لا يعمل البرنامج. وكي لا أخفي عليكم قمت بحل مبدأي ولكنه ليس فعال 100% إستعمل الحدث كليك وبتشغيل تايمر عند الضغط على زر command فهل من طريقه أخرى.
وشكراً لكم على المشاركة والتفاعل


اخي المشكلة مش واضحة هل المشكلة من البرنامج ام من الشاشة ام من دخولك للجهاز بتيم فيور

وتأكد من التيم فيور هل لك كامل التحكم في الجهاز شاهد الصورة المرفقة


   
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#10
المشكلة أخي العزيز أن خاصية mouse down و mouse up لا تعمل في التحكم يجهاز عبر جهاز أخر عن طريق التيم فيوورعن بعد فأريد بديل عنها
مع الشكر الجزيل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد كود : للتأكد من أن البرنامج يعمل بالفعل ولا يتشغيل البرنامج مرة أخرى بنفس الوقت hamada salah90 7 1,738 12-02-22, 04:38 PM
آخر رد: aboezzat84
  [vb6.0] أريد كود [حذف جميع الأصناف] من الطلبية وعودة رصيدها لجدول رصيد المخازن hamada salah90 3 1,035 27-11-21, 02:53 AM
آخر رد: ahmedabdelaliem
  طلب : أريد المساعدة في الداتا ريبورت hamada salah90 1 899 25-10-21, 06:35 PM
آخر رد: Taha Okla
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 1,205 16-09-21, 01:13 PM
آخر رد: hamada salah90
  [vb6.0] أريد تنفيذ أمر معين يتم تنفيذه عند الضغط على مفتاح معين من لوحة المفاتيح hamada salah90 0 974 28-07-21, 11:32 PM
آخر رد: hamada salah90
  [vb6.0] سؤال: أريد كود VB6 جمع خليتين (ليس فحواهما) إكسيل 2003 ؟ شكرا abdouhai 3 1,573 17-09-19, 12:27 AM
آخر رد: ahmed.m
  أريد حل لمشكلة "Run Time Error "13 Ahmed Abdulla 1 2,230 29-11-18, 12:10 AM
آخر رد: عبدالله الصافي
  السلام عليكم أريد برنامج لجمعية خيرية محمد جبريل 3 1,923 08-11-18, 03:01 PM
آخر رد: elgokr
Heart [سؤال] مساعدة : أريد كود excel 2003 من إخواني مشكورين ؟؟؟؟؟؟ abdouhai 3 1,596 29-01-18, 03:33 AM
آخر رد: عبدالله الدوسري
  أريد طباعة كارت شخصي للكل موظف بالاكتف ريبورت الحزين اوى 1 1,525 19-01-18, 04:13 PM
آخر رد: Amir_Alzubidy

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


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