اداة ال Active Skin

أخي بكل بساطة ضع الاسكن في نفس مجلد البرنامج و اضف الاداة الي مشروعك ثم اكتب في form load الكود التالي

Skin1.LoadSkin App.Path & "/أسم الاسكن"
Skin1.ApplySkin (Me.hwnd)

اخواني شكراً جزيلاً لكم :lol:

اخي A7med_prof

تسمح اني ارجعلك في موضوعك و....................... أسأل :D

اذا مافي اي ازعاج ليك

اسال انا تحت امرك

اعانك الله على اسألتي الكثيره ،،،،:D ( بس والله اني جربت وتعبت وماقدرت)

* الاداة لا يوجد بها text ما الحل ( فكرت اعمل Label وانسقه بحيث يكون كأنه text )

* اداة tab كيف اغير عنوان كل تبويب ؟

* في النموذج winaqua يوجد في الشريط العلوي عنصر لإخفاء شريط القائمة وإظهاره

قمت بقصه فاصبح ظاهر ولكن غير منشط هو الشريط

هل يظهر عندما اشغل الفورم ولا لااا ؟

اخي العزيز / مفــ 2005ــادي تحيه طيبه

بالنسبه لسؤالك الاداة لا يوجد بها text ما الحل ؟

للاسف لايوجد تكس في الاكتف اسكين ولكن يوجد طريقه سهله جدا في هذا السياق وهو استخدام اي اداة مدخلات مثل التكيست بكس ثم تعرضهالك في ليبل الاكتف اسكين ولمعرفة ممكن مشاهدة الدرس الرابع فيه شرح مفصل لذلك ولو مشعايز اليك الطريق اتبع التالي :

1- ضع اداة تكيست بوكس وسميها "Text1"

2- بعد تظبيط الاسكنز بتاعك وادراج اليبل "في الاكتف اسكين" سميه مثلا "T1"

ضع هذه الشفره في حدث الـ "Change" للتكيست بوكس

Private Sub Text1_Change()
Dim IN_T As SkinStatic
    Set IN_T = Skin1.GetSkinnedWindow(hWnd).FindObject("LT1")
    IN_T.SetCaption Text1
End Sub

واجابة السؤال الاول بالفجوال والاكتف اسكين مع المرفقات مسمى بـ "TEXT_INput"

وبالنسبه للسؤالين الاخرين ياريت توضحم او تبعتلي التطبيق وانا إن شاء الله سوف اعدلك علي ما تريد .

TEXT_INput.zip

طب لو انا عاوز عند تغيرالمكتوب في ليبل الاكتف اسكين يعملي انيماشن فكيف يمكن ذلك

اخي الله يعطيك العافيه ... الفكره حلوه

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

والفورم المفروض فيه اكثر من text

ممكن اعمل text واحد و اربطه مع باقي الـ Label

نعم يمكنك فعل ذلك وبنفس الطريقه السابقه واليك الكود

Private Sub Text1_Change()
Dim IN_T As SkinStatic
   Set IN_T = Skin1.GetSkinnedWindow(hWnd).FindObject("LT1")
   Set IN_T = Skin1.GetSkinnedWindow(hWnd).FindObject("LT2")
  Set IN_T = Skin1.GetSkinnedWindow(hWnd).FindObject("LT3")
  Set IN_T = Skin1.GetSkinnedWindow(hWnd).FindObject("LT4")
   IN_T.SetCaption Text1
End Sub

حيث ان ("LT4") -("LT3")-("LT2")-("LT1") هي الليبولات الاكتف اسكين تحياتي لك

السلام عليكم ... اخي احمد

* بعني ح يكون في على الفورم text واحد او text بعدد لكل Label

