تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود انتقال الماوس تلقائيا من التيكست بوكس
#1
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركاته
فضلاً اريد كود فيجوال بيسك دوت نت لانتقال الماوس من تيكست بوكس تم وضع ارقام فيه الى التيكست بوكس الذي يليه تلقائياً
تحياتي للجميع وبارك الله بالجميع ربي يحفظكم
الرد }}}
تم الشكر بواسطة:
#2
اعتقد لا داعي لتحريك الماوس من تيكست بوكس لاخر ممكن تكتفي بالخاصية focus كمثال للانتقال الى textbox 2 من textbox1 عند الضغط على enter


كود :
If e.KeyCode = Keys.Enter Then
  TextBox2.Focus()
end if
تستعمل الكود في حدث ال keypress
الرد }}}
تم الشكر بواسطة:
#3
اخي العزيز ممنون منك لسرعة الرد ولكن العملية لم تفلح معي يظهر خطأ في  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 في الخصائص
تحياتي لك ولجميع اعضاء ومسؤولي المنتدى الرائع
الرد }}}
تم الشكر بواسطة:
#4
(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
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة:
#5
اخي الفاضل ابو انس
استاذي الغالي تم اسخدام الحدث KeyDown ولكن عند الضغط على انتر ينتقل الماوس الى التكست بوكس الثاني ولكنه يمسح الارقام الموضوعه بالتيكست بوكس الاول وهكذا عند الانتقال الى التكست بوكس الذي يليه يمسح كل ماقبله
اثقلت عليكم اعذروني اني مبتديء واحد تلامذة هذا المنتدى
الرد }}}
تم الشكر بواسطة: ابو انس
#6
الكود الذي تفضل به زميلنا يعمل 100/100 وبدون المشكلة التي ذكرت
على كل حال تفضل هذه الطريقة
كود :
 If e.KeyCode = Keys.Enter Then
           Dim aa As String = TextBox1.Text
           TextBox2.Focus()
           TextBox1.Text = aa
       End If
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: love_hell
#7
الف شكر اخي الغالي تمت وبنجاح والحمد لله
الرد }}}
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 145 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 464 03-11-23, 09:57 PM
آخر رد: fares_mohammed
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد

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


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