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

السلام عليكم و رحمة الله و بركاته ، تحية طيبة لكل أعضاء المنتدى و بعد :

هل من الممكن تحقيق الشرط التالي : عندما يكون : CheckBox1.Checked = True و CheckBox2.Checked = False فإن المظهر يكون كالتالي :

و عندما يكون الشرط : CheckBox2.Checked = True و CheckBox1.Checked = False فإن المظهر يكون على الشكل :

كود :

   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

           = Dim skn As New Sunisoft.IrisSkin.SkinEngine

            skn.SkinFile = "skin/DiamondBlue.ssk"

            skn.AddForm(Me)

            CheckBox2.Checked = False

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

          = Dim skn As New Sunisoft.IrisSkin.SkinEngine

            skn.SkinFile = "skin/DiamondPurple.ssk"

            skn.AddForm(Me)

            CheckBox1.Checked = False

        End If

    End Sub

ممكن مساعده بارك الله فيكم

تحتاج إلى دمج الشرطين بكلمة (مفتاح) And :

كود :

   Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

       If CheckBox1.Checked = True And CheckBox2.Checked = False Then

           Dim skn As New Sunisoft.IrisSkin.SkinEngine

           skn.SkinFile = "skin/DiamondBlue.ssk"

           skn.AddForm(Me)

           CheckBox2.Checked = False

       End If

   End Sub

   Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

       If CheckBox2.Checked = True And CheckBox1.Checked = False Then

          Dim skn As New Sunisoft.IrisSkin.SkinEngine

           skn.SkinFile = "skin/DiamondPurple.ssk"

           skn.AddForm(Me)

           CheckBox1.Checked = False

       End If

   End Sub

بارك الله فيك أخي محمد كريّم بقي المشكل فهو لا يغير المظهر

تابع هذا الموضوع :

تغيير السكاين من الكومبوبكس .

أعتذر
جرب هذا الكود

كود :

   Private Sub checkSkin()

        Dim skn As New Sunisoft.IrisSkin.SkinEngine

        If CheckBox1.Checked And Not CheckBox2.Checked Then

            'حالة التشك الاول مفعل والثاني غير مفعل

            skn.SkinFile = "skin/DiamondBlue.ssk"

            skn.AddForm(Me)

        ElseIf CheckBox2.Checked And Not CheckBox1.Checked Then

            'حالة التشك الثاني مفعل والاول غير مفعل

            skn.SkinFile = "skin/DiamondPurple.ssk"

            skn.AddForm(Me)

        ElseIf CheckBox2.Checked And CheckBox1.Checked Then

            'حالة التشك الاول والثاني مفعلين

        Else

            'حالة التشك الاول والثاني غير مفعلين

        End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        checkSkin()

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged

        checkSkin()

    End Sub

جزاك الله خيرا أخي [b]محمد كريّم [/b]

الكود يعمل بشكل جيد في حالة كل من تشيك بكس 1 و 2 غير مفعلة في حالة لود المشروع لاحظ الصورة ، ياريت يفتح بالسكين الاول الازرق ثم اضغط على تشيك بكس 2 لتغير سكين الوردي يعني التبديل بين السكين في حالة اختيار كل من تشيك بوكس 1 ا و 2

يعطيكم العافية الاخ كريم و الاخ asemshahen5 على الرد ، تم التغيير الى الكومبوبكس و هو شغال 100 / 100

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

sofiane-phy

sofiane-phy

محمد كريّم

sofiane-phy

asemshahen5

محمد كريّم

sofiane-phy