صوت مزعج عند الضغط على زر Enter في مربع ال TextBox!

هذا طبيعى وموجود فى الاداه ولكن يوجد كود لايقافها ان شاء الله سارفقه لك

الأخ الفاضل ...

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then KeyAscii = 0
End Sub

شكراً

ألف ألف شكر...

بجرب البرنامج قريب وان شاء الله يقوم بالمهمة

أخوكم طالب الخبرة

بارك الله فيكم يا شباب

الظاهر الأخ القدير Eng. Usama El-Mokadem لغى لك الإنتر بالكامل

الأخ عبد العزيز اليوسفي

هناك نوعان من الـ (TextBox) أحدهم سطرى وفية خاصية (MultiLine=FALSE) وهو لا يسمح الا بكتابة سطر واحد، ولا يتعامل مع مفتاح (Enter) لانه لا يسمح بالانتقال الى سطر جديد، وبالتالى عند الضغط على Enter يعطى هذا الصوت الخطاً، إى أنه لا يتعامل مع Enter أساساً ويعترض على التعامل معها، وبالتالى إلغاءها لا يؤثر فى أداء البرنامج أساسا، اما الطور الثانى فهو متعدد الأسطر وفيه خاصية (MultiLine=TRUE) وهو يسمح بكتابة عدة أسطر بعكس الاول الذى يسمح بسطر واحد، وبالتالى عند الضغط على Enter ينتقل لسطر جديد، دون صدور أى أصوات، وبالطبع هذا ليس النوع (MultiLine) ليس المصود فى المشاركة.

وبوجة عام يمكنك وضع هذا الكود على حدث الـ(TextBox) الذى تريد فيه منع الصوت فقط، فهو يلغى Enter منه فقط ولا يلغيها بوجة عام،

أما ذا اردن إلغائها بوجه عام فعليك أن تغير خاصية (KeyPreview=TRUE) إلى TRUE فى الفورم ثم تطبيق هذا الكود على الفورم وليس على أداة معينة،

مثال لإلغائ Enter تماماً (بالطبع يمكنك تغير كود Enter=13 إلى أى مفتاح تريد إلغاءه)

Private Sub Form_Load()
	Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then KeyAscii = 0
End Sub

شكراً

اقتباس

الظاهر الأخ القدير Eng. Usama El-Mokadem لغى لك الإنتر بالكامل

الأخ طالب الخبرة من كلامه يقصد إلغاء الصوت عند ضغط إنتر في التكست بوكس فقط

أي يريد إستعمال الإنتر أيضاً في نفس التكست بوكس ولكن بدون صوت

مشكور يا برنس بس انت كدة لغيتها خالص اما لو مش عاوز تلغيها خالص متحطش الكود اللي في حدث الفورم لود

الأخ الفاضل ...

Eng. Usama El-Mokadem كتب:

هناك نوعان من الـ (TextBox) أحدهم سطرى وفية خاصية (MultiLine=FALSE) وهو لا يسمح الا بكتابة سطر واحد، ولا يتعامل مع مفتاح (Enter) لانه لا يسمح بالانتقال الى سطر جديد، وبالتالى عند الضغط على Enter يعطى هذا الصوت الخطاً، إى أنه لا يتعامل مع Enter أساساً ويعترض على التعامل معها، وبالتالى إلغاءها لا يؤثر فى أداء البرنامج أساسا، اما الطور الثانى فهو متعدد الأسطر وفيه خاصية (MultiLine=TRUE) وهو يسمح بكتابة عدة أسطر بعكس الاول الذى يسمح بسطر واحد، وبالتالى عند الضغط على Enter ينتقل لسطر جديد، دون صدور أى أصوات، وبالطبع هذا ليس النوع (MultiLine) ليس المصود فى المشاركة.

عبد العزيز اليوسفي كتب:

أي يريد إستعمال الإنتر أيضاً في نفس التكست بوكس ولكن بدون صوت

أرجوا توضيح ما هو استعمال الانتر فى التكست بوكس فى هذه الحالة؟؟؟ بالبلدى أيه الحاجه الى بيعملها مفتاح انتر والكود وقفها

Eng. Usama El-Mokadem كتب:

وبوجة عام يمكنك وضع هذا الكود على حدث الـ(TextBox) الذى تريد فيه منع الصوت فقط، فهو يلغى Enter منه فقط ولا يلغيها بوجة عام، أما ذا اردن إلغائها بوجه عام فعليك أن تغير خاصية (KeyPreview=TRUE) إلى TRUE فى الفورم ثم تطبيق هذا الكود على الفورم وليس على أداة معينة،

sameh_ibm كتب:

انت كدة لغيتها خالص

Eng. Usama El-Mokadem كتب:

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then KeyAscii = 0
End Sub

أرجوا توضيح ما الذى ألغيتة فى هذه الحالة؟؟؟ بالبلدى أيه الحاجه الى بيعملها مفتاح انتر والكود وقفها

ممكن حد يفهمنى هو مفتاح Enter الى بيعمل صوت، ايه وظيفتة بالظبط فى الحاله دى؟ الوظيفة (الفايدة) الى الكود وقفها ؟؟؟؟؟

شكراً

اللى أنا فاهمه أن الصوت ده تنبيه لأن الضغط على Enter لا يقوم بشئ و بالتالى الكود السابق لا يلغى شئ !

اقتباس

أرجوا توضيح ما هو استعمال الانتر فى التكست بوكس فى هذه الحالة؟؟؟ بالبلدى أيه الحاجه الى بيعملها مفتاح انتر والكود وقفها

هو كان الأخ طالب الخبرة حسب ما فهمت من كلامه يقصد (والله أعلم) أنه ينفذ كود عند ضغط الإنتر كإنتقال المشيرة لصندوق آخر أو تفعيل كود ....

فلازم كان نشرح له الطريقة كما يلي :

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then Text2.SetFocus: KeyAscii = 0
End Sub

لأن إجابتي جاءت بعد إجابته ولم يعد يدخل للموضوع:

اقتباس

بجرب البرنامج قريب وان شاء الله يقوم بالمهمة

فالمعذرة منك أخ أسامة إذا صار بالموضوع شيىء غلط.