Private Sub lbxausgewählt_DrawItem(sender As Object, e As _
   System.Windows.Forms.DrawItemEventArgs) Handles lbxausgewählt.DrawItem
        If e.Index < 0 Then Exit Sub
        Dim sLines() As String = lbxausgewählt.Items(e.Index).ToString.Split( _
          "/"c)
        Dim headFont As Font = New Font("Microsoft Sans Serif", 12, _
        FontStyle.Bold)
        Dim linefont As Font = New Font("Microsoft Sans Serif", 10)
        e.DrawBackground()
        With e.Graphics
            Using forebrush As New SolidBrush(Color.Black)
                .DrawString(sLines(0), headFont, forebrush, e.Bounds.X, _
                  e.Bounds.Y)
                For i As Integer = 1 To sLines.Length - 1
                    .DrawString(sLines(i), linefont, forebrush, e.Bounds.X, _
                      e.Bounds.Y + 6 + i * 12)
                Next i
            End Using
        End With
    End Sub

MFG Gizmo


Beitrag wurde zuletzt am 07.01.12 um 18:35:17 editiert.