• 0
s programmer

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

سؤال

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

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

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

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

لو فرضنا ان لدين 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 على زر المسافة من الكيبورد مرة او مرتين او ... الخ مباشرةً سيتم الحفظ لان زر المسافة قيمة حقيقية مثلها مثل اي حرف في الكيبورد

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

14 إجابة على هذا السؤال .

  • 0

عدل الشرط

If TextBox1.Text = "" Then

إلى

If TextBox1.Text.Trim = "" Then

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

no_space.rar

تم تعديل بواسطه muhedeen
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
أخي حتى تتجنب حفظ المسافات الفارغة بامكانك منع المستخدم من ادخال المسافةعلى text كما في المثال المرفق

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

مع أني أنصح بحل الأخ 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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


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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

الاخ الكريم GHOST2010

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

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

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

تم تعديل بواسطه s programmer
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

http://www.arabteam2000-forum.com/index.php?showtopic=243281&view=findpost&p=1204064

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

TextBox1.Text = TextBox1.Text.Trim

تم تعديل بواسطه GHOST2010
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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


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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله

السلام عليكم

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

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

الاخ GHOST2010

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

اخي كود الاخ 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

اخي كود الاخ 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .