+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : أريد command بحالتين (/showthread.php?tid=1561)
الصفحات:
1
2
أريد command بحالتين - mounzerlb - 15-01-14
السلام عليكم
أريد صنع حالتين للزر 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فهل من طريقة أخرى؟
مع الشكر الجزيل
RE: أريد command بحالتين - asto - 15-01-14
جرب KeyDown بدل MouseDown
و KeyUp بدل MouseUp
RE: أريد command بحالتين - ناجي إبراهيم - 15-01-14
السلام عليكم...
يمكنك استعمال الحدث 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نرجو الاستفادة و السلام.
RE: أريد command بحالتين - mounzerlb - 15-01-14
لم ينجح الامر
اريد اثناء الضغط تغيير الحاله وليس عند الانتهاء من الضغط
RE: أريد command بحالتين - asto - 15-01-14
يعني الماوس لا يعمل ابدا و لا حتى بالضغط ؟
ان كان لا يعمل بالضغط فاكيد مع الشاشة برامج و تعريفات للماوس
او ربما تدخل على رابط الشركة ثم اسم المنتج ثم السوفتوير تع المنتج
RE: أريد command بحالتين - ناجي إبراهيم - 15-01-14
السلام عليكم...
الأخ السائل mounzerlb ليس لديه مشكلة مع الفأرة. هو يتحدث عن شاشة اللمس (Touch Screen) مع استعمال الأصابع - أو ما شابه - بدل الفأرة. يريد أكواد بدل MouseDwon و MouseUp.
سلام.
RE: أريد command بحالتين - VB_Coder - 15-01-14
السلام عليكم
- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .
- تحياتي .
RE: أريد command بحالتين - mounzerlb - 15-01-14
(15-01-14, 08:02 PM)VB_Coder كتب : السلام عليكم
- هل تشاهد الفأرة تذهب لموقع لمس الشاشة بأصبعك وأيضاً هل تتحرك الفأرة مع لمس وسحب أصبعك على الشاشه ، وماذا يحدث للزر عندما تضع أصبعك عليه مطولاً يعني لاترفع أصبعك بسرعه هل ينفذ حدث ال click حتى وإن لم ترفع أصبعك ، وهل تشاهد الزر ينضغط يعني شكل الزر يتغير ، يرجى التوضيح .
- تحياتي .
أخي العزيز الكريم
سأعطي مثل على تلك المشكلة
قمت بعمل برنامج صغير وهو عبارة عن زر command أثناء الضغط عليه يقوم بتنفيذ أمر ما وعند إلغاء الضغط عنه يوقف الأمر
نجح الأمر بواسطة كود mouse down و mouse up ووضعت البرنامج على جهاز لا يمكنني دائما الوصول إليه إلا عبر الإنترت بواسطة برنامج team viewer وعند الدخول الى الجهاز بواسطة التيم فيوور لا يعمل البرنامج. وكي لا أخفي عليكم قمت بحل مبدأي ولكنه ليس فعال 100% إستعمل الحدث كليك وبتشغيل تايمر عند الضغط على زر command فهل من طريقه أخرى.
بالتحكم عن بعد يعمل فقط حدث click وهذا منطقي لأن البرنامج الموجود على الجهاز لا يتلقد الأوامر من الكبسات الموس فمن هنا قلت ما ينطبف على شاشة التاتش ينطبق غلى التحكم عن بعد
وشكراً لكم على المشاركة والتفاعل
RE: أريد command بحالتين - تركي الحلواني - 15-01-14
(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 فهل من طريقه أخرى.
وشكراً لكم على المشاركة والتفاعل
اخي المشكلة مش واضحة هل المشكلة من البرنامج ام من الشاشة ام من دخولك للجهاز بتيم فيور
وتأكد من التيم فيور هل لك كامل التحكم في الجهاز شاهد الصورة المرفقة
[attachment=1111]
RE: أريد command بحالتين - mounzerlb - 15-01-14
المشكلة أخي العزيز أن خاصية mouse down و mouse up لا تعمل في التحكم يجهاز عبر جهاز أخر عن طريق التيم فيوورعن بعد فأريد بديل عنها
مع الشكر الجزيل