الف شكر .. واتمنى لك المزيد من التقدم -waf
“Any fool can make things bigger, more complex, and more violent”
skins - من صنعي + skins
مغلقرائج
اخي تعرف تعمل فورم على شكل الصورة دي :
بس بدون الخلفية يعني الصورة بس
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
استطيع بس الخلفية بيضاء افضل
استطيع ان اجعلها بيضاء
لكن اخي اريد :
شكل الزر العادي
شكل الزر CLOSE
شكل الزر MAXMIZE & RESTOR
شكل الزر MINMIZE
لون كتابة الليبل
او انت تريد شكل الزر العادي نفس الي موجود بالفجوال ما في مشكلة بس انا اقولك قبل ان اصنع
اقتباسقريبا :الملفات المرفقة
Untitled_2.bmp ( 549.37k ) عدد مرات التحميل: 4
صنعت سكن لكن لم يعجبني لذلك ساضع للكوماند فقط
ضع سكن في الفورم
وفي الفورم load
اكتب
skin1.applyskin command1.hwnd
السكن للكوماند فقط
السلام عليكم
جيد أخي
وهلا نظرت في الموضوع الذي كتبته أنت منذ مدة أتمنى أن تزوره
وإنها المرة الثالثة أو الرابعة التي أطلب مباشرة بعد ردك في غير موضوع أن تذهب
إلى هذا الرابط ولكن عندما أذهب أنا لا أجد أنك رديت على الموضوع
آمل أن تفعل ذلك هذه المرة
تم تعديل هذه المشاركة بواسطة micheal R jordan في 1 يوليو 2007 في 20:01
السلام عليكم مرة أخرى
إخواني الاعزاء فقط للإضافة إذا أردت أن تضع Skin لكل
Command عندك في Form دفعة واحدة كل اللي عليك هو كتابة هذا الكود
Dim i As Integer Dim Handles() As Long Dim ControlType As Control ReDim Handles(0) For Each ControlType In Me.Controls If (TypeOf ControlType Is CommandButton) Then Handles(UBound(Handles)) = ControlType.hWnd ReDim Preserve Handles(UBound(Handles) + 1) End If Next Skin1.LoadSkin "Command - ArabTeam.skn" For i = LBound(Handles) To UBound(Handles) - 1 Skin1.ApplySkin Handles(i) Next
الكود ليس صعبا إلى ذلك الحد ولكن
المتغير الاول هو فقط لل For Next
المتغير التاني ليحمل HWND لكل COMMAND في FORM
المتغير التالث كما تقول INTGER و LONG لتعريف الاعداد
تستطيع أن تقول أن AS Control هو لتعريف CONTROLS :lol:
ما علينا
اقتباسLBoundUBound
هاتين الدالتين للحصول على أول وآخر ITEM في المصفوفة ARRAY
يمكنك استعمالها في LIST BOX و LIST VIEW
وما إلى ذلك
وفي الاخير
وفقط إذا رأيت أنك لم تفهم جيدا حاول أن تضع TEXT BOXES وتحاول الحصول على HANDLE و NAME
أو غير
Handles(UBound(Handles)) = ControlType.hWnd
إلى
Handles(UBound(Handles)) = ControlType.Caption
سلام
السلام عليكم
شكرا أخي
ما علينا
الشباب الموضوع طرح لطلب سكن
فقط اريد صورة الفورم
اتمنى انه ما بكون مثل فورم اخي علاء لانه كذا يصير صعب :) (يعني يكون مربعي مستطيلي افضل بكثير)
طبعا المطلوب تجيبوا صورة لشكل الفورم والزر عند الضغط و عند حالته الطبيعية و عند disable و ...
وهكذا...
اقتباسملاحظة : السكن مو بلاشالي يريد ينزلها لازم يرد اول
اقتباسعدد مرات التحميل: 1
مش حرام الي تسويه ؟؟
انا اتعب عشان انتوا تحملوا وما احصل كلمة شكر بس ؟؟
والله من الصبح انا شغال على الفوتوشوب
وهذا الي اسويه اليكم
معليش اخي حريف البرمجة اهمشي اشوف تشجيع عشان المرة الجاية اتشجع واسوي سكن جديدة
مشكوووور عليك وانا اذا تعبت وجبت تعبي في المنتدى يجي شخص يحمل ولا يشكر ما بحس بشيء انا ؟؟
ملاحظة : السكن مو بلاش
الي يريد ينزلها لازم يرد اول
الملفات المرفقة
flowes__HS_.rar ( 55.59k ) عدد مرات التحميل: 5
:angry: مش مشكلة الان انا اذا صنعت سكن جديد لن اضعه في المنتدى الى بعد ان تردوا 10 ردود
حلال لكن هتفموا ايه التعبة دي
السلام عليكم
سكن جميلة
اخي كم هو سعر السكن flowers
على فكرة الاسكن القديم لم يتم تحميله بهذا العدد الضخم من الاعضاء انا قمت بعمل برنامج صغير يقو بعمل طلبات تحميل وهمية للموقع وذاد عددها هكذا
مبارك لشعب تونس 
اقتباسالسلام عليكمسكن جميلة
اخي كم هو سعر السكن flowers
فقط الرد والتشجيع :)
اذا لم ارى تشجيع لن اصنع شكن
لكن اذا كان في ردين او 3 اكيد يخلينا اواصل واصنع المزيد اخي
شكرا أخي
و لكن ما هو الكود لتطبيق الskin flowers على الform
أخي skin active skin 4
لا يطبق على command button فيه icon لماذا
-------------------------------------------------------
اتمنى لك النجاح و التفوق في هذا المجال
و يسعدني أن أعتمد على الskins المصنوعة عن طريقك في برامجى
موضوع الskins مهم جدا
و اتمنى ان يحتل مكانة مهمة في المنتدى
تم تعديل هذه المشاركة بواسطة mirna moukhtar في 8 أغسطس 2007 في 15:52
أخي ما هو الكود لتطبيق الskin flowers على الform
هل رايت الصفحة الاولى ؟؟
ادرج اداة ACTIVE SKIN 4
بعد وضعها في الفورم اضغط عليها بزر الماوس الايمن لتظهر لك قائمة
اضغط على LOAD SKIN واختار سكن الورود
واكتب الكود في حدث FORM LOAD
SKIN1.APPLYSKIN FORM1.HWND
شكرا اخي
هل يكمننا تطبيق الSKIN على COMBOBOX ,STATUSBAR , TOOLBAR
لو سمحت امكانية تطبيقها على كل الCONTROL
حتى نستعملها في المشاريع
ان شاء الله نرى دائما ابداعات و SKINS جديدة
بالتوفيق
تم تعديل هذه المشاركة بواسطة mirna moukhtar في 9 أغسطس 2007 في 13:05
هذا الموضوع مغلق.