[أبو خالد الشكري]

(08-10-24, 08:46 PM)mmaalmesry كتب : السلام عليكم ورحمة الله

أطلب منكم سؤال لو سمحتوا

باختصار كيف أجعل الأداة Listbox تعرض عمودين بدل عمود واحد

شكرا لكم

وعليكم السلام ورحمة الله وبركاته

نعم يمكن ذلك !

جرب الكود التالي :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.DrawMode = DrawMode.OwnerDrawFixed
       ListBox1.Items.Add("سماء" & vbTab & "Sky")
       ListBox1.Items.Add("شمس" & vbTab & "Sun")
       ListBox1.Items.Add("قمر" & vbTab & "Moon")
   End Sub
   Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
       If e.Index < 0 Then Exit Sub

       Dim text As String = ListBox1.Items(e.Index).ToString()
       Dim columns() As String = text.Split(vbTab)
       Dim brush As New SolidBrush(e.ForeColor)

       e.DrawBackground()
       e.Graphics.DrawString(columns(0), e.Font, brush, e.Bounds.Left, e.Bounds.Top)
       e.Graphics.DrawString(columns(1), e.Font, brush, e.Bounds.Left + 100, e.Bounds.Top)
       e.DrawFocusRectangle()

       brush.Dispose()
   End Sub