فوکوس

[hr0694]

سلام

این کد از دوستان میخام جوری اصلاح کنند که اگه داخل تکست1 که مولتی لاینش True است اگه تعداد خط ها بیشتر از یکی بود فوکوس از تکست1 مستقیماً به تکست2 نپره یعنی با زدن دکمه مکان نما پایین کیبورد فوکوس از خط1 به خط2 تکست1 برود بعد اگر خطی دیگر نبود با زدن دکمه به تکست2 بپرد

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text01.SetFocus: KeyCode = 0
End Sub

[arenaw]

سلام
ببینید این به کارتون میاد؟

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim a As Boolean: a = True
For i = Text1.SelStart To Len(Text1.Text)
If Mid(Text1.Text, i + 1, 1) = Chr(10) Then a = False
Next
If a = True Then If KeyCode = 40 Then Text01.SetFocus: KeyCode = 0
End Sub