Question

VB 怎么改变listbox中获得焦点的list的字体颜色

我做个播放器，单击下一曲的按钮的时候，使listbox中的下一个文件获得焦点，希望其字体颜色发生变化（其实相当于正在播放的文件颜色与其它文件不一样），我该怎么做啊？

Answer 1

首先把ListBox的DrawMode设为OwnerDrawFixed Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim sz As SolidBrush = Brushes.Black
Dim lsListbox As ListBox = sender
If e.Index > -1 Then
Dim lszc As String = lsListbox.Items(e.Index).ToString.Trim
If lszc.Contains("自己") Then
sz = Brushes.Red
End If
If lszc.Contains("偷取") Then
sz = Brushes.Green
End If
If lszc.Contains("经验") Then
sz = Brushes.Blue
End If
e.DrawBackground()
e.Graphics.DrawString(lsListbox.Items(e.Index).ToString, e.Font, sz, e.Bounds)
e.DrawFocusRectangle()
End If