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

اريد كود يعتبر القيمة "" في التكست بوكس قيمة فارغة

بدأه s programmer في 7 يونيو 2011 · 14 رد · 1,404 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله والحمد لله

السلام عليكم ورحمة الله

لدي استفسار بسيط اخواني الاعزاء

بالمثال سيتضح المقال

لو فرضنا ان لدين TextBox1 واريد أن أدخل على سبيل المثل لا الحصر الاسم

ولكن شرطت مسبقاً على هذا الـ TextBox1 بأن لا يقبل قيمة فارغة على اعتبار ان الشرط يكون كالتالي :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("البيانات اللازمة لم تقيد")
        End If
    End Su

الى هنا الكلام جميل

طيب لو ضغطت داخل الـ TextBox1 على زر المسافة من الكيبورد مرة او مرتين او ... الخ مباشرةً سيتم الحفظ لان زر المسافة قيمة حقيقية مثلها مثل اي حرف في الكيبورد

سيظهر من ذلك عند عرض البيانات ان الاسم سيكون فارغا

انا لا اريد ان يقبل الكود المسافة

ماهي طريقة عمل ذلك ؟

وشكر الله مسعاكم ؛؛؛؛

#2

عدل الشرط

If TextBox1.Text = "" Then

إلى

If TextBox1.Text.Trim = "" Then

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

أخي اذا بغيت تمنع المسافات في التكست فأتمنى المثال المرفق يساعدك

no_space.rar

تم تعديل هذه المشاركة بواسطة muhedeen في 8 يونيو 2011 في 17:01

عن عبد الله بن مسعود رضي الله عنه قال: سألت النبي صلى الله عليه وسلم أي العمل أحب إلى الله عز وجل؟ قال: ( الصلاة على وقتها) قال: ثم أي؟ قال: ( بر الوالدين ) قال ثم أي؟ قال: ( الجهاد في سبيل الله )

302889519.gif

رابط المصحف الرقمي الفلاشي بأكثر من روايات - القرآن الكريم

#4
اقتباس
أخي حتى تتجنب حفظ المسافات الفارغة بامكانك منع المستخدم من ادخال المسافةعلى text كما في المثال المرفق

الأخ السائل ذكر فى مثاله أن مربع النص سيتم إدخال الإسم فيه فكيف يتم إدخال إسم بدون مسافات؟؟

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

السلام عليكم

جرب الكود التالي

مع أني أنصح بحل الأخ GHOST2010

dim b as string

for i=0 to textbox1.text.length-1

b=b& " "

next

if textbox1.text=b then

msgbox ("error")

exit sub

end if

تم تعديل هذه المشاركة بواسطة DOWNLOADER في 7 يونيو 2011 في 21:30

#6

الله يجزاكم خير اخواني الاعزاء

ولكن المسأله لم تحل رغم تجربة الكود !

بانتظار محاولات جديدة

#7

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي الذي سيمنع زر المسافه


If e.KeyCode = Keys.Space Then e.SuppressKeyPress = True
End Sub
 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

.:: Wish to become better and better ::.

#8

أخى الكريم حدد مطلبك بالتحديد

هل تريد مربع النص ألا يقبل المسافات أم تريد تجاهل المسافات عند التحقق من القيمة المدخلة؟

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#9

الاخ الكريم vb helprt

الكود صحيح من ناحية وخطأ من ناحية أخرى لو اردت كتابة اسم رباعي مثلا

النتيجة ان الاسم سيكون ملاصق لجميع الأحرف !

مثلا عبداللهسعيدصالحمحمد

اعتقد ان ذلك ليس مناسب منطقياً

سؤالي بتوضيح اكثر .. انه عند الضغط على زر مسافة من الكيبورد داخل التكست لمرة او مرات نود من الكود عدم قبول ذلك

بينما انت أقفلت الزر نهائياً !

الاخ الكريم GHOST2010

الله ينور عليك

اريد تجاهل المسافات الفارغة داخل التسكت فقط .. ما الحل ؟

شاكر فضلكم جميعاً )

تم تعديل هذه المشاركة بواسطة s programmer في 8 يونيو 2011 في 13:42

#10

إذاً سأعود لنفس الإجابة التى وضعتها سابقا

/index.php?showtopic=243281&view=findpost&p=1204064

أو يمكنك كتابة هذا السطر فى حدث Leave الخاص بمربع النص

TextBox1.Text = TextBox1.Text.Trim

تم تعديل هذه المشاركة بواسطة GHOST2010 في 8 يونيو 2011 في 14:02

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#11

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي والذي يمنع زر المسافه لمرتين متتاليتين


If e.KeyCode = Keys.Space AndAlso TextBox1.Text.Substring(TextBox1.Text.Length - 1, 1) = " " Then e.SuppressKeyPress = True
End Sub
 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

.:: Wish to become better and better ::.

#12

بسم الله

السلام عليكم

تم حل المشكلة ولله الحمد

حل الاخ الكريم GHOST2010 هو الحل المنطقي والكامل والكمال لله سبحانه

الاخ GHOST2010

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

الاخ الكريم VB HELPER تم تجربة الكود ولم ينجح

اكرر شكري وتقديري لك على وقوفك ومساعدتك واسأل الله لك التوفيق والنجاح

#13

السلام عليكم ورحمه الله وبركاته

اخي كود الاخ Ghost2010 سيلغى الفراغات من اول واخر الكلمه فقط!! لكن كودي السابق سليم يمكن الخطأ الي طلع معك انك اضفت فراغ في البدايه, لذا جرب الكود بعد التعديل ليمنع الفراغات من التكرار اثناء الكتابه


Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Space Then
If TextBox1.Text.Length = 0 Then
e.SuppressKeyPress = True
Exit Sub
Else
If TextBox1.Text.Substring(TextBox1.Text.Length - 1, 1) = " " Then e.SuppressKeyPress = True
End If
End If
End Sub
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#14
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي كود الاخ Ghost2010 سيلغى الفراغات من اول واخر الكلمه فقط!! لكن كودي السابق سليم يمكن الخطأ الي طلع معك انك اضفت فراغ في البدايه, لذا جرب الكود بعد التعديل ليمنع الفراغات من التكرار اثناء الكتابه

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    	If e.KeyCode = Keys.Space Then
        	If TextBox1.Text.Length = 0 Then
            	e.SuppressKeyPress = True
            	Exit Sub
        	Else
            	If TextBox1.Text.Substring(TextBox1.Text.Length - 1, 1) = " " Then e.SuppressKeyPress = True
        	End If
    	End If
	End Sub
 
عليكم السلام ورحمة الله وبركاته 
الاخ VB Helper 
عداك العيب 
الكود يعمل بشكل صحيح تماماً
الله يبارك في علمك 
سلمت ياغالي سلمت ؛؛؛؛

      
تم تعديل هذه المشاركة بواسطة s programmer في 8 يونيو 2011 في 21:22

      

      
    

  

    
    

      
#15
        
        

      
السلام عليكم ورحمه الله وبركاته
لاشكر على واجب اخي مو شكله لو كان الحل الاخر ناسبك بس افتكرت انه فيه مشكله اصلا احب استفيد من اخطأي واقوم بتصليحها, بالتوفيق ...

      
      

      
.:: Wish to become better and better ::.

    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…