تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اجعل صف في listbox ملون
#1
السلام عليكم
كيف ممك اجعل صف ملون من لست بوكس
وشكرا

مع العلم انا وضعت
كل الاحتمالات لم تنفع بشئ
.listbox.item.add(textbox1.backcolor=color.red)
الرد
تم الشكر بواسطة:
#2
يجب عليك أن تتعامل مع الحدث ListBox_DrawItem
و ترسم Item باللون المطلوب
لاتنسي تغيير DrawMode Property

في اللينك التالي ستجد فكرة تغيير اللون بناء علي Index
اللينك


عموما: الحل المثالي انك تقوم ببناء اداة جديدة يتم توريثها من الأداة ListBox و تعيد عملية الرسم في الحدث DrawItem

هذا مثال لكيفية بناء ليست بوكس بسيط و يمكنك التعديل عليه و تطويره

PHP كود :
Public Class BoxList
    Inherits ListBox

    Public Sub 
New()
 
       Me.DrawMode DrawMode.OwnerDrawFixed
        Me
.ItemHeight 16
    End Sub

    Protected Overrides Sub OnDrawItem
(As DrawItemEventArgs)
 
       e.DrawBackground()
 
       e.DrawFocusRectangle()
 
       ' ****************************************************
        ' 
يمكنك التحكم في الون من الكود التالي
        Dim limeColor 
As Color Color.DarkBlue
        
' يمكنك التحكم في مكان رسم التكست من هنا
        Dim indent As Single = 5
        ' 
****************************************************

 
       If e.Index 0 OrElse e.Index >= MyBase.Items.Count Then
            e
.Graphics.DrawString(Me.Texte.Font, New SolidBrush(e.ForeColor), CSng((e.Bounds.Left indent)), CSng(e.Bounds.Top))
 
       Else
            e
.Graphics.DrawString(MyBase.Items(e.Index).ToString(), e.Font, New SolidBrush(limeColor), CSng((e.Bounds.Left indent)), CSng(e.Bounds.Top))
 
       End If
 
       MyBase.OnDrawItem(e)
 
   End Sub

End 
Class 
الرد
تم الشكر بواسطة: LoveVb , 3asfa~mdmra , العزابي , العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل صورتين تغيران مواقعهما بسحب احدهما عبد الهادي بهاب 4 124 10-09-20, 06:11 PM
آخر رد: عبد الهادي بهاب
  [سؤال] كيف اجعل ليبال ذو خلفية شفافة مع صورة عبد الهادي بهاب 2 161 25-08-20, 02:31 PM
آخر رد: عبد الهادي بهاب
  [سؤال] مشكلة اللغة العربية في اداة Listbox saleh101 7 332 16-08-20, 03:02 AM
آخر رد: saleh101
  عمل auto hide لل listbox ابو روضة 5 358 02-07-20, 02:08 PM
آخر رد: ابو روضة
  كيف اجعل قيمة افتراضية للكوبو بكس في الداتاجريد بسام محمدغانم 4 351 23-06-20, 03:35 AM
آخر رد: ابو ليلى
  مساعدة بخصوص Listbox developermedo111 1 286 06-06-20, 11:40 PM
آخر رد: WaeLx
  [VB.NET] تعديل على القيمة المختارة في ListBox محمد العامر 17 940 23-04-20, 01:05 AM
آخر رد: ابراهيم ايبو
  [VB.NET] حذف الاسطر listbox mervandzz 5 378 15-04-20, 01:57 AM
آخر رد: ابراهيم ايبو
  كيف اجعل الكلمة في Textbox شفافة VBMaged 15 3,648 07-04-20, 05:23 PM
آخر رد: waelmohd
  [سؤال] عايز اعمل LOop على ListBox عاصم النجار 9 492 05-04-20, 08:36 PM
آخر رد: aljzazy

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم