• 0
mordant_eagle21

سؤال في Key Ascii

سؤال

اخواني ما معنى هذا الكود

If 65 > KeyAscii And KeyAscii < 90 Then
KeyAscii = 0
End If

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

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

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

End Sub

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

Private Sub Text1_KeyPress(KeyAscii As Integer)

Label1.Caption = KeyAscii

Text1.Text = ""

End Sub

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

ولك تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

والله أعلم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

الكود يعني :

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

بكلام آخر إذا أردت أن يقبل مثلا 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

سلام

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

ASCII_Code_Revel.zip

تم تعديل بواسطه ramezmagdy
0

شارك هذا الرد


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

نعم هو ذاك

الكود يعني :

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .