[عامر الجبوري]

السلام عليكم 

اريد كود يحفظ    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 


[alma2]

بعد أن تكون اتبعت الخطوات في الموضوع الأول مع الاسم 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

[عامر الجبوري]

حبيبي الغالي اشكرك هواي .. طبقت سابقا كما هو مطلوب .. واجت نتائج حلوة
ممكن توضح الكود بشكل افضل
لان مو واضح

[alma2]

الكود السابق كان لا يقرا المحفوظ عند بداية الفورم بالرغم انه تم الحفظ، لهذا لم ترى النتيجة

وضعت اجراء باسم Label1Check وظيفة يضع قيمة Label بناء على c1
وفي نفس الوقت استدعيته في حدث Form1_Load أي عند بداية عرض الفورم لتظهر النتيجة من البداية
بالاضافة لاستدعائها كلما تغيرت قيمة الأداة CheckBox1

[عامر الجبوري]

حبيبي ربي يحفظك .. هسة اوك .. يسلم قلبك

[عامر الجبوري]

حبيبي الغالي alma2 وكل الاخوة في هذا الكروب

عندما افعل ال checkbox   يعطي قيمة " تم تدقيق هذا اليوم "

وعدما الغي تفعيل checkbox  يعطي قيمة " يوم عطلة"

السؤال كيف اجعل حالة checkbox  بشكل عام  CheckState.Indeterminate

افيدوني ...

[alma2]

اذا كان قصدك تريد شكل 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 = "يوم عطلة "