ايقاف جميع المفاتيح إلا مفتاح Enter

أخي سيصلك الرد حالا

اكتب هذا في الموديول

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

و وافني بالرد

حبيبي الغالي

لم يتم شيئ حفظك الله

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

لا زلت انتظر

اخ ابو زيد ......هذا هو الكود

If KeyAscii = "13" Then End

If KeyAscii <> "13" Then

KeyAscii = "0"

End If

اخي ضع الكود في حدث ال keypress

أحبابي حفظكم الله

يمكن أنني لم أحسن صياغة المطلوب

أريد الانتقال بالإنتر (enter) فقط

زي ماقال الاخ abu sabreen يعني مثلا لو كان عندك ثلاثة صناديق نصوص وتبغى تنتقل من الاول الى الثاني الى الثالث

اكتب في حدث keypress لكل واحد ما عدا الثالث لانه قلنا يكون الاخير فمثلا هذا يكون للاول

If KeyAscii = 13 Then text2.setfocus

وهكذا بالنسبة للتيكست الثاني ما عدا الاخير لانه سيكون اخر واحد

حبابي

ماذا أصنع بمفتاح (tab) و هو ينقل المشير

أنا أريد عدم انتقال المشيرة بالـ(enter) فقط

أخي معلش لم اري بقية السؤال كويس

اولا بالنسبة لمنع التنقل بالتاب لمربع النص ضع قيمة الخاصية tabstop على false

ثم استخدم الكود التالي

If KeyAscii = 57 Then
Exit Sub
End If
If KeyAscii = 13 And KeyAscii <> 57 Then
Text2.SetFocus
End If

حبيبي الغالي

لا زال التاب شغال رغم أن الخاصية tabstop = false

ما هو كود معرفة askii

اخي الكريم الحل كما قلت لك جعل خاصية tabstop على false لكل أدوات النموذج

وهذا مثال عمل على ما أقول

لك تحياتي

______tab.zip

وفقك الله

ورحم الله والديك دنيا و آخرة

ياليت كود لمعرفة الآسكي للمفاتيح

Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub

عند ضغطك لأي مفتاح من لوحة المفاتيح سوف تظهر لك رسالة برقم الآسكي له، طبعاً يستثنا مفاتيح التحكم.

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

رحم الله والديك

ووفقك