+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] التنقل بواسطة زر الادخال Enter تم تحديث الموضوع واضافة مثال (/showthread.php?tid=37686)
التنقل بواسطة زر الادخال Enter تم تحديث الموضوع واضافة مثال - سعود - 01-02-21
PHP كود :
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
ضمن حدث KeyDown لاي مربع نص اكتب
PHP كود :
makemeastab(sender, e)
معذرة لجميع الاخوة فيه جزئية لم اوضحها وهو في مربع النص اللذي معمول له MultiLine ضع نقطة عند نهاية الكتابة لكي يتم الانتقال بالنقر على زر الادخال Enter
كما تشاهدون بالصورة لا ينتقل من مربع النص قبل الاخير الا بعد كتابة نقطة (.) في آخر مربع النص.