23-08-19, 04:39 PM
السلام عليكم
من اجل الاستعداد في تنفيذ اجزاء اخرى من المشروع الاساسي
تم تكليفي بعمل كود يقوم بالتالي:
توجد أداة GroupBox وفيها مجموعة أدوات
المطلوب تعطيل كل الأدوات التي بداخلها باستثناء تكست بوكس معين مع الليبل الخاص بها
قمت بعمل مشروع تجربه ولكن لم اتمكن من عملها بالشكل الصحيح
مشروع التجربة:
لدي GroupBox1 وفيه مجموعة من الأدوات وهي
Label1 مع TextBox1
Label2 مع TextBox2
Label3 مع TextBox3
Button1 لتعطيل كل الأدوات داخل GroupBox1 باستثناء Label2 وTextBox2 على سبيل المثال
Button2 لتفعيل كل الأدوات داخل GroupBox1
عند عمل الكود اتضح انه يعطل كل شيء حتى الفورم
صراحة اصابني بالارتباك وسأحرج من زملائي لو طلبوا مني وضع الكود قبل حل مشكلته
هذا هود الكود
وشكرا لكم
من اجل الاستعداد في تنفيذ اجزاء اخرى من المشروع الاساسي
تم تكليفي بعمل كود يقوم بالتالي:
توجد أداة GroupBox وفيها مجموعة أدوات
المطلوب تعطيل كل الأدوات التي بداخلها باستثناء تكست بوكس معين مع الليبل الخاص بها
قمت بعمل مشروع تجربه ولكن لم اتمكن من عملها بالشكل الصحيح
مشروع التجربة:
لدي GroupBox1 وفيه مجموعة من الأدوات وهي
Label1 مع TextBox1
Label2 مع TextBox2
Label3 مع TextBox3
Button1 لتعطيل كل الأدوات داخل GroupBox1 باستثناء Label2 وTextBox2 على سبيل المثال
Button2 لتفعيل كل الأدوات داخل GroupBox1
عند عمل الكود اتضح انه يعطل كل شيء حتى الفورم
صراحة اصابني بالارتباك وسأحرج من زملائي لو طلبوا مني وضع الكود قبل حل مشكلته
هذا هود الكود
كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DisableGroupBox
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
EnableGroupBox
End Sub
Private Sub DisableGroupBox()
For Each c As Control In GroupBox1.Controls
If c IsNot TextBox2 And c IsNot Label2 Then
Enabled = False
End If
Next
End Sub
Private Sub EnableGroupBox()
For Each c As Control In GroupBox1.Controls
Enabled = True
Next
End Sub
End Class
وشكرا لكم
اصدقائي حسب ترتيب ظهورهم في مواضيعي:
baha
ابراهيم ايبو
سعود
Rabeea Qbaha
اسامه الهرماوي