Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 > Windows.Forms.ListBox >
行ごとにアイコンを表示する
Private
Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
ListBox1.DrawMode = DrawMode.OwnerDrawFixed End Sub |
Private Sub
ListBox1_DrawItem(ByVal sender
As Object,
ByVal e As
System.Windows.Forms.DrawItemEventArgs) Handles
ListBox1.DrawItem '▼項目がない場合は何もしない
If e.Index = -1
Then '▼アイコンとブラシの用意
Dim myBrush
As Brush = New
SolidBrush(ListBox1.ForeColor)
'描画するアイコンを3つごとに適当に決定 '▼描画実行 e.DrawBackground() End Sub |
メモ:このサンプルではEnabled = Falseの場合、およびSelectionMode = Noneの場合の配慮がされていません。