منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية حفظ قيمة Label في فيجوال دوت نت 2010 (/showthread.php?tid=20503)

كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - عامر الجبوري - 23-05-17

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


RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - alma2 - 23-05-17

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


RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - عامر الجبوري - 23-05-17

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

RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - alma2 - 23-05-17

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

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

RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - عامر الجبوري - 23-05-17

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

RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - عامر الجبوري - 24-05-17

حبيبي الغالي alma2 وكل الاخوة في هذا الكروب
عندما افعل ال checkbox   يعطي قيمة " تم تدقيق هذا اليوم "
وعدما الغي تفعيل checkbox  يعطي قيمة " يوم عطلة"

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


RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - alma2 - 24-05-17

اذا كان قصدك تريد شكل 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


RE: كيفية حفظ قيمة Label في فيجوال دوت نت 2010 - عامر الجبوري - 24-05-17

حبيبي اريد الشكل شكل Indeterminate
وعند التفعيل Checked= "تم تدقيق هذا اليوم "
و unChecked = "يوم عطلة "