سؤال في Key Ascii

جرب هذا الكود لعلك تصل إلى شيء

Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = KeyAscii
Text1.Text = ""

End Sub

هذا الكود خاص بالتعامل مع المفاتيح حسب الرقم حيث ان لكل مفتاح رقم للتعامل فمثلا مفتاح الانتر يحمل الرقم 13 وكما قال الاخ المزمجر يمكنك معرفة رقم المفتاح من خلال هذا الكود

Private Sub Text1_KeyPress(KeyAscii As Integer)

Label1.Caption = KeyAscii

Text1.Text = ""

End Sub

اضغط اي زر سوف يظهر الرقم في الـــTEXT1

ولك تحياتي

أظن يا إخوانى أن الأخ ميدو يطلب ما معنى الكود الذى كتبه ولا يريد معرفة أرقام المفاتيح

فالكود يا أخ ميدو أظن أنه يحمل شرط إبطال عمل عدة مفاتيح وهى التى عددها محصور بين الرقمين المذكورين .

والله أعلم

السلام عليكم

آمل أن يفيدك هذا الكلام

الكود يعني :

لا يمكن كتابة الحروف الانجليزية الكبيرة

بكلام آخر إذا أردت أن يقبل مثلا text box الارقام فقط

أكتب

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

وإذا لم تعرف ascii الحرف استعمل الدالة Asc

مثلا

Asc("u")

ستعيد 117

سلام

تماما كما قال المزمجر و i1982

وهذا برنامج صغير من برمجتى لمعرة كود الزر واسمه

ASCII_Code_Revel.zip

اقتباس

أظن يا إخوانى أن الأخ ميدو يطلب ما معنى الكود الذى كتبه ولا يريد معرفة أرقام المفاتيح

نعم هو ذاك

اقتباس

الكود يعني :

لا يمكن كتابة الحروف الانجليزية الكبيرة

هذا هو المطلوب

  لكني أردت من الاخmedo_Programming

أن يستنتج ذلك بنفسه من خلا تجريب الازرار

و السلام عليكم

مشكورين أخواني على التجاوب السريع وعلى ردودكم :rolleyes: والله مش عارف ايش اقول لكم . جزاكم الله ألف خير