منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : انتقال إلى سطر جديد بواسطة ضغط الزر انتر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
اريد ان ارفق الملف لكن الملف حجمه كبير 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
الصفحات : 1 2