منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم.

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

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

هو عند تحديد خيار التكست بوكس 
كود :
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 "في رعاية الله"
السلام عليكم ورحمة الله وبركاته
اخ/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 بس ما راح الصوت
السلام عليكم اخي الكريم
تفضل الكود وهومجرب وقارن مالذي نسيت كتابته
كود :
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
(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