[ابو نور الهدى]

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته

فضلاً اريد كود فيجوال بيسك دوت نت لانتقال الماوس من تيكست بوكس تم وضع ارقام فيه الى التيكست بوكس الذي يليه تلقائياً

تحياتي للجميع وبارك الله بالجميع ربي يحفظكم

[love_hell]

اعتقد لا داعي لتحريك الماوس من تيكست بوكس لاخر ممكن تكتفي بالخاصية focus كمثال للانتقال الى textbox 2 من textbox1 عند الضغط على enter

كود :

If e.KeyCode = Keys.Enter Then
  TextBox2.Focus()
end if

تستعمل الكود في حدث ال keypress

[ابو نور الهدى]

اخي العزيز ممنون منك لسرعة الرد ولكن العملية لم تفلح معي يظهر خطأ في  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 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع

[ابو انس]

(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

[ابو نور الهدى]

اخي الفاضل ابو انس
استاذي الغالي تم اسخدام الحدث KeyDown ولكن عند الضغط على انتر ينتقل الماوس الى التكست بوكس الثاني ولكنه يمسح الارقام الموضوعه بالتيكست بوكس الاول وهكذا عند الانتقال الى التكست بوكس الذي يليه يمسح كل ماقبله
اثقلت عليكم اعذروني اني مبتديء واحد تلامذة هذا المنتدى

[ابو انس]

الكود الذي تفضل به زميلنا يعمل 100/100 وبدون المشكلة التي ذكرت
على كل حال تفضل هذه الطريقة

كود :

 If e.KeyCode = Keys.Enter Then
           Dim aa As String = TextBox1.Text
           TextBox2.Focus()
           TextBox1.Text = aa
       End If

[ابو نور الهدى]

الف شكر اخي الغالي تمت وبنجاح والحمد لله