منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بفرض يوجد تكست بوكس 1 اريد فى حالة التكست بوكس فاضية يتم تعطيل زر الحفظ وعند كتابة اى شي يتم تفعيل زر الحفظ

السلام عليكم و رحمة الله و بركاته
لا يمكنني استعمال محرر الاكواد أخي الكريم .. جرب :
If textbox1.text= vbnullstring then
Button1.enabled= false
End if
و اذا كان الامر يخص الحفظ مع العديد من التاكسات بكس يمكن ببداية الكود
If textbox1.text= "" then
Exit sub
Textbox1.focus()
End if

اخى الكريم جرب الطريقتين لما تنفع

لم افهم عليك أخي الغالي جيدا..بدون تجربة جرب استعمال الكود الاول بحدث text.change
مع اضافة 
Else
Button1.enabled= true
End if
واحذف عبارة end if بالاول

كا كود يمكنك استخدامه بهذا الشكل


اما اذا كنت تريد من خلال عند الضغط على الزر الحفظ واتمام التحقق قبل اتمام الحفظ فيكفي ان تجعل الكود بهذا الشكل باعلى كود الحفظ

من ثم تاتى فى حدث TextBox1_TextChanged وتستخدم الكود التالى

(11-11-18, 01:40 PM)سمير جمال كتب : [ -> ]بفرض يوجد تكست بوكس 1 اريد فى حالة التكست بوكس فاضية يتم تعطيل زر الحفظ وعند كتابة اى شي يتم تفعيل زر الحفظ

لنفرض زر الحفظ = Button1
اعمل الخاصية تبع الزر Enabled = False

ثم دبل كلك على التكست المراد التحقق منه ولنفرض هنا = TextBox1

والصق هذا الكود :

(11-11-18, 04:31 PM)elgokr كتب : [ -> ]كا كود يمكنك استخدامه بهذا الشكل

كود :

       If TextBox1.Text = Nothing Or TextBox1.Text = vbNullString Then
           TextBox1.Enabled = False
       Else
           TextBox1.Enabled = True
       End If

ويمكنك استخدامه فى حدث الخاص باداء الـ Timer

اما اذا كنت تريد من خلال عند الضغط على الزر الحفظ واتمام التحقق قبل اتمام الحفظ فيكفي ان تجعل الكود بهذا الشكل باعلى كود الحفظ

كود :

       If TextBox1.Text = Nothing Or TextBox1.Text = vbNullString Then
           TextBox1.Enabled = False
           Exit Sub
       End If

من ثم تاتى فى حدث TextBox1_TextChanged وتستخدم الكود التالى

كود :

       If TextBox1.Text = Nothing Or TextBox1.Text = vbNullString Then
           TextBox1.Enabled = False
       Else
           TextBox1.Enabled = True
       End If

الامر يرجع لك لما تريد فعله وايهم تفضل

تحياتى لك

وتمنياتى لك التوفيق

شكرا جدا على مجهودكم العظيم والحمدلله تم حل المشكلة بفضلكم

---

(11-11-18, 04:53 PM)حريف برمجة كتب : [ -> ]

(11-11-18, 01:40 PM)سمير جمال كتب : [ -> ]بفرض يوجد تكست بوكس 1 اريد فى حالة التكست بوكس فاضية يتم تعطيل زر الحفظ وعند كتابة اى شي يتم تفعيل زر الحفظ

لنفرض زر الحفظ = Button1
اعمل الخاصية تبع الزر Enabled = False

ثم دبل كلك على التكست المراد التحقق منه ولنفرض هنا = TextBox1

والصق هذا الكود :

كود :

       If TextBox1.Text = "" Then
           Button1.Enabled = False
       Else
           Button1.Enabled = True
       End If

الف شكرا يافالي