14-09-21, 11:43 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
فضلاً اريد كود فيجوال بيسك دوت نت لانتقال الماوس من تيكست بوكس تم وضع ارقام فيه الى التيكست بوكس الذي يليه تلقائياً
تحياتي للجميع وبارك الله بالجميع ربي يحفظكم
14-09-21, 11:43 PM
15-09-21, 02:59 AM
اعتقد لا داعي لتحريك الماوس من تيكست بوكس لاخر ممكن تكتفي بالخاصية focus كمثال للانتقال الى textbox 2 من textbox1 عند الضغط على enter
تستعمل الكود في حدث ال keypress
كود :
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
end if15-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 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع
'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 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع
15-09-21, 04:29 PM
(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
15-09-21, 05:44 PM
اخي الفاضل ابو انس
استاذي الغالي تم اسخدام الحدث KeyDown ولكن عند الضغط على انتر ينتقل الماوس الى التكست بوكس الثاني ولكنه يمسح الارقام الموضوعه بالتيكست بوكس الاول وهكذا عند الانتقال الى التكست بوكس الذي يليه يمسح كل ماقبله
اثقلت عليكم اعذروني اني مبتديء واحد تلامذة هذا المنتدى
استاذي الغالي تم اسخدام الحدث KeyDown ولكن عند الضغط على انتر ينتقل الماوس الى التكست بوكس الثاني ولكنه يمسح الارقام الموضوعه بالتيكست بوكس الاول وهكذا عند الانتقال الى التكست بوكس الذي يليه يمسح كل ماقبله
اثقلت عليكم اعذروني اني مبتديء واحد تلامذة هذا المنتدى
15-09-21, 08:30 PM
الكود الذي تفضل به زميلنا يعمل 100/100 وبدون المشكلة التي ذكرت
على كل حال تفضل هذه الطريقة
على كل حال تفضل هذه الطريقة
كود :
If e.KeyCode = Keys.Enter Then
Dim aa As String = TextBox1.Text
TextBox2.Focus()
TextBox1.Text = aa
End If16-09-21, 12:00 AM
الف شكر اخي الغالي تمت وبنجاح والحمد لله