VB6のリストボックスで特定の項目に色をつけるには?

質問

VB6.0で複数の数値データをリストボックスに登録した場合、例えば100以上のデータの場合、赤色をつけるにはどうすればいいのでしょうか。
下記で(1)のコードが打てればいいのでしょうが、List1.List(i)に対してForeColorプロパティは使用できません。

For i = 0 To List1.ListCount - 1
If List1.List(i) >= 100 Then
List1.List(i).ForeColor=vbRed(1)
End If
Next i

どなたか教えてください。

回答No.2

imogasi · ベストアンサー

VBでは
Private Sub UserForm_Click()
ListBox1.ForeColor = vbRed
ListBox1.BackColor = vbCyan
'MsgBox ListBox1.List(3)
End Sub
が限度のようです。

お礼

ご教示ありがとうございました。

回答No.1

noname#118114

残念ですが、そのような事は出来ません。
ですが、ＡＰＩを駆使すれば可能かもしれません。

お礼

ご教示ありがとうございました。