تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ الأمر عند الضغط على إنتر
#1
الكود التالي يقوم بنقل المؤشر عند الضغط على إنتر من 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
الرد }}
تم الشكر بواسطة:
#2
أستخدم هذا الكود وكل عام وانت بألف خير

كود :
   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
الرد }}
تم الشكر بواسطة: elgokr , ZaerAllail
#3
تفضل اخي
كود :
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 , ZaerAllail , ZaerAllail
#4
فقط استخدم هذا الشرط
بدلاً من الشرط الذى تستخدمه لديك

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: sendbad100 , ZaerAllail
#5
(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
الرد }}
تم الشكر بواسطة:
#6
(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
#7
(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

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

شكرا لك عزيزي
الرد }}
تم الشكر بواسطة:
#8
العفو بالتوفيق
الرد }}
تم الشكر بواسطة: ZaerAllail , ZaerAllail , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حساب زمن تنفيذ برنامج thalji1969 1 238 02-06-22, 01:57 PM
آخر رد: معاند الحظ
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,059 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 363 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
  كيف يتم تنفيذ امر علي مجموعة عناصر مرة واحدة Han2022 5 691 11-02-22, 01:54 PM
آخر رد: Miloud
  اريد اتعلم كيفية تنفيذ أمر لمجموعة عناصر دفعة واحدة Han2022 1 528 09-02-22, 10:04 PM
آخر رد: beso00
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 3,496 29-12-21, 10:56 AM
آخر رد: سعود
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 464 29-11-21, 06:53 PM
آخر رد: جيولوجي مبتدئ
  تنفيذ امر موجود في فورم اخر atefkhalf2004 10 6,869 19-10-21, 03:28 AM
آخر رد: محمود صالح
  [سؤال] ما هو الخطأ في عدم تنفيذ هذه الكود محمد الصدفاوي 6 1,105 09-10-21, 10:05 PM
آخر رد: محمد الصدفاوي
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 863 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم