+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [مقال] مين يصدق ان هذه ListBox (/showthread.php?tid=2495)
الصفحات:
1
2
مين يصدق ان هذه ListBox - ali.alfoly - 07-04-14
السلام عليكم
صورة
الكود
كود :
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ارجو الدعاء لي بانهاء مشروعي
او قولو كما تقول امي (ربنا ينولك ما انتا قاصد )
RE: مين يصدق ان هذه ListBox - سعود - 08-04-14
بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه
RE: مين يصدق ان هذه ListBox - hoob computer - 08-04-14
السلام عليكم أخي علي,
مبدع كالعادة
الله يوفقك و ينولك ما أنت قاصد
بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.
كانت هذه ملاحظات بسيطة من أخوكم الصغير
و أرجوا أن تكون مقبولة من قبلكم السلام عليكم
RE: مين يصدق ان هذه ListBox - ali.alfoly - 09-04-14
(08-04-14, 03:36 AM)سعود كتب : بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه
والله اخي سعود انا لست محترف في ذلك
ولاكني لا انكر اني اعرف الكثير
ولا اعلم مصدر غني بالمعلومات في هذه الجزئية
وافتقدنا المصدر الرئيسي لذلك وهما الاخ ابو ايهاب والاخ عبد الغفور (سوريتي)
لا اعلم والله انا حزين جدا جدا الله المستعان واقول كما قال ابو يوسف (فَصَبْرٌ جَمِيلٌ وَاللّهُ الْمُسْتَعَانُ عَلَى مَا تَصِفُونَ)
(08-04-14, 09:54 AM)hoob computer كتب : السلام عليكم أخي علي,
مبدع كالعادة
الله يوفقك و ينولك ما أنت قاصد
بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.
كانت هذه ملاحظات بسيطة من أخوكم الصغير
السلام عليكم
وعليكم السلام ورحمة الله
اسئل الله تعالي ان يبارك فيك
فكرة جميلة جدا انا اعرف موقع يبيع مجموعة ادوات ب 2000 دولار الامر ممتاز وانا معك في ذلك
وبالنسبة للملاحظة ليست مقبولة فقط بل هي ممتازة وسامحني الوقت ضيق جدا الان حتي اني مشتت في متابعة مواضيع المنتدي
خير قريب باذن الله تعالي
RE: مين يصدق ان هذه ListBox - hoob computer - 09-04-14
(09-04-14, 04:46 AM)ali.alfoly كتب :(08-04-14, 09:54 AM)hoob computer كتب : السلام عليكم أخي علي,
مبدع كالعادة
الله يوفقك و ينولك ما أنت قاصد
بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.
كانت هذه ملاحظات بسيطة من أخوكم الصغير
السلام عليكم
وعليكم السلام ورحمة الله
اسئل الله تعالي ان يبارك فيك
فكرة جميلة جدا انا اعرف موقع يبيع مجموعة ادوات ب 2000 دولار الامر ممتاز وانا معك في ذلك
وبالنسبة للملاحظة ليست مقبولة فقط بل هي ممتازة وسامحني الوقت ضيق جدا الان حتي اني مشتت في متابعة مواضيع المنتدي
خير قريب باذن الله تعالي
أشكرك أخي العزيز (علي) على تقبل فكرة بيع الأدوات و الملاحظات
الله يوفقك ...
السلام عليكم
RE: مين يصدق ان هذه ListBox - Abu Ehab - 09-04-14
السلام عليكم
على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير
يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..
الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..
أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..
انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .
RE: مين يصدق ان هذه ListBox - ali.alfoly - 16-04-14
السلام عليكم
حبيبي ابو رائد
جزاك الله خيرا علي هذا الكلام النابع من خبرة وتجارب فعلا كلامك بيوحشني
ولي تعليق بسيط
انا لا اصنع الاداة في وقت طويل انا من الناس الي مقتنع بشئ واحد وهو ان ابتدئ من حيث انتهي الاخرون
انظر الكود السابق لا يتعدي السطرين كتبته في اقل من 5 دقائق
لاني قمت باعدة رسم الليست بوكس ولم اقم بتصميم ليست بوكس خاص
واجمل ادوات في الدنيا ادوات ميركرو سوفت انا عملت طويلا بلغة LUE القمر بالاسبانية هههه وتعاملت مع كثير من الادوات
ملخص الكلام اجمل وقت يستحق التعب فيه وقت كتابة الكود
كود قوي منقح + بساطة في المظهر =
تحياتي
RE: مين يصدق ان هذه ListBox - shwehdi4pc - 30-06-14
مشكور يا أخوي لكن عندي سؤال المتغيرات Chck_yes And Chck_no هل ه متغيرات من نوع معين أم إيش بالزبط وشكرا
RE: مين يصدق ان هذه ListBox - Omar Mekkawy - 04-07-14
ههههههه والله جميلة 
(09-04-14, 01:25 PM)Abu Ehab كتب : السلام عليكم
على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير
يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..
الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..
أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..
انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .
أخوي أبو إيهاب أنا كانت في فكرة في رأسي وهي دمج السجلات المتشابهة أو ذات صنف واحد في المخزن بمعنى مثلاً لقيت سجلين من نوع لحمة في الجدول بيتم جمع السجلين والكميات وحذف احد السجلين
تصدق ما اخدت في ايدي 3 ساعات وعملتها كنت بخطط مثل اللي راح يعمل معركة حربية وفعلاً أخدت وقت كبير حبتين مني في التفكير ههههههههههههه
تصدق ما اخدت في ايدي 3 ساعات وعملتها كنت بخطط مثل اللي راح يعمل معركة حربية وفعلاً أخدت وقت كبير حبتين مني في التفكير ههههههههههههه
RE: مين يصدق ان هذه ListBox - mohmedhosen - 12-07-14
تصميم اداة يمكن ان يختصر لوقت ايضا عندما تستخدمها في مشاريع لاحقة وتكون شيء مميز لمشاريعك
لكنها تحتاج الى خيال خصب لان مايكرو سوفت قالت كل شيء تقرياً