حركة جديدة (تجليد الفورم) بابسط الطرق مع اداة Active Skin

[شوقي ربيع]

بسم الله الرحمان الرحيم

السلام عليكم

 

حركة اليوم كالعادة متعلقة  بالجانب الفني و الجمالي  لليوزر فورم

اقتبست هاته الفكرة من تجليد الفورم في VB6 و VBNET  بواسطة أداة Active Skin

و وجدة ان هاته الأداة متوفر او متوافقة  بالفعل مع VBA

لذى بحثت  وحاولت الى ان توصلت الى الاتي

ا36 شكل (ثيم) مميز يمكنكم استعمالها بسهولة فس برامجكم

ندخل الى التنفيذ

اولا نحتاج الى تثبيت الأداة ActiveSkin Control ان لم تكن مثبت لديكم  ولفعل ذالك اتبع الشرح المصور الاتي

 

 

 

 

 

 

 

 

بهده الطريقة نكون انتهينا من عملية تثبيت الادات

الان ناتي الى اضافة الاداة كاي ادات اخرى الى صندوق الادواة

 

 

 

 

نقوم الان باضافة الاداة الى الفورم وايضا نقوم باضافة ليست بوكس

ثم قم بنسخ هذا الكود في الفورم

Option Explicit
Private No As Double
Private FSO As Object, Klasir As Object, Dosya As Object
Private SeçilenDosya As String
Private Const hWnd As Long = &H0
Private Sub UserForm_Initialize()
    On Error Resume Next
    Application.Visible = False
    With Me
        .Caption = "UserForm Skin"
        .Height = 226
        .Width = 358
    End With
    With ComboBox1
        .Left = 6
        .Top = 6
        .Height = 18
        .Width = 114
    End With
    Call SkinDosyaListele
End Sub
Private Sub UserForm_Terminate()
    On Error Resume Next
    Contrôle1.Empty
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    Application.Visible = True
    End
End Sub
Private Sub ComboBox1_Change()
    On Error Resume Next
    SeçilenDosya = ComboBox1.List(ComboBox1.ListIndex, 1)
            Me.Caption = ComboBox1

    With Contrôle1
        .LoadSkin SeçilenDosya
        .ApplySkin hWnd
        .ZOrder 1
    End With
    DoEvents
End Sub
Sub SkinDosyaListele()
    On Error Resume Next
    No = 0
    Set FSO = VBA.CreateObject("Scripting.FileSystemObject")
    Dim Pth As String: Pth = ThisWorkbook.Path & "\Skins\"
    Set Klasir = FSO.GetFolder(Pth)
    For Each Dosya In Klasir.Files
        ComboBox1.AddItem Dosya.Name
        ComboBox1.List(No, 1) = Dosya
        No = No + 1
    Next Dosya
End Sub

تم ارفاق مثال عملي للموضوع

لكي يشتغل عنك المثال قم اولا بتثبيت الادات كما وضحت سابقا ولا تنسى  وضع الملف بعد الحفظ مع مجلد Skins في نفس المسار

سيضهر لك يوزر فورم به قائمة منسدلة بالشكل العادي قم باختيار أي اسم من القائمة ولاحظ مايحدث

المجلد Skins يحوى السناكات

بعض الصور المأخوذة للفورم بعد التجليد

 

 

اهدي هذه الحركة الى اخي وصديقي ضاحي الغريب الذي عمل لي الشرح المصور اعلاه 

جازاه الله عنا كل الخير

ارجو ان يفيدكم الموضوع وينال اعجابكم

تحياتي للجميع

اخوكم في الله شوقي ربيع

الشرح المصور.rar

ACTSKIN4 الاداة.rar

مثال عملي عن تجليد الفورم.rar

[ضاحي الغريب]

العبقري ... ابو ربيع الغالي ............ كلك حركات

تسلم ايديك

وهدية مقبولة واللهم يدوم بينا المحبة والتاخي في سبيله ومرضاته

بارك الله فيك وجزاك خيرا

تقبل تحياتي

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

أيوا كدا هو دا الشغل يا كبير

عايزين كل يوم من ده

[محمود_الشريف]

أخى فى الله

الأستاذ القدير // شوقى ربيع

من جعلنى أعشق الفورم وحركاتها

بارك الله فيكم وزادكم الله من فضله ومن علمه

والشكر موصول 

للأستاذ القدير // ضاحى الغريب

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

بارك الله فيكم أجمعين

 

وتقبلوا منى وافر الاحترام والتقدير

[خالد الشاعر]

