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

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

طلب تعديل كود مظهر الواجهة - sofiane-phy - 22-12-19

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

هل من الممكن تحقيق الشرط التالي : عندما يكون : 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


RE: طلب تعديل كود مظهر الواجهة - sofiane-phy - 22-12-19

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

RE: طلب تعديل كود مظهر الواجهة - محمد كريّم - 22-12-19

تحتاج إلى دمج الشرطين بكلمة (مفتاح) 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


RE: طلب تعديل كود مظهر الواجهة - sofiane-phy - 22-12-19

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

RE: طلب تعديل كود مظهر الواجهة - asemshahen5 - 22-12-19

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

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

RE: طلب تعديل كود مظهر الواجهة - محمد كريّم - 23-12-19

أعتذر
جرب هذا الكود
كود :
   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


RE: طلب تعديل كود مظهر الواجهة - sofiane-phy - 23-12-19

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

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

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