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

ستجد للأداة TextBox خاصية TabInex

قم بوضع ال Indexبالترتيب الذي تريده بدءا من الصفر لترتيب الانتقال بالزر tab بين التكست.

وإذا أردت الانتقال بالزر Enter

علي اعتبار أنه يوجد لديك إثنان تكست بأسم Text1,Text2

في حدث Key Press لـ Text1 يمكنك معرفة هل تم ضغط علي الزر Enter من رقم الاسكي 13 هكذا :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys vbTab

End Sub

أو

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Text2.SetFocus

End Sub

مرحيا

طريقة الانتقال بين text

If KeyCode = 13 Then

SendKeys "{tab}"

End If

If KeyCode = 39 Then

SendKeys "+{tab}"

End If

مع تحياتي

(h)

الانتقال بالضغط على مفتاح enter مع فحص التاريخ هل هو صحيح ام لا

Select Case KeyCode

Case 13, 40:

If Not IsDate(Format(MaskedEdit1.Text, "dd-mm-yyyy")) Then

MsgBox "ÇáÊÇÑíÎ ÎÇØÆ", 16, "ÊäÈíå"

Else

SendKeys "{tab}"

End If

Case 38: SendKeys "+{tab}"

End Select

مع تحياتي

;)

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

يا جماعة الحدث اللي مكتوب ده فين في احداث التكستات وشكرا ولا ده سب هو عامله ؟؟؟؟

يااستاذ سامح

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

على فكره لو دخلت على الرابط الموجود في المشاركة السابقة سوف تجد الكود التالي

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

وهذا الكود يوضح أن هناك حدث للتكست اللي اسمها remark هذا الحدث اسمه keydown

طيب تختار الحدث ثم تكتب الكود السابق

ماذا يفعل يفعل الأتي

عند الضغط على مفتاح enter فإن المؤشر سينتقل تلقائياً إلى التكست التالي بس بشرط وهو

أن تكون ضبطت خاصية tab index للتكس كما يلي

تضع التاب إندكس لtext1 =0

وياريت تحمل في form load السطر التالي

text1.setfocus

وبعدين تذهب للتكست التالي وتضبط خاصية tab index إلى 1

وبعدين تذهب للتكست التلي وتضبط خاصية tab index إلى 2 وهكذا

يبقى انت عملت حاجتين وهما

1- ضبط التاب إندكس كما هو مذكور سالفاً

2- كتبت الكود الكبير السابق لكل text

وهتنفذ معاك بإذن الله تعالى

وفقك الله ورعاك

أخوك أحمـــــــــــــــــــد

متشكر يا باشا ليك مرة تانية كدة انت وضحتلي الأمور والكود بتاعك ده كود جاااااااااااااامد جدا شكرا ليك