إلى أحبابي في المنتدي
كود بصراحة أنا مش عارف جديد ولا قديم هيفيدكم ولا مش هيفيدكم
المهم أنا أردت أن أسهم بأي حاجه في ذلك المنتدى المتميز الذي أفادني كثيراً جداً
الكود التالي
Private Sub text_GotFocus() text.SelStart = 0 text.SelLength = Len(text) End Sub
يقول بتظليل البيانات الموجودة في الtext box تلقائياً مما يسهل في عملية إدخال البيانات
أما الكود التالي فهو يقوم بالانتقال إلى الtext box التالي المضبوط بخاصية tab indexتلقائياً عند الضغط على مفتاح enter أو الرجوع إلى الtext box التي قبله باستخدام مفتاح esc
Private Sub remark_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{tab}"
Else
If KeyCode = 27 Then
SendKeys "+{tab}"
End If
End If
End Subملحوظة هامة
يوضع الكودان المكتوبان في كل text box موجودة في النموذج حتى يتسنى الانتقال بمفتاح enter تلقائياً للتالي أو الرجوع بمفتحا esc
وبارك الله في أعضاء المنتدى الطيبين
أحمــــــد (asfora)
