05-08-18, 01:22 PM
السلام عليكم كيف حال الاخوة
عند كود في الفجوال بيسيك 6 كنت استعمله سابقا للتنقل بين التكست بوكس
كيف يمكنني ان اترجم هذا الكود في الدوت نت ؟
عند كود في الفجوال بيسيك 6 كنت استعمله سابقا للتنقل بين التكست بوكس
كود :
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
C = Me.Text1.UBound
If Index <> C And KeyAscii = 13 Then Me.Text1(Index + 1).SetFocus
If Index = C And KeyAscii = 13 Then Me.Text1(0).SetFocus
End Sub