منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تنفيذ الأمر عند الضغط على إنتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25406)



تنفيذ الأمر عند الضغط على إنتر - ZaerAllail - 16-06-18

الكود التالي يقوم بنقل المؤشر عند الضغط على إنتر من 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



RE: تنفيذ الأمر عند الضغط على إنتر - بيسك لكل العرب - 16-06-18

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

كود :
   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



RE: تنفيذ الأمر عند الضغط على إنتر - dametucorazon - 16-06-18

تفضل اخي
كود :
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 هو رقم زر انتر 
بالتوفيق


RE: تنفيذ الأمر عند الضغط على إنتر - elgokr - 16-06-18

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

كود :
           If Asc(e.KeyChar) = Keys.Enter Then
               TextBox2.Focus()
           End If

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



RE: تنفيذ الأمر عند الضغط على إنتر - ZaerAllail - 16-06-18

(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



RE: تنفيذ الأمر عند الضغط على إنتر - dametucorazon - 16-06-18

(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



RE: تنفيذ الأمر عند الضغط على إنتر - ZaerAllail - 16-06-18

(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

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

شكرا لك عزيزي


RE: تنفيذ الأمر عند الضغط على إنتر - dametucorazon - 16-06-18

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