تسلم ايدك استاذ شوقى

[إبراهيم ابوليله]

اخى واستاذنا شوقى

عند فتح الملف تظهر هذه الرساله

ارجو المساعده

 

[شوقي ربيع]

اخي وصديقي ضاحي الغريب

يشرفني ويسعدني مرورك العطر

تحياتي لك

[شوقي ربيع]

 

بسم الله ما شاء الله

أيوا كدا هو دا الشغل يا كبير

عايزين كل يوم من ده

 

بإذن الله لن نبخل بشيء عنكم اخوتي في الله 

تحياتي لك

[شوقي ربيع]

 

أخى فى الله

الأستاذ القدير // شوقى ربيع

من جعلنى أعشق الفورم وحركاتها

بارك الله فيكم وزادكم الله من فضله ومن علمه

والشكر موصول 

للأستاذ القدير // ضاحى الغريب

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

بارك الله فيكم أجمعين

 

وتقبلوا منى وافر الاحترام والتقدير

 

لك مني جزيل الشكر على عبارتك الجميلة

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

تحياتي لك

[شوقي ربيع]

تسلم ايدك استاذ شوقى

بارك الله فيك على مرورك  والله يسلمك

تحياتي

[شوقي ربيع]

اخى واستاذنا شوقى

عند فتح الملف تظهر هذه الرساله

ارجو المساعده

هذه الرسالة تضهر عندلك لانك لم تثبت الاداة

اتبع شرح تثبيت الادات في الاول ثم شغل البرنامج من بعدها وسيعمل باذن الله

[شوقي ربيع]

ملاحظة

الاصدار الحديث للأوفيس 2013 لا يدعم هذه الاداة

[محمد الريفى]

استاذى واخى فى الله

 

شوقى ربيع

جزاكم الله خيرا على ماتقدموه لنا

من علم وابداع

والشكر موصول لاستاذى الحبيب واخى فى الله

ضاحى الغريب

تقبلوا تحياتى

[جلال الجمال_ابو أدهم]

استاذ / شوقى ربيع

ما شاء الله عليك _ دائما اعملك متميزة

[شوقي ربيع]

 

استاذى واخى فى الله

 

شوقى ربيع

جزاكم الله خيرا على ماتقدموه لنا

من علم وابداع

والشكر موصول لاستاذى الحبيب واخى فى الله

ضاحى الغريب

تقبلوا تحياتى

 

السلام عليكم

بارك الله فيك على مرورك العطر وعباراتك الجميلة

تقبل مني تحياتي

[شوقي ربيع]

استاذ / شوقى ربيع

ما شاء الله عليك _ دائما اعملك متميزة

السلام عليكم

جزاك الله خير وشكرا على مرورك

تحياتي

[Yasser Fathi Albanna]

سلمت يداك الأخ والأستاذ الفاضل / شوقى ربيع

جزاك الله كل خير وزادك الله من العلم الكثير والكثير

[saad abed]

استاذى شوقى ربيع

كما قال اخى ياسر انت كبييييييييييييييييييييييييييييييييييييييييييييييييير قوى

ايه الحلاوه دى

جزاك الله خيرا

اداة ممتازة ممتازة

[شوقي ربيع]

 

سلمت يداك الأخ والأستاذ الفاضل / شوقى ربيع

جزاك الله كل خير وزادك الله من العلم الكثير والكثير

 

السلام عليكم

شكرا على مرورك ودعائك الجميل

تحياتي

[شوقي ربيع]

 

استاذى شوقى ربيع

كما قال اخى ياسر انت كبييييييييييييييييييييييييييييييييييييييييييييييييير قوى

ايه الحلاوه دى

جزاك الله خيرا

اداة ممتازة ممتازة

 

السلام عليكم

يسعدني دائما مرورك العطر

تحياتي لك

[محمد لطفى]

السلام عليكم

الموضوع جميل جدا

بس لايعمل مع اوفيس 2013

[شوقي ربيع]

السلام عليكم

الموضوع جميل جدا

بس لايعمل مع اوفيس 2013

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

شكرا على مرورك بالموضوع

بخصوص ملاحظتك تم التنويه اليها في المشاركة رقم 12

تحياتي

[kabsaya]

مشكوررررررررررررررر

جزاك الله خيرا

[خالد الشاعر]

تسلم ايدك استاذ شوقى

 

جزاك الله كل خير

[عاشق الاكسيل]

سلمت يمينك استاذ شوقى ربيع

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

تم تعديل أبريل 4, 2015 بواسطه مصطفى أبو ملك