[™ like VB ™]

هل يمكن ان اغير الون الازرق الى على الكلمه فى Listbox ؟ وى هل يمكن تقصير هذا الخط على اد الكلمه؟ وى كيف تعطيل زرRight Arrow انو ينتقل لى الكلمه التاليه

[m.sami.ak]

اخي العزيز,,

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

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

التعديل مرفق



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

[™ like VB ™]

M.Sami.AK كتب :

اخي العزيز,,

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

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

التعديل مرفق



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

جزاك الله كل خير أخى

[tariq2812]

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

[m.sami.ak]

tariq2812 كتب :

PHP كود :

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 


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

PHP كود :

ListBox1.DrawMode = DrawMode.OwnerDrawFixed 


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

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

[m.sami.ak]

تم ايجاد الحل