تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(تم الحل) سؤل فى أداه ListBox
#1
هل يمكن ان اغير الون الازرق الى على الكلمه فى Listbox ؟ وى هل يمكن تقصير هذا الخط على اد الكلمه؟ وى كيف تعطيل زرRight Arrow انو ينتقل لى الكلمه التاليه
}}}
تم الشكر بواسطة:
#2
اخي العزيز,,

تفضل التعديلات

لكن لا اعلم بحل بالنسبة لتحديد النص فقط؟؟

التعديل مرفق



تحياتي لك
ابو سامي


الملفات المرفقة
.zip   ListBox Color Selection.zip (الحجم : 57.9 ك ب / التحميلات : 57)
}}}
تم الشكر بواسطة:
#3
M.Sami.AK كتب :
اخي العزيز,,

تفضل التعديلات

لكن لا اعلم بحل بالنسبة لتحديد النص فقط؟؟

التعديل مرفق



تحياتي لك
ابو سامي
جزاك الله كل خير أخى
}}}
تم الشكر بواسطة:
#4
Private Sub ListBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brushes.Red, e.Bounds)
End If
Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)
End Using
e.DrawFocusRectangle()

End Sub
}}}
تم الشكر بواسطة:
#5
tariq2812 كتب :
PHP كود :
Private Sub ListBox1_DrawItem(ByVal sender As System.ObjectByVal e As System.Windows.Forms.DrawItemEventArgsHandles ListBox1.DrawItem
        e
.DrawBackground()
        If (
e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e
.Graphics.FillRectangle(Brushes.Rede.Bounds)
        
End If
        
Using b As New SolidBrush(e.ForeColor)
            
e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Fontbe.Bounds)
        
End Using
        e
.DrawFocusRectangle()

    
End Sub 

مشكور لكن يجب تعديل الDrawMode الى OwnerDrawFixed
PHP كود :
ListBox1.DrawMode DrawMode.OwnerDrawFixed 

كما موضح بالمثال السابق

تحياتي لك
ابو سامي
}}}
تم الشكر بواسطة:
#6
تم ايجاد الحل
}}}
تم الشكر بواسطة:



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


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