+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : انتقال إلى سطر جديد بواسطة ضغط الزر انتر (/showthread.php?tid=37588)
الصفحات:
1
2
RE: انتقال إلى سطر جديد بواسطة ضغط الزر انتر - Alhootti1 - 03-02-21
اريد ان ارفق الملف لكن الملف حجمه كبير 20 ميغابايت
كيف نعطل عمل TAB لأني اضغط على انتر المؤشر ينتقل الى مكان آخر بالرغم من استخدام الكود اللي كان مطروح هنا
Private Sub makemeastab(ByRef c As Control, e As KeyEventArgs)
If TypeOf c Is TextBox Then
If CType(c, TextBox).Multiline = False Then
If e.KeyData = Keys.Enter Then
SendKeys.Send("{Tab}")
End If
ElseIf CType(c, TextBox).Multiline = True And CType(c, TextBox).Text.EndsWith(".") Then
If e.KeyData = Keys.Enter Then
SendKeys.Send("{Tab}")
End If
End If
End If
End Sub
Private Sub Med_His_KeyDown(sender As Object, e As KeyEventArgs) Handles Med_His.KeyDown
makemeastab(sender, e)
End Sub