والاخيره مش حلوة لانه عندي في بعض الفورمات اكثر من 9 تيكستات :(

*حاولت اربط الاسكين لكن عند التشغيل تطلع الرساله المرفقه

لك من اخيك

كل الشكر والتقدير

هذا معناه على ما اعتقد ان اسم الاسكين ليس مثل اسم الاسكين الذي طلبت تحميله

*ممكن تشرح لي كود الربط عشان اعرف مشكلة الربط عندي ! :(

* كيف اضيف اوامر في القائمه واعربها ( يعني عنوان القائمه بالعربي )

شوفت في احد مواضيعك التطبيق آلي ارفقته فيه القوائم بالعربي وفيها اوامر ... لكن كيف الطريقه؟؟

السلام عليك اخي : مفــ 2005ــادي

راجع الدرس الاول تجد فيه كل ما يخص الربط وعلى العموم سأشرحلك بالتفصيل كيفية الربط .

1- انشاء مشروع جديد وقم بحفظه في مكان انت تعرفه . ثم اذهب الى مكان الحفظ ثم ضع ملف الاسكين بجوار ملفات مشروعك الذي قمت بحفظها .

2-لابد ان تعرف اسم الاسكين الذي يكون امتداد "Skn " ويجب ان يكون بجوار ملفات مشروعك كما هو موضح امامك ففي الصوره الموضحه اسم الاسكين "TEST.skn" موجود بجوار ملفات المشروع .

3- ضع هذا الكود في حدث اللود للفورم .

Private Sub Form_Load()
ApplySkin App.Path + "\TEST.skn"'هنا اخي العزيز طلبت منه تحميل الاسكين الذي يسمى "TEST.skn" 
    FirstSkin = True' وهنا اذا لم تريد تحديد فورم معينه داخل السكين فبهذا الامر يحملك اول فورم موجود في الاسكن 
End Sub 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub ApplySkin(SkinPath As String)
    Skin1.LoadSkin SkinPath' اما هنا فقلت له يحملي المسار السابق ذكره في الحدث السابق في اللود للفورم في اداة الاكتف اسكين الذي تسمى بـ Skin1
   Skin1.ApplySkinByName hWnd, "Form_TEST"'اما هذا السطر يحملك الفورم الذي تريد تحميلها بعد تحميل الاسكنز
   End Sub

يارب يكون السرح مفهوم وبالنسبه لجعل القوائم معربه اي تظهر من اليمين ما هي الا اني لاغيت ليبل النجليزي للاكتف اسكين وادرجت 3 ليبولات ووضعتهم في المكان المناسب للقوائم وهذا ما قمت بتعديله في الاكتف اسكين اما بالنسبه للفجوال ففي القواءم مسحت جميع المكتوب او مسمى جميع القوائم هذا فقط . تحياتي لك

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

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

سأجرب إنشاء اليوم الطريقة واخبرك بالنتيجة

لك مني

كل الشكر والتقدير

اخي احمد

عملت نفس خطوات الربط واشتغل الفورم لكن بدون الاسكين :blink:

السلام عليكم

* في برنامج اسمه all sound recorder ( للتسجيل من المسجل الى الحاسب)

المصمم استخدم اداة الاكتف ونفس النموذج آلى انا مستخدمه وعمل شريط ادوات وشريط الحالة وادرج ادوات غير موجوده مع الاداة ؟!

قولي كيف؟؟

* ممكن تعطيني فكرة عن كيف ح يكون ربط قاعدة الاوراكل مع هذه الاداة... إذا امكنك

ممكن ترسلي المثال لكي ارى ما المشكله .... تحياتي لك

السلام عليكم

اخي احمد ارفقت الملف

اعتذرعن الخطاء

v

v

v

v

....

_____.zip

السلام عليكم

أخي العزيز احمد ...

ارجوك تطمني ايه حصل في التطبيق

اخي العزيز

شكراً لك اخيراً اشتغل الفورم وفتح الاسكين :lol:

آسف على ماسببت لك من إزعاج ( لكن هذا لا يعني ان اسألتي المزعجه انتهت :D )

تحياتي لك

ممكن كود لربط ادواة الاسكين مثل الزر والليبل

في توقيعي ستجد دروس لتعليم الاكتف اسكين فيه كل ماتريده تحياتي لك.

اخي العزيز تحياتي لك قمت بالتعديل عل مثالك والاجابه على اسالتك في المثال المرفق مع تنبيهك لشيئ يجب ان تسمي الزراير باسماء مختلفه لاان عندما تنادي عليها في الفي بي لا يحدث اي ملابسات . واذا واجهتك اي مشاكل اخرى الرجاء اخباري تحياتي لك .

Cor_For_U.zip