[ تمت الإجابة ]الفصل بين ضغط Enter والحدث Click

مرحبا

من الممكن يا أخي الكريم ان تخصص متغير في حدث

KEY DOWN وتعطيه قيمه في حالة الضغط على انتر asci code 13

وبهذا تفصل بين الطريقتين باستخدام شرط كـ IF

وشكراً

شكراً أخي، ولكن يبدو أنّك لم تفهم السؤال جيداً، يمكنك أن تجرب:

Private sub Command1_Click()
Print "Hello"
End sub

Private sub Command1_KeyPress(KeyAscii as Integer)
IF KeyAscii = 13 then Print "Bye"
End sub

هنا ستجد أنّه لن يشعر أصلاً بالحدث KeyPress فما الحل؟

وشكراً مرة أخرى

شكراُ أخ mrx-ta7ady ولكن المشكلة هي أن الحدثين MouseDown و Click حدثان متعاقبان، فأنت عندما ستضغط سيحدث MouseDown وعندما سترفع سيحدث Click وسيطبع على الشاشة

Hello

Bye

بينما أريده هو أن يطبع Hello عندما أضغط Click، و Bye عندما أضغط Enter .

وشكراً لك أخي

الكود الذي وضعه أخي mrx_ta7ady صحيح ، ولكن ينقصه سطر كي يعمل :

	IsClicked = True

ضع هذا السطر في MouseDown

شكراً لكما، فعلاً تم حل المشكلة ولله الحمد.

اقتباس

الكل يعلم أن ضغطة Enter بالنسبة للـCommand Button تساوي في مفعولها الحدث Click،

والسؤال للجميع ،هل يمكن إلغاء واستبدال ضغطة المسطرة بضغطة مفتاح الإنتر شكلاً ومضموناً مع الحدث Click لزر الكوماند العادي نفسه

عبد العزيز اليوسفي كتب:

هل يمكن إلغاء واستبدال ضغطة المسطرة بضغطة مفتاح الإنتر شكلاً ومضموناً مع الحدث Click لزر الكوماند العادي نفسه

ClickEvent.rar

:D

بوجهة نظري مستحيل تعمل على الزر الأساسي ويجب تصميم زر آخر