السلام عليكم ورحمة الله وبركاته
هذا مثال بسيط لتطبيق الثيم على فورمات محددة
اولا تحميل الاداة لفيجوال بيسك 2010 من هنا
ثانيا تضاف عن طريق references
ثالثا استدعائها Imports Sunisoft.IrisSkin
رابعا
المثال
ملف مضغوط للادوات وملفات الـ skins
هذا مثال بسيط لتطبيق الثيم على فورمات محددة
اولا تحميل الاداة لفيجوال بيسك 2010 من هنا
ثانيا تضاف عن طريق references
ثالثا استدعائها Imports Sunisoft.IrisSkin
رابعا
كود :
Dim skn As New Sunisoft.IrisSkin.SkinEngine
skn.SerialNumber = "kUb2DF5pvGF3X9dKPFvIdkXQ0sE8LkAVp9fMme9wCnjZ+ArdRVlxKw=="
skn.SkinFile = Application.StartupPath & "\Silver.ssk"
skn.AddForm(Me)
skn.AddForm(Form2)
المثال
ملف مضغوط للادوات وملفات الـ skins
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير