Hassan2500
چهارشنبه 06 اردیبهشت 1391, 12:21 عصر
سلام
این کد مربوط به اینه که اگه داخل تکست1 که مولتی لاینش True است اگه تعداد خطهایش بیشتر از یکی بود فوکوس از تکست1 مستقیماً به تکست2 نپره یعنی با زدن دکمه پایین کیبورد فوکوس از خط1 به خط2 تکست1 برود بعد اگر خطی دیگر زیرش نبود با زدن دکمه پائین به تکست2 بپرد اما این کد فقط برای یکبار عمل میکند و در بار دوم عمل نمیکند
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 Text2.SetFocus: KeyCode = 0
End Sub
این کد مربوط به اینه که اگه داخل تکست1 که مولتی لاینش True است اگه تعداد خطهایش بیشتر از یکی بود فوکوس از تکست1 مستقیماً به تکست2 نپره یعنی با زدن دکمه پایین کیبورد فوکوس از خط1 به خط2 تکست1 برود بعد اگر خطی دیگر زیرش نبود با زدن دکمه پائین به تکست2 بپرد اما این کد فقط برای یکبار عمل میکند و در بار دوم عمل نمیکند
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 Text2.SetFocus: KeyCode = 0
End Sub