[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إخواني الأكارم

أحيانا أثناء تصميمنا لمنظومة ما .. و عند إستعمالنا و تغييرنا لشكل السكاين أثناء التشغيل .. قد تتغيّر وضعية الأزرار أو التاكسات و ما شابه ذلك ..

هذه الإشكالية لا تظهر أثناء التصميم لكن الكل قد لاحظها أثناء التنفيذ

كمثال لتوضيح ما تمّ ذكره ..

لا حظوا وضعية الأزرار داخل ال GroupControl

نفس الفورم و نفس الصفحة .. فقط قمت بتغيير السكاين .. فتغيّر معها كل شيء بشكل فضيع

و لا يمكن .. بل غير مقبول تماما ( إيتيكيتيَّا ) ..

أن تسلّم للعميل منظومة .. يختفي نصف محتوياتها .. إذا فقط قام بتغيير سكاين على مزاجه

الحل .. من وجهة نظري البسيطة

نقوم باختبار للسكاينات التي لا تسبّب أي تشوّه للفورم و محتوياتها

و نحذف الباقي من السكاينات غير المرغوب فيها

نعلن عن متغيّر عام بالفورم المقصودة بتغيير السكاينات

و نكتب أسماء السكاينات التي نريد إخفائها تماما .. كمثال

كود :

   Private Bonus_Skins_To_Hide() As String = {"Black", "Blue", "Seven", "Whiteprint", "Visual Studio 2010", "Seven Classic", "Visual Studio 2013 Light", "Visual Studio 2013 Dark"}

ثم .. يتم وضع هذا الكود بأي مكان بنفس الفورم ..

كود :

   Private Sub Hide_Specific_Skin_From_Ribbon_Gallery()
       For i = 0 To SkinRibbonGalleryBarItem1.Gallery.Groups.Count - 1
           Dim Ggroup = SkinRibbonGalleryBarItem1.Gallery.Groups(i)
           If Ggroup Is Nothing Then
               Continue For
           End If
           For j = 0 To Ggroup.Items.Count - 1
               Dim Iitems = Ggroup.Items(j)
               If Iitems Is Nothing Then
                   Continue For
               End If
               For Each Sskin In Bonus_Skins_To_Hide
                   If String.Equals(Iitems.Caption, Sskin) Then
                       Iitems.Visible = False
                   End If
               Next Sskin
           Next j
       Next i
   End Sub

و أخيرا نقوم باستدعاء ما سبق بالفورم لود ..

كود :

Call Hide_Specific_Skin_From_Ribbon_Gallery()

تحياتي واحتراماتي