الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دورة تصميم الأدوات

مثبّت
بدأه GHOST2010 في 9 سبتمبر 2009 · 34 رد · 9,154 مشاهدة · في قسم الدروس والمواضيع المتميزة
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

بعد أن قمت بعمل بعض الدروس التى تساعد على تصميم الأدوات بشكل احترافى وهى

طريقة عمل Custom Property Editor

تعلم كيف تصنع خاصية من نوع Structure باستخدام Object Converter

تعلم كيفية إنشاء Custom Control Designer & Smart Tags

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

الآن أرجو من كل عضو منكم أن يطرح فكرة أداة يريد تصميمها ثم نقوم بتحديد الأولويات حسب مستوى الأداة حيث سنبدأ بالمستوى السهل حتى نرفع مستوى المبتدئين ثم نرتقى إلى المستويات الأعلى

فى انتظار اقتراحاتكم وأرجو أن أجد من يشارك ولا يموت الموضوع قبل أن يبدأ :wink:

2

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#2

معقول لا يوجد من يريد المشاركة؟!

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

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

مشاركتي في هذا الموضوع القيم تتمحور في أداة زر أو Button بنمط ويندوز فيستا. الزر يحتوي بالإضافة إلى النص المحدد عن طريق الخاصية Text نصا آخر كتعليق عن الوظيفة التي يقوم بها الزر. لهذه الأداة خاصيتان :

NoteText : تحدد أو ترجع نص التعليق الضاهر على الزر.

ShieldIcon : من نوع Boolean, يحدد أو يرجع قيمة تدل على ما إذا كانت شارة درع حماية ويندوز فيستا ظاهرة أم لا على الزر. هذه الخاصية تضهر شارة درع على الزر لإعلام المستخدم أن الوظيفة التي يقوم بها تحتاج إلى توفره على صلاحيات مدير النظام.

post-207152-1252503245_thumb.jpg

الموضوع كاملا على هذا الرابط.

تحياتي...

#4

شكرا على مبادرتك أخى محمد جزاك الله خيرا

بصراحة كنت أتوقع تفاعلاً من الأعضاء أكثر من هذا ,, على كل حال هذا أول يوم للموضوع ولو ظل الموضوع راكداً بهذا الشكل سأقوم بحذفه فليس له فائدة

لا حول ولا قوة إلا بالله

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

هناك بعض الادوات التي نحتاج لها ولا نجدها بشكل مجاني جاهز ، مثلا اداة Pane قابلة للحركة بشكل تلقائي مثل صندوق الادوات في فيجوال ستوديو ، وهناك ايضا فكرة انشاء اداة تحاكي اداة CommandLink Button في ويندوز فيستا لكن قصدي تصميم اداة بديلة من الصفر حتى تعمل تحت كل الانظمة .

اداة تجمع بين ListView و TreeView بحيث يكون لدينا اداة TreeView العناصر الفرعيه nodes فيها عبارة عن Item كالموجود في Listview ( اقصد ان يكون مثل row في DatagridView )

تصميم اداة TaskPane كالموجودة في برنامج Microsoft Access والتي يعرض فيها اسماء الجداول والنماذج وغيرها

[/وسط]

#6

هل توجد اقتراحات أخرى أم لا يوجد من يريد المشاركة سوى محمد رضى والنبهانى؟

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#7

مرحباً أخواني الكريم :)،

في الآونة الأخيرة قرأت كتاب عن تصميم والتطوير وإحدى تلك المواضيع كانت عن تطوير الـ( ListBox )، لست متأكد كثيراً إن كنت قد كتبت الـ( Code ) بشكل كامل لأنني لا أتذكره كثيراً :P لكن إن كان هناك أي من الإقتراحات فأنا جاهز :) ;) .

