الكود التالي يقوم بنقل المؤشر عند الضغط على إنتر من 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
تفضل اخي
كود :
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 هو رقم زر انتر
بالتوفيق
فقط استخدم هذا الشرط
بدلاً من الشرط الذى تستخدمه لديك
كود :
If Asc(e.KeyChar) = Keys.Enter Then
TextBox2.Focus()
End If
تحياتى لك
وتمنياتى لك التوفيق
(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
(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
(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
وضعته يا عزيزي وبنفس الطريقة وما نفع
وعموما تم تصحيح الخطأ بالكود الأخير إلي وضعته في الرد السابق !
شكرا لك عزيزي