منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مين يصدق ان هذه ListBox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم

صورة



الكود

كود :
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With Me.ListBox1
            .DrawMode = DrawMode.OwnerDrawVariable
            .ItemHeight = 45
            .Font = New Font("Tahoma", 9)
            .SelectionMode = SelectionMode.MultiSimple
        End With
    End Sub

    Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem

        '- رسم مستطيل بلون الخلفية للرسم عليه للرسم عليه
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(Me.ListBox1.BackColor), e.Bounds)
        '- رسم المستطيل الملون
        e.Graphics.DrawRectangle(New Pen(Me.Get_Color_Bordr(e.BackColor), 1), e.Bounds.X + 2, e.Bounds.Y + 2, e.Bounds.Width - 5, e.Bounds.Height - 3)
        '- النص الاول
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), _
            e.Font, Brushes.Black, e.Bounds.X + 5, e.Bounds.Y + 7, StringFormat.GenericDefault)
        '- النص الثاني
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), _
          New Font(e.Font.Name, e.Font.Size - 1), Brushes.Gray, e.Bounds.X + 5, e.Bounds.Y + 24, StringFormat.GenericDefault)
        '- رسم ايقونة حالة التحديد
        e.Graphics.DrawImage(Me.Get_Img(e.BackColor), e.Bounds.X + e.Bounds.Width - 20, e.Bounds.Y + 7)

    End Sub

    Private Function Get_Img(clr As Color) As Image
        If clr <> SystemColors.Window Then Return My.Resources.Chck_Yes
        Return My.Resources.Chck_No
    End Function

    Private Function Get_Color_Bordr(clr As Color) As Color
        If clr <> SystemColors.Window Then Return clr
        Return SystemColors.Control
    End Function

End Class

ارجو الدعاء لي بانهاء مشروعي
او قولو كما تقول امي (ربنا ينولك ما انتا قاصد ) Wink
بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه
السلام عليكم أخي علي,

مبدع كالعادة Smile
الله يوفقك و ينولك ما أنت قاصد Wink

بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.

كانت هذه ملاحظات بسيطة من أخوكم الصغير Smile و أرجوا أن تكون مقبولة من قبلكم Smile


السلام عليكم
(08-04-14, 03:36 AM)سعود كتب : [ -> ]بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه

والله اخي سعود انا لست محترف في ذلك
ولاكني لا انكر اني اعرف الكثير
ولا اعلم مصدر غني بالمعلومات في هذه الجزئية
وافتقدنا المصدر الرئيسي لذلك وهما الاخ ابو ايهاب والاخ عبد الغفور (سوريتي)
لا اعلم والله انا حزين جدا جدا الله المستعان واقول كما قال ابو يوسف (فَصَبْرٌ جَمِيلٌ وَاللّهُ الْمُسْتَعَانُ عَلَى مَا تَصِفُونَ)

(08-04-14, 09:54 AM)hoob computer كتب : [ -> ]السلام عليكم أخي علي,

مبدع كالعادة Smile
الله يوفقك و ينولك ما أنت قاصد Wink

بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.

كانت هذه ملاحظات بسيطة من أخوكم الصغير Smile و أرجوا أن تكون مقبولة من قبلكم Smile


السلام عليكم

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

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

وبالنسبة للملاحظة ليست مقبولة فقط بل هي ممتازة وسامحني الوقت ضيق جدا الان حتي اني مشتت في متابعة مواضيع المنتدي

خير قريب باذن الله تعالي
(09-04-14, 04:46 AM)ali.alfoly كتب : [ -> ]
(08-04-14, 09:54 AM)hoob computer كتب : [ -> ]السلام عليكم أخي علي,

مبدع كالعادة Smile
الله يوفقك و ينولك ما أنت قاصد Wink

بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.

كانت هذه ملاحظات بسيطة من أخوكم الصغير Smile و أرجوا أن تكون مقبولة من قبلكم Smile


السلام عليكم

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

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

وبالنسبة للملاحظة ليست مقبولة فقط بل هي ممتازة وسامحني الوقت ضيق جدا الان حتي اني مشتت في متابعة مواضيع المنتدي

خير قريب باذن الله تعالي

أشكرك أخي العزيز (علي) على تقبل فكرة بيع الأدوات و الملاحظات Smile
الله يوفقك ...


السلام عليكم
السلام عليكم

على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير

يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..

الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..

أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..

انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .
السلام عليكم
حبيبي ابو رائد
جزاك الله خيرا علي هذا الكلام النابع من خبرة وتجارب فعلا كلامك بيوحشني
ولي تعليق بسيط
انا لا اصنع الاداة في وقت طويل انا من الناس الي مقتنع بشئ واحد وهو ان ابتدئ من حيث انتهي الاخرون
انظر الكود السابق لا يتعدي السطرين كتبته في اقل من 5 دقائق
لاني قمت باعدة رسم الليست بوكس ولم اقم بتصميم ليست بوكس خاص
واجمل ادوات في الدنيا ادوات ميركرو سوفت انا عملت طويلا بلغة LUE القمر بالاسبانية هههه وتعاملت مع كثير من الادوات
ملخص الكلام اجمل وقت يستحق التعب فيه وقت كتابة الكود
كود قوي منقح + بساطة في المظهر = Wink
تحياتي
مشكور يا أخوي لكن عندي سؤال المتغيرات Chck_yes And Chck_no هل ه متغيرات من نوع معين أم إيش بالزبط وشكرا
ههههههه والله جميلة Big Grin


(09-04-14, 01:25 PM)Abu Ehab كتب : [ -> ]السلام عليكم

على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير

يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..

الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..

أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..

انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .

أخوي أبو إيهاب أنا كانت في فكرة في رأسي وهي دمج السجلات المتشابهة أو ذات صنف واحد في المخزن بمعنى مثلاً لقيت سجلين من نوع لحمة في الجدول بيتم جمع السجلين والكميات وحذف احد السجلين Big Grin

تصدق ما اخدت في ايدي 3 ساعات وعملتها كنت بخطط مثل اللي راح يعمل معركة حربية وفعلاً أخدت وقت كبير حبتين مني في التفكير ههههههههههههه
Smile
تصميم اداة يمكن ان يختصر لوقت ايضا عندما تستخدمها في مشاريع لاحقة وتكون شيء مميز لمشاريعك
لكنها تحتاج الى خيال خصب لان مايكرو سوفت قالت كل شيء تقرياً
الصفحات : 1 2