[ZaerAllail]

الكود التالي يقوم بنقل المؤشر عند الضغط على إنتر من TextBox1  إلى  TextBox2 ولكنه قبل الإنتقال يقوم بمسح ما تم كتابته في TextBox1 !

كيف يمكن إصلاحه لتفادي هذا الخطأ ؟

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

      If e.KeyChar = ChrW(Keys.Enter) Then
          TextBox2.Focus()

      End If
  End Sub

[بيسك لكل العرب]

أستخدم هذا الكود وكل عام وانت بألف خير

كود :

   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
                      TextBox2.Focus()
       End If
   End Sub

[dametucorazon]

تفضل اخي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            
If e.KeyChar = Convert.ToChar(13) Then
TextBox1.Text=""         
  TextBox2.Select()

        End If
    End Sub

حيث ان رقم 13 هو رقم زر انتر 
بالتوفيق

[elgokr]

فقط استخدم هذا الشرط

بدلاً من الشرط الذى تستخدمه لديك

كود :

           If Asc(e.KeyChar) = Keys.Enter Then
               TextBox2.Focus()
           End If

تحياتى لك

وتمنياتى لك التوفيق

[ZaerAllail]

(16-06-18, 09:47 PM)dametucorazon كتب : تفضل اخي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            
If e.KeyChar = Convert.ToChar(13) Then
TextBox1.Text=""         
  TextBox2.Select()

        End If
    End Sub

حيث ان رقم 13 هو رقم زر انتر 
بالتوفيق

المطلوب هو عدم مسح ما تم كتابته في التكست واحد وأنت وضعت أمر مسح لما تم كتابته !
وعموما بدون أمر المسح يتم مسح TextBox1 بمجرد الالإنتقال !

---

شكرا للجميع ولكن للأسف الشديد ولا كود منها حل المشكله !

بمجرد الضغط على إنتر ينتقل المؤشر للتكست الثاني ولكنه يمسح ما تم كتابته في التكست السابق 


 وكل عام وأنتم بخير !

---

تم تصحيح الخطأ 
وللفائدة هذا هو الكود الصحيح  وشكرا للجميع بارك الله فيكم

كود :

       If Asc(e.KeyChar) = Keys.Enter Then
           e.Handled = True
           TextBox2.Focus()
       End If

[dametucorazon]

(16-06-18, 11:00 PM)ZaerAllail كتب :

(16-06-18, 09:47 PM)dametucorazon كتب : تفضل اخي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            
If e.KeyChar = Convert.ToChar(13) Then
TextBox1.Text=""         
  TextBox2.Select()

        End If
    End Sub

حيث ان رقم 13 هو رقم زر انتر 
بالتوفيق

المطلوب هو عدم مسح ما تم كتابته في التكست واحد وأنت وضعت أمر مسح لما تم كتابته !
وعموما بدون أمر المسح يتم مسح TextBox1 بمجرد الالإنتقال !

---

شكرا للجميع ولكن للأسف الشديد ولا كود منها حل المشكله !

بمجرد الضغط على إنتر ينتقل المؤشر للتكست الثاني ولكنه يمسح ما تم كتابته في التكست السابق 


 وكل عام وأنتم بخير !

اخي الفاضل الكود الذي وضعته لك ضعه في حدث TextBox1.KeyPress
ولن يتم مسح شي من التيكست بوكس الذي كتبت فيه فقط سينتقل لا تضع كود الحذف الذي كتيته لك فقط سيصبح الكود هكذا

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
           
If e.KeyChar = Convert.ToChar(13) Then
  TextBox2.Select()

       End If

[ZaerAllail]

(16-06-18, 11:24 PM)dametucorazon كتب :

(16-06-18, 11:00 PM)ZaerAllail كتب :

(16-06-18, 09:47 PM)dametucorazon كتب : تفضل اخي

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            
If e.KeyChar = Convert.ToChar(13) Then
TextBox1.Text=""         
  TextBox2.Select()

        End If
    End Sub

حيث ان رقم 13 هو رقم زر انتر 
بالتوفيق

المطلوب هو عدم مسح ما تم كتابته في التكست واحد وأنت وضعت أمر مسح لما تم كتابته !
وعموما بدون أمر المسح يتم مسح TextBox1 بمجرد الالإنتقال !

---

شكرا للجميع ولكن للأسف الشديد ولا كود منها حل المشكله !

بمجرد الضغط على إنتر ينتقل المؤشر للتكست الثاني ولكنه يمسح ما تم كتابته في التكست السابق 


 وكل عام وأنتم بخير !

اخي الفاضل الكود الذي وضعته لك ضعه في حدث TextBox1.KeyPress
ولن يتم مسح شي من التيكست بوكس الذي كتبت فيه فقط سينتقل لا تضع كود الحذف الذي كتيته لك فقط سيصبح الكود هكذا

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
           
If e.KeyChar = Convert.ToChar(13) Then
  TextBox2.Select()

       End If

وضعته يا عزيزي وبنفس الطريقة وما نفع 
وعموما تم تصحيح الخطأ بالكود الأخير إلي وضعته في الرد السابق !

شكرا لك عزيزي

[dametucorazon]

العفو بالتوفيق