سؤال در مورد فوکوس

[hr0694]

سلام

من میخام این دو کد جوری تغییر کنند که وقتی فوکوس اول تکست یا آخر تکست است فعال شوند ولی در این حالت اگر فوکوس وسط کلمه ای هم باشد با زدن این دو کلید به تکست قبل و بعد میپرد

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then Text1.SetFocus
End Sub

[aria1o]

با سلام
امید وارم منظورت رو درست فهمیده باشم:لبخند:


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

If Text1.SelStart = Len(Text1.Text) Or _
Text1.SelStart = 0 Then
If KeyCode = 37 Then Text2.SetFocus
End If
End Sub

[hr0694]

این کدی که نوشتید همون چیزیه که میخواستم اما واسه این یکی که نوشتم کار نمیکنه منظورم اینه که وقتی فوکوس به اول تکست2 میاد خود بخود به تکست1 میپره بدون زدن کلید سمت چپ مکان نما کیبورد

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If Text2.SelStart = Len(Text2.Text) Or _
Text2.SelStart = 0 Then
If KeyCode = 39 Then Text1.SetFocus
End If
End Sub

[hr0694]

کسی نیست به این سؤال پاسخ بده