المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة :
29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
07-04-14, 05:38 PM
(آخر تعديل لهذه المشاركة : 07-04-14, 05:57 PM {2} بواسطة Sajad.)
السلام عليكم
صورة
الكود
كود :
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
ارجو الدعاء لي بانهاء مشروعي
او قولو كما تقول امي (ربنا ينولك ما انتا قاصد )
تم الشكر بواسطة: Sajad , tarek , سلوان البهادلي , سعود , hoob computer , ربيع , a_almisery , مالكـ , rinawi , الوليد ☺ , صبري زينوبي , صبري زينوبي , CLARO , ابو محمد محمد محمد
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
السلام عليكم أخي علي,
مبدع كالعادة
الله يوفقك و ينولك ما أنت قاصد
بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.
كانت هذه ملاحظات بسيطة من أخوكم الصغير و أرجوا أن تكون مقبولة من قبلكم
السلام عليكم
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة :
29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
(08-04-14, 03:36 AM)سعود كتب : بارك الله فيك
انا اتمنى اعرف ابني ادوات من الصفر واتمنى اعرف اخصص ما اقوم ببنائه
والله اخي سعود انا لست محترف في ذلك
ولاكني لا انكر اني اعرف الكثير
ولا اعلم مصدر غني بالمعلومات في هذه الجزئية
وافتقدنا المصدر الرئيسي لذلك وهما الاخ ابو ايهاب والاخ عبد الغفور (سوريتي)
لا اعلم والله انا حزين جدا جدا الله المستعان واقول كما قال ابو يوسف (فَصَبْرٌ جَمِيلٌ وَاللّهُ الْمُسْتَعَانُ عَلَى مَا تَصِفُونَ)
(08-04-14, 09:54 AM)hoob computer كتب : السلام عليكم أخي علي,
مبدع كالعادة
الله يوفقك و ينولك ما أنت قاصد
بالمناسبة, لو أن كل عضو في المنتدى يقوم بتصميم أدوات كهذه, علينا نحن (العرب) جمعها و من ثم بيعها للطرف الأخر (الأجانب) من أجل الاستفادة منها.
أو هنالك موقع إسمه (github) و على كل عضو في المنتدى الإطلاع عليه فهو خاص بالمبرمجين.
و كذلك, عند تصميم الأداة يجب على العضو توضيح تأثير الأداة على أداء و سرعة البرنامج.
كانت هذه ملاحظات بسيطة من أخوكم الصغير و أرجوا أن تكون مقبولة من قبلكم
السلام عليكم
وعليكم السلام ورحمة الله
اسئل الله تعالي ان يبارك فيك
فكرة جميلة جدا انا اعرف موقع يبيع مجموعة ادوات ب 2000 دولار الامر ممتاز وانا معك في ذلك
وبالنسبة للملاحظة ليست مقبولة فقط بل هي ممتازة وسامحني الوقت ضيق جدا الان حتي اني مشتت في متابعة مواضيع المنتدي
خير قريب باذن الله تعالي
المشاركات : 506
المواضيع 39
الإنتساب : Sep 2013
السمعة :
14
الشكر: 715
تم شكره 578 مرات في 220 مشاركات
المشاركات : 749
المواضيع 127
الإنتساب : Sep 2013
السمعة :
105
الشكر: 924
تم شكره 5271 مرات في 453 مشاركات
السلام عليكم
على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير
يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..
الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..
أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..
انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .
Abu Ehab : Microsoft Partner & Systems Developer
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة :
29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
السلام عليكم
حبيبي ابو رائد
جزاك الله خيرا علي هذا الكلام النابع من خبرة وتجارب فعلا كلامك بيوحشني
ولي تعليق بسيط
انا لا اصنع الاداة في وقت طويل انا من الناس الي مقتنع بشئ واحد وهو ان ابتدئ من حيث انتهي الاخرون
انظر الكود السابق لا يتعدي السطرين كتبته في اقل من 5 دقائق
لاني قمت باعدة رسم الليست بوكس ولم اقم بتصميم ليست بوكس خاص
واجمل ادوات في الدنيا ادوات ميركرو سوفت انا عملت طويلا بلغة LUE القمر بالاسبانية هههه وتعاملت مع كثير من الادوات
ملخص الكلام اجمل وقت يستحق التعب فيه وقت كتابة الكود
كود قوي منقح + بساطة في المظهر =
تحياتي
المشاركات : 100
المواضيع 15
الإنتساب : Jun 2014
السمعة :
5
الشكر: 7
تم شكره 228 مرات في 23 مشاركات
مشكور يا أخوي لكن عندي سؤال المتغيرات Chck_yes And Chck_no هل ه متغيرات من نوع معين أم إيش بالزبط وشكرا
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة :
22
الشكر: 424
تم شكره 779 مرات في 162 مشاركات
04-07-14, 08:10 PM
(آخر تعديل لهذه المشاركة : 04-07-14, 08:11 PM {2} بواسطة Omar Mekkawy.)
ههههههه والله جميلة
(09-04-14, 01:25 PM)Abu Ehab كتب : السلام عليكم
على فكرة يا أخ على : أنت خامة جيده لكن محتاج تطوير
يعني أقول لك على حاجة :
صار لي مبرمج مش أقل من 24 سنه وتعلمت 11 لغة لوحدي وعملت فيها العجب وعملت برامج وكتبت أكواد بعدد شعر راسي
لكن :
لما دخلت مجال العمل الأحترافي ( { أسسنا شركة تتعامل مع الزبائن وتصنع أنظمة بمقابل مادي }) ,, الموضوع أختلف كليا
في كل النواحي ,,, طبعا الناس بتطلب أنظمة معقده والشركة بتقبلها
وبيتم تكليفي بجزء من النظام
وللامانه خلال العمل بتواجه صعوبات كثير ولازم علشان تحل المشاكل لازم وضروري جدا يكون عندك خيال برمجي واسع
والأكواد والطريقة التى بنستخدمها مش موجوده على الأنترنت ولا حتى في المنتديات ,,, هى أختراع خاص بنا ..
الخلاصة :
أنت علشان تتطور لازم تقوي قلبك وتغامر وتوسع فكرك وتقرأ كثير وتاخد دورات من الميكروسوفت وحاول البحث عن الفكرة قبل العمل..
أما مسئلة انك تضيع وقت كبير في صناعة أداة ,,, فهذا هدر للوقت وهدر للطاقة ..
انا صممت 12 أداة في أقل من شهرين وما بستخدمها ,, انا بستخدم DevExpress 2013
بس خلاص .
أخوي أبو إيهاب أنا كانت في فكرة في رأسي وهي دمج السجلات المتشابهة أو ذات صنف واحد في المخزن بمعنى مثلاً لقيت سجلين من نوع لحمة في الجدول بيتم جمع السجلين والكميات وحذف احد السجلين
تصدق ما اخدت في ايدي 3 ساعات وعملتها كنت بخطط مثل اللي راح يعمل معركة حربية وفعلاً أخدت وقت كبير حبتين مني في التفكير ههههههههههههه
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
المشاركات : 11
المواضيع 4
الإنتساب : Apr 2014
السمعة :
0
الشكر: 17
تم شكره 16 مرات في 1 مشاركات
تصميم اداة يمكن ان يختصر لوقت ايضا عندما تستخدمها في مشاريع لاحقة وتكون شيء مميز لمشاريعك
لكنها تحتاج الى خيال خصب لان مايكرو سوفت قالت كل شيء تقرياً
|