تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تجميل شكل القوائم ؟
#13
الف شكر اخي
Sooriaty على اجابتك

بارك الله فيك
[/align]

تم تعديل الكود على النحو المذكور اعلاه

[align=left]
كود :
Private Sub AllSeparators(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ToolStripMenuItem3.Paint, ToolStripMenuItem1.Paint, ToolStripMenuItem4.Paint, ToolStripMenuItem2.Paint
        ''معرفة الفاصل  الذي يتم رسمه حاليا
        Dim CurrentToolStripSeparator As ToolStripSeparator = DirectCast(sender, ToolStripSeparator)

        ''تعبئة الخلفية باللون المطلوب
        e.Graphics.FillRectangle(New System.Drawing.SolidBrush(CurrentToolStripSeparator.BackColor), e.ClipRectangle)

        ToolStripMenuItem4.BackColor = System.Drawing.ColorTranslator.FromHtml("#C0FFC0")
        ToolStripMenuItem4.ForeColor = Color.Black


        ToolStripMenuItem2.BackColor = System.Drawing.ColorTranslator.FromHtml("#C0FFC0")
        ToolStripMenuItem2.ForeColor = Color.Black

        ToolStripMenuItem3.BackColor = System.Drawing.ColorTranslator.FromHtml("#C0FFC0")
        ToolStripMenuItem3.ForeColor = Color.Black

        ToolStripMenuItem1.BackColor = System.Drawing.ColorTranslator.FromHtml("#C0FFC0")
        ToolStripMenuItem1.ForeColor = Color.Black

        'تحديد أبعاد  الفاصل
        Dim Y As Integer = CInt(e.ClipRectangle.Height / 2)
        Dim X1 As Integer = IIf(CurrentToolStripSeparator.RightToLeft = Windows.Forms.RightToLeft.Yes, 0, 30)
        Dim X2 As Integer = IIf(CurrentToolStripSeparator.RightToLeft = Windows.Forms.RightToLeft.Yes, e.ClipRectangle.Width - 30, e.ClipRectangle.Width)

        ''رسم الفاصل
        e.Graphics.DrawLine(New Pen(CurrentToolStripSeparator.ForeColor), X1, Y, X2, Y)


    End Sub[/align]

والحمد لله نجح الامر

الف شكر

شكرا اخي
الشاكي لله على اجابتك
إقتباس :حسب ماقلت انك اضفت نوافذ منسدلة اخرى فلازم تضيف handle . اما بواسطة الطريقة الي فوق او بالكود التالي :-

إقتباس :AddHandler event, AddressOf eventhandler

بصراحة لم افهم كيفية تطبيق طريقتك

ممكن ان تعدل على المثال التالي المرفق
حتى تتضح الصورة اكثر، ونتعلم اكثر

بارك الله فيك


الملفات المرفقة
.zip   WindowsApplication1_2.zip (الحجم : 56.54 ك ب / التحميلات : 107)
الرد }}}
تم الشكر بواسطة: الشاكي لله


الردود في هذا الموضوع
تجميل شكل القوائم ؟ - بواسطة kafi2030 - 28-11-13, 01:14 AM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 28-11-13, 12:00 PM
RE: تجميل شكل القوائم ؟ - بواسطة ali.alfoly - 28-11-13, 12:38 PM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 29-11-13, 12:14 AM
RE: تجميل شكل القوائم ؟ - بواسطة ali.alfoly - 29-11-13, 11:06 AM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 05-12-13, 12:52 AM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 09-12-13, 02:20 AM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 09-12-13, 03:14 PM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 09-12-13, 11:02 PM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 09-12-13, 11:35 PM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 09-12-13, 11:51 PM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 10-12-13, 12:46 AM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 10-12-13, 09:48 AM
RE: تجميل شكل القوائم ؟ - بواسطة kafi2030 - 11-12-13, 01:04 AM
RE: تجميل شكل القوائم ؟ - بواسطة sooriaty03 - 11-12-13, 04:14 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية إظهار القوائم الغير مختارة في الليست بوكس أمجد وضاح 2 1,963 08-01-20, 11:39 PM
آخر رد: أمجد وضاح
  القوائم الجانبية السيد الجوهري 0 1,147 12-03-18, 11:54 AM
آخر رد: السيد الجوهري
  [سؤال] تجميل شكل الفورم بطريقة معينة Mido9 2 4,319 11-10-13, 05:18 AM
آخر رد: Mido9
  كيف السبيل الى تجميل واجهة البرنامج؟ kafi 6 3,770 23-07-13, 11:04 PM
آخر رد: programmer

التنقل السريع :


يقوم بقرائة الموضوع: