أفظل سكينات في العالم لمشاريعكم + الشرح الممل فيجوال بيسك

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
أقدم لكم أفظل سكينات في العالم وبدون منافس كما أقدم لكم برنامج صغير يريكم كيف تدمجون هاته السكينات في مشاريعكم وكيف تجعلون المستخدم يختار ما بين عدة سكينات في نفس المشروع على أن يحتفظ البرنامج بالسكاين المختار حتى بعد إغلاق البرنامج وإعادة فتحه
أمثلة للسكاينات تبرهن كلامي حول العالمية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


وهذا هو المثال البسيط الذي سنعمل عليه

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

واجهة البرنامج مع بعض أمثلة الأكواد الموجودة بداخل أزار الإختيار

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]


الآن سنبدأ في الشرح ..أولا بعد تنصيب skincrafter نذهب وننقل الملفين SkinCrafter3_vs2005.dll و SCLabel.ocx إلى مجلد النظام 32 system ثم نفتح مشروعنا ونحدد مسار ملفات السكاين عن طريق زر Browse، هذه خطوة مهمة حتى تشتغل مشاريعكم في الحواسيب الأخرى


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ثانيا .. نقوم بإعادة تسمية السكاينات بأرقام واحد إثنان ثلاثة وهكذا، يمكنكم تركها على حالها لكن هذا سيتطلب إدخال أسماء طويلة في محرر أكواد فيجول بيزك.

ثالثا.. نبدأ في كتابة الأكواد، في General Declaration نكتب

ثم عند بدأ تحميل الفورم أي قبل أن يظهر نكتب

عند تحميل الفورم نكتب

في السطر الأول يبحث البرنامج عن القيمة المسجلة في الـ Text1، في السطور المتبقية نشيك على القيمة المسجلة بحيث إن كانت 2 مثلا يطبق البرنامج السكاين الثاني
ثم يجعل زر الإختيار Option2 نشيطا حتى يعرف المستخدم الثيم المستعمل هل هو الأول أم الثاني...
--------------------------------------------
عندما يضغط المستخدم على زر إختيار الثيم فليكن مثلا Option3 فإن الـ Text1 يأخذ القيمة النصية "3" حتى يطبق البرنامج هذا السكاين على نفسه في المرة المقبلة التي يفتح فيها، لكن المستخدم لن يرغب أن ينتظر أليس كذلك، لذا نجعل البرنامج يطبق السكاين في الحال وهكذا يصبح البرنامج يحمل السكاين في وقت إختياره وعند فتحه كل مرة.

() Private Sub Option1_Click "Text1.Text = "1 "SkinOb.LoadSkinFromFile App.Path & "1.skf SkinOb.ApplySkin End Sub ()Private Sub Option2_Click "Text1.Text = "2 "SkinOb.LoadSkinFromFile App.Path & "2.skf SkinOb.ApplySkin End Sub ()Private Sub Option3_Click "Text1.Text = "3 "SkinOb.LoadSkinFromFile App.Path & "3.skf SkinOb.ApplySkin End Sub ()Private Sub Option4_Click "Text1.Text = "4 "SkinOb.LoadSkinFromFile App.Path & "4.skf SkinOb.ApplySkin End Sub

الآن لم يبقى سوى تسجيل القيمة النصية في الـ Text1 عند إغلاق البرنامج في الروجيستري حتى يستعملها البرنامج عند بدأ التشغيل، اما مسار الحفظ في الروجيستري فهو
VB and VBA Program Settings > Projetc1 > Settings

(Private Sub Form_Unload(Cancel As Integer (SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text SkinOb.DeInitDecoration End Sub

ملاحظة إذا أظفتم زر للخروج في الفورم فأظيفوا له هذا الكود بحيث سواء إذا ضغط المستخدم على زر الخروج أو أغلق البرنامج بدون إستعمال زر الخروج يتم حفظ السكاين
ملاحظة ثانية عدلو من خصائص الـ Text1 ليكون مخفيا عن عين المستخدم أو أظيفوا في الـ Form Load هذا الكود Text1.visible=false
أشكال أخرى أحببت إظافتها ويوجد الكثير للتحميل على
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ملاحظة هامة حتى يعمل مشروعكم على الحواسيب الأخرى الغير منصب بها برنامج Skincrafter
لابد من تحميل Visual C++ 2005 Redistribution وتحزيمه مع برامجكم وتسجيل ملفات الـ .dll و .ocx في نظام المستخدم هذا مذكور في الموقع الرسمي للبرنامج

لتحميل Microsoft Visual c++ 2005 ReDistribution
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


لتحميل Skincrafter v3.3.4 توجد نسخ أحدث لكن يجب أن تبحثوا عنها بأنفسكم لأني بحث ولم أجد نسخ تعمل بكفاءة أي بسبب الكراك يصيبها عطب
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

لتحميل شرح تحزيم برامجكم مع كل تطلبات skincrafter