ProLisBoxTest.jpg

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class ProListBox

    Inherits ListBox

    [color= #000000; font-weight: bold;]Private Const ItemMargin [color= #b1b100;]As Int32 [color= #339933;]= [color= #cc66cc;]2

 

    [color= #000000; font-weight: bold;]Public Sub [color= #000000; font-weight: bold;]New[color= #009900;]([color= #009900;])

        MyBase[color= #339933;].[color= #000000; font-weight: bold;]New[color= #009900;]([color= #009900;])

        MyBase[color= #339933;].DrawMode [color= #339933;]= Windows[color= #339933;].Forms[color= #339933;].DrawMode[color= #339933;].OwnerDrawVariable

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Public Shadows Property Items[color= #009900;]([color= #009900;]) [color= #b1b100;]As ProListBoxItem[color= #009900;]([color= #009900;])

        Get

            Dim ProListBoxItems[color= #009900;]([color= #cc66cc;]0 To MyBase[color= #339933;].Items[color= #339933;].[color= #990000;]Count [color= #339933;]- [color= #cc66cc;]1[color= #009900;]) [color= #b1b100;]As ProListBoxItem

            [color= #b1b100;]For I [color= #b1b100;]As Int32 [color= #339933;]= [color= #cc66cc;]0 To UBound[color= #009900;](ProListBoxItems[color= #009900;])

                ProListBoxItems[color= #009900;](I[color= #009900;]) [color= #339933;]= DirectCast[color= #009900;](MyBase[color= #339933;].Items[color= #009900;](I[color= #009900;])[color= #339933;], ProListBoxItem[color= #009900;])

            [color= #990000;]Next I

            [color= #b1b100;]Return ProListBoxItems

        [color= #990000;]End Get

        Set[color= #009900;](ByVal value [color= #b1b100;]As ProListBoxItem[color= #009900;]([color= #009900;])[color= #009900;])

            MyBase[color= #339933;].Items[color= #339933;].Clear[color= #009900;]([color= #009900;])

            [color= #b1b100;]For [color= #990000;]Each _ProListBoxItem [color= #b1b100;]As ProListBoxItem In value

                MyBase[color= #339933;].Items[color= #339933;].Add[color= #009900;](_ProListBoxItem[color= #009900;])

            [color= #990000;]Next _ProListBoxItem

        [color= #990000;]End Set

    [color= #990000;]End Property

 

    Protected Overrides Sub OnMeasureItem[color= #009900;](ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].MeasureItemEventArgs[color= #009900;])

        MyBase[color= #339933;].OnMeasureItem[color= #009900;](E[color= #009900;])

        [color= #b1b100;]If E[color= #339933;].Index [color= #339933;]< [color= #cc66cc;]0 Or E[color= #339933;].Index [color= #339933;]>= MyBase[color= #339933;].Items[color= #339933;].[color= #990000;]Count Then [color= #990000;]Exit Sub

        Dim CurrentProListBoxItem [color= #b1b100;]As ProListBoxItem [color= #339933;]= DirectCast[color= #009900;](MyBase[color= #339933;].Items[color= #009900;](E[color= #339933;].Index[color= #009900;])[color= #339933;], ProList
BoxItem[color= #009900;])

        Dim IWidth[color= #339933;], IHeight [color= #b1b100;]As Int32

        With CurrentProListBoxItem

            [color= #b1b100;]If [color= #339933;].Image IsNot Nothing Then

                IWidth [color= #339933;]= [color= #339933;].Image[color= #339933;].Width [color= #339933;]+ [color= #cc66cc;]2 [color= #339933;]* ItemMargin

                IHeight [color= #339933;]= [color= #339933;].Image[color= #339933;].Height [color= #339933;]+ [color= #cc66cc;]2 [color= #339933;]* ItemMargin

            [color= #990000;]End [color= #b1b100;]If

            [color= #b1b100;]If [color= #339933;].Text [color= #339933;]<> [color= #0000ff;]"" Then

                Dim ItemSize [color= #b1b100;]As SizeF [color= #339933;]= E[color= #339933;].Graphics[color= #339933;].MeasureString[color= #009900;]([color= #339933;].Text[color= #339933;], [color= #339933;].Font[color= #009900;])

                Dim TxtHeight [color= #b1b100;]As Int32 [color= #339933;]= CInt[color= #009900;](ItemSize[color= #339933;].Height [color= #339933;]+ [color= #cc66cc;]2 [color= #339933;]* ItemMargin[color= #009900;])

                [color= #b1b100;]If TxtHeight [color= #339933;]> IHeight Then IHeight [color= #339933;]= TxtHeight

                IWidth [color= #339933;]+= ItemSize[color= #339933;].Width

            [color= #990000;]End [color= #b1b100;]If

            E[color= #339933;].ItemWidth [color= #339933;]= IWidth

            E[color= #339933;].ItemHeight [color= #339933;]= IHeight

        [color= #990000;]End With

    [color= #990000;]End Sub

 

    Protected Overrides Sub OnDrawItem[color= #009900;](ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].DrawItemEventArgs[color= #009900;])

        MyBase[color= #339933;].OnDrawItem[color= #009900;](E[color= #009900;])

        [color= #b1b100;]If E[color= #339933;].Index [color= #339933;]< [color= #cc66cc;]0 Or E[color= #339933;].Index [color= #339933;]>= MyBase[color= #339933;].Items[color= #339933;].[color= #990000;]Count Then [color= #990000;]Exit Sub

        Dim CurrentProListBoxItem [color= #b1b100;]As ProListBoxItem [color= #339933;]= DirectCast[color= #009900;](MyBase[color= #339933;].Items[color= #009900;](E[color= #339933;].Index[color= #009900;])[color= #339933;], ProList
BoxItem[color= #009900;])

        E[color= #339933;].DrawBackground[color= #009900;]([color= #009900;])

        [color= #b1b100;]If SelectedIndex [color= #339933;]= E[color= #339933;].Index Then E[color= #339933;].DrawFocusRectangle[color= #009900;]([color= #009900;])

        Dim X [color= #b1b100;]As Int32 [color= #339933;]= ItemMargin

        With CurrentProListBoxItem

            [color= #b1b100;]If [color= #339933;].Image IsNot Nothing Then

                Dim Y [color= #b1b100;]As Integer [color= #339933;]= [color= #990000;]_

                E[color= #339933;].Bounds[color= #339933;].Top [color= #339933;]+ [color= #009900;](E[color= #339933;].Bounds[color= #339933;].Height [color= #339933;]- [color= #339933;].Image[color= #339933;].Height[color= #009900;])  [color= #cc66cc;]2

                E[color= #339933;].Graphics[color= #339933;].DrawImage[color= #009900;]([color= #339933;].Image[color= #339933;], X[color= #339933;], Y[color= #339933;], [color= #339933;].Image[color= #339933;].Width[color= #339933;], [color= #339933;].Image[color= #339933;].Height[color= #009900;])

                X [color= #339933;]= [color= #339933;].Image[color= #339933;].Width [color= #339933;]+ [color= #cc66cc;]2 [color= #339933;]* ItemMargin

            [color= #990000;]End [color= #b1b100;]If

            [color= #b1b100;]If [color= #339933;].Text [color= #339933;]<> [color= #0000ff;]"" Then

                Dim ItemSize [color= #b1b100;]As SizeF [color= #339933;]= E[color= #339933;].Graphics[color= #339933;].MeasureString[color= #009900;]([color= #339933;].Text[color= #339933;], [color= #339933;].Font[color= #009900;])

                Dim Y [color= #b1b100;]As Integer [color= #339933;]= [color= #990000;]_

                E[color= #339933;].Bounds[color= #339933;].Top [color= #339933;]+ CInt[color= #009900;]([color= #009900;](E[color= #339933;].Bounds[color= #339933;].Height [color= #339933;]- ItemSize[color= #339933;].Height[color= #009900;]) [color= #339933;]/ [color= #cc66cc;]2[color= #009900;])

                Using the_brush [color= #b1b100;]As [color= #000000; font-weight: bold;]New SolidBrush[color= #009900;]([color= #339933;].ForeColor[color= #009900;])

                    E[color= #339933;].Graphics[color= #339933;].DrawString[color= #009900;]([color= #339933;].Text[color= #339933;], [color= #339933;].Font[color= #339933;], the_brush[color= #339933;], X[color= #339933;], Y[color= #009900;])

                [color= #990000;]End Using

            [color= #990000;]End [color= #b1b100;]If

        [color= #990000;]End With

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

[color= #339933;]<Serializable[color= #009900;]([color= #009900;])[color= #339933;]> [color= #990000;]_

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class ProListBoxItem

[color= #666666; font-style: italic;]#Region "Variables"

    [color= #000000; font-weight: bold;]Private _Text [color= #b1b100;]As String [color= #339933;]= String[color= #339933;].[color= #990000;]Empty

    [color= #000000; font-weight: bold;]Private _ForeColor [color= #b1b100;]As Color [color= #339933;]= Drawing[color= #339933;].SystemColors[color= #339933;].ControlText

    [color= #000000; font-weight: bold;]Private _Font [color= #b1b100;]As Font [color= #339933;]= [color= #000000; font-weight: bold;]New Font[color= #009900;]([color= #0000ff;]"Arial"[color= #339933;], [color= #cc66cc;]12[color= #339933;], [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]3[color= #009900;])

    [color= #000000; font-weight: bold;]Private _Image [color= #b1b100;]As Image

[color= #666666; font-style: italic;]#End Region

 

[color= #666666; font-style: italic;]#Region "Properties"

    [color= #000000; font-weight: bold;]Public Property Text[color= #009900;]([color= #009900;]) [color= #b1b100;]As String

        Get

            [color= #b1b100;]Return _Text

        [color= #990000;]End Get

        Set[color= #009900;](ByVal value [color= #b1b100;]As String[color= #009900;])

            _Text [color= #339933;]= value

        [color= #990000;]End Set

    [color= #990000;]End Property

 

    [color= #000000; font-weight: bold;]Public Property ForeColor[color= #009900;]([color= #009900;]) [color= #b1b100;]As Color

        Get

            [color= #b1b100;]Return _ForeColor

        [color= #990000;]End Get

        Set[color= #009900;](ByVal value [color= #b1b100;]As Color[color= #009900;])

            _ForeColor [color= #339933;]= value

        [color= #990000;]End Set

    [color= #990000;]End Property

 

    [color= #000000; font-weight: bold;]Public Property Font[color= #009900;]([color= #009900;]) [color= #b1b100;]As Font

        Get

            [color= #b1b100;]Return _Font

        [color= #990000;]End Get

        Set[color= #009900;](ByVal value [color= #b1b100;]As Font[color= #009900;])

            _Font [color= #339933;]= value

        [color= #990000;]End Set

    [color= #990000;]End Property

 

    [color= #000000; font-weight: bold;]Public Property Image[color= #009900;]([color= #009900;]) [color= #b1b100;]As Image

        Get

            [color= #b1b100;]Return _Image

        [color= #990000;]End Get

        Set[color= #009900;](ByVal value [color= #b1b100;]As Image[color= #009900;])

            _Image [color= #339933;]= value[color= #339933;].GetThumbnailImage[color= #009900;]([color= #cc66cc;]32[color= #339933;], [color= #cc66cc;]32[color= #339933;], Nothing[color= #339933;], Nothing[color= #009900;])

        [color= #990000;]End Set

    [color= #990000;]End Property

[color= #666666; font-style: italic;]#End Region

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق :) .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#8
النبهاني كتب:
هناك بعض الادوات التي نحتاج لها ولا نجدها بشكل مجاني جاهز ، مثلا اداة Pane قابلة للحركة بشكل تلقائي مثل صندوق الادوات في فيجوال ستوديو ، وهناك ايضا فكرة انشاء اداة تحاكي اداة CommandLink Button في ويندوز فيستا لكن قصدي تصميم اداة بديلة من الصفر حتى تعمل تحت كل الانظمة .

اداة تجمع بين ListView و TreeView بحيث يكون لدينا اداة TreeView العناصر الفرعيه nodes فيها عبارة عن Item كالموجود في Listview ( اقصد ان يكون مثل row في DatagridView )

تصميم اداة TaskPane كالموجودة في برنامج Microsoft Access والتي يعرض فيها اسماء الجداول والنماذج وغيرها

مرحباً أخي الكريم :)،

مع القليل من البحث يمكنك أن تجد شيء مثل هذا ( Magic Library Docking Manager Designer ) مجاني وبه العديد من الأمثلة على جميع عناصره .

بالتوفيق :) .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#9

لقد أصبت بالإحباط :S :S

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#10
GHOST2010 كتب:
لقد أصبت بالإحباط :S :S

لماذا ؟!

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#11

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

===============

اريد ان شارك باحد الخواص العجيبة التي لم توجد من قبل في فيجوال بيسك 6 وهي خاصية ownerDraw وهذه الخاصية وظيفتها تفعيل الرسم الداخلي للاداة نفس مشاركة الاخ بشار فهذه الخاصية عند تفعيلها يستجيب الحدث المرتبط بها وهو الحدث itemdraw كماهو موجود في الكود الذي وضعه الاخ بشار .

Protected Overrides Sub OnDrawItem(ByVal E As System.Windows.Forms.DrawItemEventArgs)		MyBase.OnDrawItem(E)		If E.Index < 0 Or E.Index >= MyBase.Items.Count Then Exit Sub		Dim CurrentProListBoxItem As ProListBoxItem = DirectCast(MyBase.Items(E.Index), ProListBoxItem)		E.DrawBackground()		If SelectedIndex = E.Index Then E.DrawFocusRectangle()		Dim X As Int32 = ItemMargin		With CurrentProListBoxItem			If .Image IsNot Nothing Then				Dim Y As Integer = _				E.Bounds.Top + (E.Bounds.Height - .Image.Height) \ 2				E.Graphics.DrawImage(.Image, X, Y, .Image.Width, .Image.Height)				X = .Image.Width + 2 * ItemMargin			End If			If .Text <> "" Then				Dim ItemSize As SizeF = E.Graphics.MeasureString(.Text, .Font)				Dim Y As Integer = _				E.Bounds.Top + CInt((E.Bounds.Height - ItemSize.Height) / 2)				Using the_brush As New SolidBrush(.ForeColor)					E.Graphics.DrawString(.Text, .Font, the_brush, X, Y)				End Using			End If		End With	End Sub

ففي هذا الكود يمكننا استخدام امكانيات فثة الرسم Graphics بكل سهولة ورسم مانريده في داخل الاداة سواء رسم مربعات الالوان او رسم صورة او غير ذلك

أنا الرجل الضرب الذي تعرفونه***خشاش كرأس الحية المتوقد

لوكنت وغلاً في الرجال لضرني**** حسن جرائتي ومقتدي

منتديات طريق الهداية

#12

بالفعل اخي بشار تلك الاداة رائعه وهي اداة Pane متحركة مثالية

اذا نلغي تلك الاداة من القائمة وتبقى باقي الادوات !

[/وسط]

#13

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

ما رأيكم في عمل أداة رسم بياني (chart) على شكل دائري .... حيث يقوم المبرمج بتقسيم الدائرة إلى عدد معين من المناطق و إعطاء كل منطقة اللون المناسب و العنوان ......

المشكلة أنها تحتاج إلى الرسم بGDI+......ما رأيكم في هذه الفكرة؟؟؟

#14
بهاء صلاح الدين فراج كتب:
السلام عليكــم ورحمـة الله وبركاتــه ،،

ما رأيكم في عمل أداة رسم بياني (chart) على شكل دائري .... حيث يقوم المبرمج بتقسيم الدائرة إلى عدد معين من المناطق و إعطاء كل منطقة اللون المناسب و العنوان ......

المشكلة أنها تحتاج إلى الرسم بGDI+......ما رأيكم في هذه الفكرة؟؟؟

فكرة جميلة :) ;) --> Under Programming :)

ليس هناك مشاكل مع الـ( +GDI ) عالم أخر :P

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#15
Bashar Rabat كتب:
لماذا ؟!

كنت أتوقع تفاعلاً أكثر من هذا :wacko:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#16
GHOST2010 كتب:
كنت أتوقع تفاعلاً أكثر من هذا :wacko:

أعلم أن المشاركات ليس كثيرة, لكن بعض من الأعضاء بدء يهتم بالموضوع وأعتقد أن البعض منهم يحتاج أن يقرأ ويجرب ( Code ) جديد ليحاول جهده في عمل شيء مماثل أو أفضل منه ;)

لنأمل بيوم غد :P ;)

_____________________________________________

PieChart.jpg

PieChart.zip (19 KB)

ليس بكامل !!, علينا أن نطوره بشكل أفضل من هذا ;)

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#17

Advanced Scroll Bar - Horizontal

صورة عن :

SCBar.jpg

المشروع :

AdvancedScrollBar.zip (20 KB)

بالتوفيق :) .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 14 سبتمبر 2009 في 21:18

1

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#18

Rating Bar

صورة عن :

RTBar.jpg

RatingBar.zip (20 KB)

بالتوفيق :)

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#19

جزاك الله خيرا أخى بشار على حماسك وتفاعلك

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#20
GHOST2010 كتب:
جزاك الله خيرا أخى بشار على حماسك وتفاعلك

شكراً لك أنت على إنشاء هذه الأفكار الجميلة ;) ( وجدت شيئاً جديداً أفعلة بسعادة :P )

بالمناسبة ( مبروك × 99999999999999999999999999999999999999 ) ;)

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#21
اقتباس
بالمناسبة ( مبروك × 99999999999999999999999999999999999999 )

:hmm: :hmm:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#22
GHOST2010 كتب:
:hmm: :hmm:

حاجة كده قرأت عنها في ( مجتمع الفريق العربي ) يعني مع تلميح ( اللحمة :P ) :lol:

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#23

أنا شكيت فى كده فعلا ,, عقبالك :D

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#24
GHOST2010 كتب:
أنا شكيت فى كده فعلا ,, عقبالك :D

الله يخليك ويهنيك :) عقبال مانشوفك بابا ;)

Ya Casper !! 2nta Fen Ya Bni :lol:

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#25

Vista Loading Cursor :) - The way it works - Don't be shocked, it's just an idea :P ;)

VistaLoadingCursor.zip (16 KB)

Enjoy ;)

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة