السلام عليكم
اريد كود يحفظ Label في هذا لكود البرمجي
بعد اعادة تشغيل البرنامج لا تحفظ قيمة Label
ولكم شكري وامتناني
PHP كود :
Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
My.Settings.c1 = CheckBox1.Checked
My.Settings.Save()
If CheckBox1.Checked = True Then
Label1.Text = " دقق هذا اليوم"
Else
Label1.Text = "يوم عطلة"
End If
End Sub
بعد أن تكون اتبعت الخطوات في الموضوع الأول مع الاسم c1
كود :
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label1Check()
End Sub
Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Label1Check()
End Sub
Sub Label1Check()
If CheckBox1.Checked = True Then
Label1.Text = " دقق هذا اليوم"
Else
Label1.Text = "يوم عطلة"
End If
End Sub
End Class
حبيبي الغالي اشكرك هواي .. طبقت سابقا كما هو مطلوب .. واجت نتائج حلوة
ممكن توضح الكود بشكل افضل
لان مو واضح
الكود السابق كان لا يقرا المحفوظ عند بداية الفورم بالرغم انه تم الحفظ، لهذا لم ترى النتيجة
وضعت اجراء باسم Label1Check وظيفة يضع قيمة Label بناء على c1
وفي نفس الوقت استدعيته في حدث Form1_Load أي عند بداية عرض الفورم لتظهر النتيجة من البداية
بالاضافة لاستدعائها كلما تغيرت قيمة الأداة CheckBox1
حبيبي ربي يحفظك .. هسة اوك .. يسلم قلبك
حبيبي الغالي alma2 وكل الاخوة في هذا الكروب
عندما افعل ال checkbox يعطي قيمة " تم تدقيق هذا اليوم "
وعدما الغي تفعيل checkbox يعطي قيمة " يوم عطلة"
السؤال كيف اجعل حالة checkbox بشكل عام CheckState.Indeterminate
افيدوني ...
اذا كان قصدك تريد شكل Indeterminate بدل شكل Checked ولكن تبقى المسألة بحالتين فقط
كود :
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label1Check()
End Sub
Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then CheckBox1.CheckState = CheckState.Indeterminate
Label1Check()
End Sub
Sub Label1Check()
If CheckBox1.Checked = True Then
Label1.Text = "تم تدقيق هذا اليوم"
Else
Label1.Text = "يوم عطلة"
End If
End Sub
End Class
حبيبي اريد الشكل شكل Indeterminate
وعند التفعيل Checked= "تم تدقيق هذا اليوم "
و unChecked = "يوم عطلة "