+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39517)
كود انتقال الماوس تلقائيا من التيكست بوكس - ابو نور الهدى - 14-09-21
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
فضلاً اريد كود فيجوال بيسك دوت نت لانتقال الماوس من تيكست بوكس تم وضع ارقام فيه الى التيكست بوكس الذي يليه تلقائياً
تحياتي للجميع وبارك الله بالجميع ربي يحفظكم
RE: كود انتقال الماوس تلقائيا من التيكست بوكس - love_hell - 15-09-21
اعتقد لا داعي لتحريك الماوس من تيكست بوكس لاخر ممكن تكتفي بالخاصية focus كمثال للانتقال الى textbox 2 من textbox1 عند الضغط على enter
كود :
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
end ifRE: كود انتقال الماوس تلقائيا من التيكست بوكس - ابو نور الهدى - 15-09-21
اخي العزيز ممنون منك لسرعة الرد ولكن العملية لم تفلح معي يظهر خطأ في If e.KeyCode
'Keycode' is not Member of 'system Windows.Forms.Keypress EventArgs '
'Private Sub txt9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt9.KeyPress
If e.KeyCode = Keys.Enter Then
() txt16.Focus
End If
حيث ان txt9 هو التيكست بوكس الاول وtxt16 هو التيكست بوكس الذي يليه
ملاحظة ان tex9 هو اسم textBox9 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع
RE: كود انتقال الماوس تلقائيا من التيكست بوكس - ابو انس - 15-09-21
(15-09-21, 01:11 PM)ابو نور الهدى كتب : اخي العزيز ممنون منك لسرعة الرد ولكن العملية لم تفلح معي يظهر خطأ في If e.KeyCode
'Keycode' is not Member of 'system Windows.Forms.Keypress EventArgs '
'Private Sub txt9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txt9.KeyPress
If e.KeyCode = Keys.Enter Then
() txt16.Focus
End If
حيث ان txt9 هو التيكست بوكس الاول وtxt16 هو التيكست بوكس الذي يليه
ملاحظة ان tex9 هو اسم textBox9 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع
استخدم الحدث KeyDown
RE: كود انتقال الماوس تلقائيا من التيكست بوكس - ابو نور الهدى - 15-09-21
اخي الفاضل ابو انس
استاذي الغالي تم اسخدام الحدث KeyDown ولكن عند الضغط على انتر ينتقل الماوس الى التكست بوكس الثاني ولكنه يمسح الارقام الموضوعه بالتيكست بوكس الاول وهكذا عند الانتقال الى التكست بوكس الذي يليه يمسح كل ماقبله
اثقلت عليكم اعذروني اني مبتديء واحد تلامذة هذا المنتدى
RE: كود انتقال الماوس تلقائيا من التيكست بوكس - ابو انس - 15-09-21
الكود الذي تفضل به زميلنا يعمل 100/100 وبدون المشكلة التي ذكرت
على كل حال تفضل هذه الطريقة
كود :
If e.KeyCode = Keys.Enter Then
Dim aa As String = TextBox1.Text
TextBox2.Focus()
TextBox1.Text = aa
End IfRE: كود انتقال الماوس تلقائيا من التيكست بوكس - ابو نور الهدى - 16-09-21
الف شكر اخي الغالي تمت وبنجاح والحمد لله