السلام عليكم.
ازالة الصوت "المزعج" عند الضغظ على الانتر للانتقال بين التكست بوكس
لمعرفة لماذا يصدر هذا الصوت؟ ...
هو عند تحديد خيار التكست بوكس
هذا الخيار لا يسمح بالتكست بوكس بكتابة سطر جديد اي تتكون من سطر واحد فقط فيصدر هذ الصوت "لا سطر جديد"
وعند تحديد
يمكن اضافة سطر جديد فلا يصدر صوت عند الضغظ على الانتر.
لكن نحن نريد ضغظ الانتر وعدم كتابة سطر جديد والانتقال الي تكست بوكس جديد بدون اصدار صوت
اولا كود الانتقال بين التكست بوكس " يوضع في حدث التكست بوكس 1 مثلا "((KEYPRESS))
13 هو رقم الانتر
الي هنا مازال الصوت موجود
ازالة الصوت مع البقاء على خصائص مفتاح الانتر ضع هذا الكود اسفل السابق
اذا كنت تريد اعادة الصوت غير True الي False او قم بازالته
حلت المشكلة ..
"في رعاية الله"
ازالة الصوت "المزعج" عند الضغظ على الانتر للانتقال بين التكست بوكس
لمعرفة لماذا يصدر هذا الصوت؟ ...
هو عند تحديد خيار التكست بوكس
كود :
MULTILINE = Falseهذا الخيار لا يسمح بالتكست بوكس بكتابة سطر جديد اي تتكون من سطر واحد فقط فيصدر هذ الصوت "لا سطر جديد"
وعند تحديد
كود :
MULTILINE = TRUEيمكن اضافة سطر جديد فلا يصدر صوت عند الضغظ على الانتر.
لكن نحن نريد ضغظ الانتر وعدم كتابة سطر جديد والانتقال الي تكست بوكس جديد بدون اصدار صوت
اولا كود الانتقال بين التكست بوكس " يوضع في حدث التكست بوكس 1 مثلا "((KEYPRESS))
كود :
If e.KeyChar = Chr(13) Then
TextBox2.Select()13 هو رقم الانتر
الي هنا مازال الصوت موجود
ازالة الصوت مع البقاء على خصائص مفتاح الانتر ضع هذا الكود اسفل السابق
كود :
e.Handled = Trueاذا كنت تريد اعادة الصوت غير True الي False او قم بازالته
حلت المشكلة ..
"في رعاية الله"
Dim x As Integer
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x
