تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس
#1
Lightbulb 
السلام عليكم.

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

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

هو عند تحديد خيار التكست بوكس 
كود :
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 "في رعاية الله"
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد
#2
السلام عليكم ورحمة الله وبركاته
اخ/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 بس ما راح الصوت
الرد
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#3
السلام عليكم اخي الكريم
تفضل الكود وهومجرب وقارن مالذي نسيت كتابته
كود :
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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#4
(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
Dim x As Integer
        For x = 1 To 100         
   ("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
   Next x
الرد
تم الشكر بواسطة: حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران محمد ايمن 3 557 19-04-20, 03:07 PM
آخر رد: asemshahen5
  [كود] تحريك الكلام من عنوان الفورم و المربع+تحريك الكلمات في العنون و التكست محمد ايمن 2 453 04-03-20, 04:38 AM
آخر رد: محمد ايمن
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 17 6,555 25-05-19, 04:12 PM
آخر رد: bakhcha
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 4 4,800 03-02-19, 11:07 AM
آخر رد: alshandodi
  كود للانتقال الى التكست بوكس التالي عند الضغط على زر انتر ahmadpal 4 2,069 08-12-18, 02:38 PM
آخر رد: قناص المدينة
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 11 4,388 11-11-18, 01:27 AM
آخر رد: عماد السيد
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 5 3,372 11-11-18, 01:24 AM
آخر رد: عماد السيد
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 3 2,831 08-08-18, 03:55 PM
آخر رد: alsouf
  السلام عليكم اريد كود لما تكون موجوده التكست بوكس ندير فوقها بطم وفي التنفيذ تطلعلي nosa 0 876 11-05-18, 09:36 PM
آخر رد: nosa
  [VB.NET] مطلوب كودات تصدير البيانات الناتجه من تكس بوكس الى الاكسل abdulla omran 0 1,029 18-11-17, 10:26 PM
آخر رد: abdulla omran

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


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