نقل التركيز الي مربع نص عن طريق زر في لوحة المفاتيح

[hussein arby]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي وزوار المنتدي  الكرام

كيفية نقل التركيز الي مربع نص في نموذج رئيسي  عن طريق زر امر في لوحة المفاتيح بس مايكون زر الانتر 

[hussein arby]

up

[ابوخليل]

استخدم زر المسافة

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 Then
Me.text1.SetFocus
End If
End Sub

example.rar

[hussein arby]

استاذي الفاضل ابو خليل شكرا علي مرورك الطيب  والف شكر لك

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

بس لي طلب بسيط لو امكن

عندي زر امر في نفس النموذج الي طبقت فيه  كود التركيز  في نص معين

زرالامر هذا ينفذ عدة اوامر  عن طريق كود هل من المكن عمل اختصار له عن طريق لوحة المفاتيح

وشكرا لك 

تم تعديل أبريل 21, 2015 بواسطه aboarby123

[ابوخليل]

ولهذا ارفقت لك مثالا يعمل

ولا يحتاج ترفع مثالك

من خصائص الفورم / لسان التبويب حدث

اجعل القيمة : مفتاح العرض التمهيدي = نعم

[hussein arby]

استاذي الفاضل ابو خليل شكرا علي مرورك الطيب  والف شكر لك

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

بس لي طلب بسيط لو امكن

عندي زر امر في نفس النموذج الي طبقت فيه  كود التركيز  في نص معين

زرالامر هذا ينفذ عدة اوامر  عن طريق كود هل من المكن عمل اختصار له عن طريق لوحة المفاتيح

وشكرا لك 

[ابوخليل]

نعم يمكن

للتجربة :

الصق كودك بدلا من نقل التركيز  وسترى النتيجة

[hussein arby]

غلبتك معي اخي ابو خليل 

اين اضع الكود

[ابوخليل]

ضعه في الحدث زر المسافة  بدلا من هذا السطر

Me.text1.SetFocus

 

قلت لك للتجربة

 

بعد ذلك يمكنك  ان تصنع حدث لزر آخر في لوحة المفاتيح

[hussein arby]

شكرا لك اخي الفاضل ابو خليل  

ظبط معي

تم تعديل أبريل 21, 2015 بواسطه aboarby123