منع موشر التركيز من الخروج من النص الا بالماوس فقط

[النجاشي]

السلام عليكم ورحمه الله وبركاته

احبتي الكرام

كيف امنع موشر التركيز من الخروج من النص عندما اضغط اي مفتاح  الا بالماوس فقط

شاكرين مقدرين

[sandanet]

اخي الكريم اعتقد بانك تستطيع عمل ذلك من خلال وضع كود تعطيل عمل مفاتيح الكيبورد يوضعه في خاصية عند التركيز لمربع النص ومن ثم يتم تمكين عمل مفاتيح الكيبورد عن طريق وضع الكود الاخر في حدث عند فقدان التركيز لنفس مربع النص وهو كالتالي : لنفترض ان مربع النص اسمه Text25

Private Sub Text25_GotFocus()
On Error Resume Next
Me.KeyPreview = False
End Sub

وعند الخروج من مربع النص عن طريق الماوس ضع الامر التالي 

Private Sub Text25_LostFocus()
On Error Resume Next
Me.KeyPreview = True
End Sub

وفي حدث "عند مفتاح الأسفل" لمربع النص Text25 ضع الكود التالي

Select Case KeyCode
Case 48 To 57
 KeyCode = KeyCode
Case Else
 KeyCode = 0
End Select

الان جرب افتح النموذج وادخل على مربع النص وحاول الخروج منه من الكيبورد

ستجد ان جميع مفاتيح الكيبورد لاتعمل ماعدا الارقام

تحياتي

[النجاشي]

منذ ساعه, sandanet said:

اخي الكريم اعتقد بانك تستطيع عمل ذلك من خلال وضع كود تعطيل عمل مفاتيح الكيبورد يوضعه في خاصية عند التركيز لمربع النص ومن ثم يتم تمكين عمل مفاتيح الكيبورد عن طريق وضع الكود الاخر في حدث عند فقدان التركيز لنفس مربع النص وهو كالتالي : لنفترض ان مربع النص اسمه Text25

Private Sub Text25_GotFocus()
On Error Resume Next
Me.KeyPreview = False
End Sub

وعند الخروج من مربع النص عن طريق الماوس ضع الامر التالي 

Private Sub Text25_LostFocus()
On Error Resume Next
Me.KeyPreview = True
End Sub

وفي حدث "عند مفتاح الأسفل" لمربع النص Text25 ضع الكود التالي

Select Case KeyCode
Case 48 To 57
 KeyCode = KeyCode
Case Else
 KeyCode = 0
End Select

الان جرب افتح النموذج وادخل على مربع النص وحاول الخروج منه من الكيبورد

ستجد ان جميع مفاتيح الكيبورد لاتعمل ماعدا الارقام

تحياتي

بارك الله فيك استاذي@sandanet بحاول اعملها علي النموذج وابلغك بالنتيجه فالف شكرا اليك استاذي

هذه القاعده اريد العمل بنموذجfrm_Search_New ان يكون التركيز بنصn2

وان لا يخرج عند الضغط علي مفتاح الكيبورد للاعلي او الاسفل او اليمن او اليسار يكون انقل التركيز من خلال النقر بالماوس 

مع اعاد النظر استاذي بالكود عن الضغط على مفتاح للاسفل بنموذجfrm_Search_New بشرط يودي عمليه الحركه للاعلي والاسفل والادارج بالنموذجين المذكورين بالكود شاكرين اليكم احبتي

عدم خروج التركيز بالكيبورد.rar