تقييم الموضوع :
  • 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 ك ب / التحميلات : 61)
الرد }}}}
تم الشكر بواسطة:
#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] كيف يمكنني حذف اسم الزر (Command) larbihamri 2 266 27-02-16, 01:25 AM
آخر رد: السيد الغالي
  أريد أحضار البيانات على صف واحد الحزين اوى 5 411 18-08-15, 08:21 PM
آخر رد: أبو عمر
  أريد عند تحديد التاريخ الأول يتم تحديد التاريخ الثاني تلقئيا على أن يكون بعده بثلاثة رجل الكهرباء 3 584 02-05-15, 01:54 AM
آخر رد: رجل الكهرباء
  [سؤال] أريد طريقة لعمل Drag & Drop لــ Image b4getws 2 502 21-10-14, 09:27 PM
آخر رد: b4getws
Question [vb6.0] كيف اجعل Command في جهة الايمين من Form في حال تضغير الفوم او تكبيره ؟؟ Microformt 2 375 17-08-14, 10:08 PM
آخر رد: Microformt
  [سؤال] أريد أن أقوم بتحويل ما في أداة PictureBox إلى Hex أو DATA b4getws 1 423 13-03-14, 11:33 PM
آخر رد: b4getws
  [سؤال] أريد أن اطبع نتيجة البحث على آكتف ريبورت hachemi 2 613 07-03-14, 12:40 AM
آخر رد: hachemi
Question [سؤال] أريد شرح أو كود لجعل برنامج يخرج ملف (Exe) النبراس12 5 681 08-02-14, 08:41 PM
آخر رد: النبراس12
  [مشروع] أريد إنشاء مشروع جرس كهربائي مع قاعدة بيانات mounzerlb 2 578 09-01-14, 10:16 PM
آخر رد: mounzerlb
  [سؤال] أريد الأداة التي تغير شكل الفورم abdelata 4 853 01-01-14, 02:41 PM
آخر رد: abdelata

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


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