الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية منع الويندوز من اصدار Beeb

مغلق
بدأه kindmand_nb في 5 أغسطس 2007 · 3 رد · 864 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني الاحباب ..

وجزاكم الله خير .. كم اتمنى ان اشارك بموضوع ما ولكني اجد ان كل ما يدور في بالي قام به اخوان اخرون ما شاء الله به ..

دي ملحوظه بسيطه .. لكنها تغضبني بعض الشيء ..

اطبق خاصية الكي دون انه عندما يضغط المستخدم على زر enter يقوم بالانتقال الى الحقل التالي .. واجهتني ملوظه انه في حالة TextBox فقط وليس ComboBox يصدر الويندوز Beeb عند الضغط على enter ..

اود ان اجد حل ان كان هناك حل لها .. وجزاكم الله خيرا

تم تعديل هذه المشاركة بواسطة kindmand_nb في 5 أغسطس 2007 في 05:42

قال رسول الله صلى الله عليه وعلى آله وسلم :

لقيت إبراهيم ليلة أسري بي ، فقال : يا محمد أقرئ أمتك مني السلام ، وأخبرهم أن الجنة طيبة التربة ، عذبة الماء ، وأنها قيعان ، وأن غراسها :

سبحان الله ، والحمد لله ، ولا إله إلا الله ، والله أكبر .

رواه الترمذي .

#3

بسم الله الرحمن الرحيم

السبب فى صوت (Beep) عند الضغط على الزر (Enter) هو عدم تقبل الاداة (TextBox) للإجراء الناتج عن حدث الضغط على مفتاح (Enter) والذى يضيف فقرة جديدة للأداة أو يقوم بالانتقال لسطر جديد لذا عند الرغبة فى منع ذلك يجب ان نجعل الاداة تتقبل حدث الضغط على المفتاح (Enter) دون ان يتسبب ذلك فى اضافة سطر جديد لذا قم بتجربة الكود التالى :

		If e.KeyChar = Chr(13) Then
			TextBox1.Multiline = True  'السماح للتكست بوكس بتقبل اكثر من سطر
			TextBox1.AcceptsReturn = True  ' السماح للتكست بوكس بتقبل زر الادخال
			e.KeyChar = Nothing ' ايقاف جميع المؤثرات الناتجة لحدث الضغط على زر الادخال
			TextBox2.Focus() ' نقل التأثير للاحداث للتكست بوكس الثانية
			TextBox1.Multiline = False ' اغلاق خاصية تعدد الاسطر التابعة للتكست بوكس
			TextBox1.AcceptsReturn = False ' اغلاق خاصية السماح لزر الادخال
		End If

سبحانك اللهم لا علم لنا إلا ما علمتنا

#4

جزاكم الله خيرا .. وكل رودودكم صحيحة ....

واضافة اخرى قمت بكاتبة هذا الكود في الحدث كي بريس وقام بنفس النتيجة ..

 If e.KeyChar = CChar(ChrW(13)) Then
			e.Handled = True
		Else
			MyBase.OnKeyPress(e)
		End If

=======

قال رسول الله صلى الله عليه وعلى آله وسلم :

لقيت إبراهيم ليلة أسري بي ، فقال : يا محمد أقرئ أمتك مني السلام ، وأخبرهم أن الجنة طيبة التربة ، عذبة الماء ، وأنها قيعان ، وأن غراسها :

سبحان الله ، والحمد لله ، ولا إله إلا الله ، والله أكبر .

رواه الترمذي .

هذا الموضوع مغلق.

مواضيع مشابهة