جا به جا شدن بین تکست باکس ها با کلید های جهتی

[sajad_boj70]

با سلام خدمت همه دوستان
همون طور که خودتون میدونید
تو ویژوال بیسیک با دکمه tab میشه بین تکست باکس ها جا به جا شد
حالا میخواستم بدونم با کلید های جهتی جه جوری میشه بین تکست باکس ها جا به جا شد
اگر پاسختون با کد اسکیه لطفا کد اسکیه 4 کلید جهتی رو بگویید چون هر کار کردم کد اسکیشون رو نتونستم پیدا کنم
اگر هم پاسختون چیز دیگری هست لطفا همرا با کد توضیح دهید
با تشکر

[returnx]

اگر پاسختون با کد اسکیه لطفا کد اسکیه 4 کلید جهتی رو بگویید چون هر کار کردم کد اسکیشون رو نتونستم پیدا کنم
!!
بالا>>38
پایین>>40
چپ>>37
راست >>39

[sajad_boj70]

با سلام
ببخشید با کد های اسکی نشد.
دوستان راه حل دیگه ای دارند

[vbhamed]

سلام

اين كد رو تو فرمت بزار
ضمنا تكست باكسها به نام Text1 هستن و از انديس 0 شروع ميشن

Option Explicit
Dim CurrentText%

Private Sub Text1_GotFocus(Index As Integer)

On Error Resume Next

CurrentText = Index

End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

On Error Resume Next

Select Case KeyCode
Case vbKeyUp
CurrentText = IIf(CurrentText - 1 < 0, Text1.Count - 1, CurrentText - 1)
Text1(CurrentText).SetFocus

Case vbKeyDown
CurrentText = IIf(CurrentText + 1 > Text1.Count - 1, 0, CurrentText + 1)
Text1(CurrentText).SetFocus
End Select

End Sub