請問一下vb裡的listbox要如何將其所列出的選項�…

[幸運何時來？]

==> cornet...@bbs.cv.nctu.edu.tw (軒) 提到:
: 如題..
: 謝謝大家的幫忙...
listbox沒有辦法做到
但是listview可以
底下是讓listview裡的listitem增添色彩的程式

Public Sub ColorListView(ByVal LV As Variant, Optional ColorSubItem As Boolean =
True, Optional MyColor1 As Long = 0, Optional MyColor2 As Long = 0)
On Error Resume Next
Set LV = ListView
With LV
If .ListItems.Count = 0 Then Exit Sub
For i = 1 To .ListItems.Count
If i Mod 2 = 0 Then
.ListItems(i).ForeColor = MyColor1
If ColorSubItem = True Then
For j = 1 To .ListItems(i).ListSubItems.
Count
.ListItems(i).ListSubItems(j).Fo
reColor = MyColor1
Next j
End If
Else
.ListItems(i).ForeColor = MyColor2
If ColorSubItem = True Then
For j = 1 To .ListItems(i).ListSubItems.
Count
.ListItems(i).ListSubItems(j).Fo
reColor = MyColor2
Next j
End If
End If
Next i
End With
End Sub

--
◎ [1;31m龍 [32m貓 [33m資 [34m訊 [35m天 [36m地 [0m( [1mbbs.mgt.ncu.edu.tw [0m)
◎[ [1;33;46mA0012 [0m]From: telnet.hinet.net