تقييم الموضوع :
  • 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 ك ب / التحميلات : 81)
الرد }}}}
تم الشكر بواسطة:
#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 لا تعمل في التحكم يجهاز عبر جهاز أخر عن طريق التيم فيوورعن بعد فأريد بديل عنها
مع الشكر الجزيل
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد تشغيل برنامجي المرفق على جميع احجام الشاشات صعب الوصول 10 424 06-06-17, 05:18 AM
آخر رد: صعب الوصول
  أريد عمل إستعلامات لإظهار نتائج بشروط معينة princeofislam 9 351 18-05-17, 05:00 PM
آخر رد: princeofislam
  سؤال أريد أن أكتب رقم الزبون في التكست بوكس وأعرض فواتير الزبون في التقرير فيصل علي 2 208 08-05-17, 08:57 PM
آخر رد: فيصل علي
  لدي مجلد يحتوي ملفات مختلفة أريد فقط إظهار الصور في list الخير طهوري 4 361 17-02-17, 12:12 AM
آخر رد: الخير طهوري
  أرجو المساعدة، أريد ماكرو لإدراج جدول بمواصفات معينة SYman 0 269 21-12-16, 12:14 PM
آخر رد: SYman
  [vb6.0] كيف يمكنني حذف اسم الزر (Command) larbihamri 2 508 27-02-16, 01:25 AM
آخر رد: السيد الغالي
  أريد أحضار البيانات على صف واحد الحزين اوى 5 622 18-08-15, 08:21 PM
آخر رد: أبو عمر
  أريد عند تحديد التاريخ الأول يتم تحديد التاريخ الثاني تلقئيا على أن يكون بعده بثلاثة رجل الكهرباء 3 804 02-05-15, 01:54 AM
آخر رد: رجل الكهرباء
  [سؤال] أريد طريقة لعمل Drag & Drop لــ Image b4getws 2 645 21-10-14, 09:27 PM
آخر رد: b4getws
Question [vb6.0] كيف اجعل Command في جهة الايمين من Form في حال تضغير الفوم او تكبيره ؟؟ Microformt 2 537 17-08-14, 10:08 PM
آخر رد: Microformt

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


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