كيف يتم التنقل بين text

عن طريق خاصية Tabindex الموجود في خصائص الأداة Textbox فمثلا تضبط الخاصية بالترتيب التالي :

text1 tabindex 0

text2 tabindex 1

text3 tabindex 2

text4 tabindex 3

text5 tabindex 4

text6 tabindex 5

تحياااااتي

الطريقة معي ماهي فعالة

يعني باللكود أفضل ماهو الكود ... ؟

؟؟

انا اضغط تاب بروحه ينقل اخي !!!

مافية عبر الكود

أي طريقة لكن عبر الكود

اتفضل اخي الكود اهو :

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 9 Then Text2.SetFocus
End Sub

text1.setfocus

كما قالوا الأقاضل التنقل بالتاب لا يحتاج إلى كود

ولكني كتبت كود للتنقل بين الحقول بالإدخال أي الـ Enter

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  On Error Resume Next

  If Shift = 0 Then
	Select Case KeyCode
	  Case 13
		SendKeys "{Tab}"
		DoEvents
		With Me.ActiveControl
		  .SelStart = 0
		  .SelLength = Len(.Text)
		End With
	End Select
  End If
End Sub

اخي ولماذا هذا الكود ؟؟

انظر :

if keycode = 13 then
SendKeys "{Tab}"
end if

لا أعرف أخي مبرمج مبتدا هل أنت تسأل أم تصحح

قيمة Shift أكيد لها معنى في الحدث

فليس الضغط على الإدخال كـ (الضغط عليها مع الضغط على العالي) في ذات الوقت .. أكيد هناك فرق ولتجرب وتتعرف على الفرق بنفسك

أما هذه الأسطر :

	   With Me.ActiveControl
		  .SelStart = 0
		  .SelLength = Len(.Text)
		End With

في لتظليل النص بمجرد الإنتقال للحقل

والهدف منها هو مطابقة أداء نموذج الفجوال بنموذج الأكسس

شكراً لكم جميعاً

أما الكود الفعال فهو الذي مع الأخ علاء ومبرمج مبتدأ

اما الكود الذي ع الأخ Accessna فهو يقوم بتحويل النقر من الزر enter إلى الزر tab

مشكراً لكم جميعا وكذلك يفعل أهل الكرم