منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس (/showthread.php?tid=29138)

ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس - EYADISMAIL - 25-03-19

السلام عليكم.

ازالة الصوت "المزعج" عند الضغظ على الانتر للانتقال بين التكست بوكس 

لمعرفة لماذا يصدر هذا الصوت؟ ...

هو عند تحديد خيار التكست بوكس 
كود :
MULTILINE = False

هذا الخيار لا يسمح بالتكست بوكس بكتابة سطر جديد اي تتكون من سطر واحد فقط فيصدر هذ الصوت "لا سطر جديد"
وعند تحديد 

كود :
MULTILINE = TRUE

يمكن اضافة سطر جديد فلا يصدر صوت عند الضغظ على الانتر.
لكن نحن نريد ضغظ الانتر وعدم كتابة سطر جديد والانتقال الي تكست بوكس جديد بدون اصدار صوت Big Grin
اولا كود الانتقال بين التكست بوكس  " يوضع في حدث التكست بوكس 1 مثلا "((KEYPRESS))

كود :
If e.KeyChar = Chr(13) Then
           TextBox2.Select()


13 هو رقم الانتر
الي هنا مازال الصوت موجود   Dodgy
ازالة الصوت مع البقاء على خصائص مفتاح الانتر  ضع هذا الكود اسفل السابق  Wink
كود :
e.Handled = True

اذا كنت تريد اعادة الصوت غير True الي False او قم بازالته


حلت المشكلة ..  Heart "في رعاية الله"

RE: ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس - Sadown - 10-07-19

السلام عليكم ورحمة الله وبركاته
اخ/EYADISMAIL
انا استخدم الاجراء التالي:
Public Sub PressEnter(sender As Object, e As KeyEventArgs)
       If e.KeyCode = Keys.Enter Then
           SendKeys.Send("{TAB}")
       End If
   End Sub
ثم استخدمه مع التكست بوكس في حدث keyDown
وحطت نفس الكود اللي كتبته e.Handled = True بس ما راح الصوت

RE: ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس - ابراهيم ايبو - 15-07-19

السلام عليكم اخي الكريم
تفضل الكود وهومجرب وقارن مالذي نسيت كتابته
كود :
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
       TextBox1.Multiline = True
       If e.KeyCode = Keys.Enter Then
           TextBox2.Select()
           e.Handled = True
       End If
   End Sub
واذا اردت ارجاع الصوت
كود :
TextBox1.Multiline = false


RE: ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس - EYADISMAIL - 29-07-19

(10-07-19, 10:00 AM)Sadown كتب : السلام عليكم ورحمة الله وبركاته
اخ/EYADISMAIL
انا استخدم الاجراء التالي:
Public Sub PressEnter(sender As Object, e As KeyEventArgs)
       If e.KeyCode = Keys.Enter Then
           SendKeys.Send("{TAB}")
       End If
   End Sub
ثم استخدمه مع التكست بوكس في حدث keyDown
وحطت نفس الكود اللي كتبته e.Handled = True بس ما راح الصوت

استخدم الكود في حدث KEYPRESS للتكست بوكس المتوقف عليها. وليس في حدث PressEnte