Private Sub InitializeListbar()
With Me.ultraListBar1
' コントロールの境界線スタイルを設定します
.BorderStyle = Infragistics.Win.UIElementBorderStyle.InsetSoft
' 項目にアイコンが設定されない場合、
' 使用するアイコンを設定します
.DefaultIcon = New Icon(Me.GetType(), "MyDefault.ico")
' 新しいグループが追加されるときに
' 使用するデフォルト スタイルを設定します
.DefaultStyle = Infragistics.Win.UltraWinListBar.Style.SmallIcons
' グループ ヘッダーが表示されるかどうかを指定します
' (デフォルト設定は True です)
' 注: これを 'False' に設定する場合、選択されている
' グループの項目のみを表示しますその場合、
' 他のグループを選択するための UI が
' リストバー コントロールで表示されません
' だだし、リストバーの 'SelectedGroup' プロパティを使用すると、
' コードで他のグループを選択できます
.GroupHeadersVisible = True
' リストバーの方向は垂直または水平に設定される
' かどうかを指定します
.Orientation = Infragistics.Win.UltraWinListBar.Orientation.Vertical
' コントロールでデフォルト コンテキスト メニューを表示します
' 注: コントロールの 'ContextMenu' プロパティが設定される場合、
' このプロパティは無視されます
.ShowContextMenus = True
Dim group As Infragistics.Win.UltraWinListBar.Group
Dim item As Infragistics.Win.UltraWinListBar.Item
' デフォルトでは 1 つのグループが追加されたため、
' グループ コレクションを最初にクリアします
.Groups.Clear()
' グループを追加します
group = .Groups.Add("G1", "Group header 1")
' 以上のデフォルト スタイル セットを使用しない場合、
' そのスタイル プロパティを設定します
group.Style = Infragistics.Win.UltraWinListBar.Style.LargeIcons
' このグループを選択します
group.Selected = True
' グループに項目を追加して、各項目に大きい画像インデックスと
' 小さい画像インデックスを指定します
' 注: インデックスが指定されないか、対応の
' LargeImageList または SmallImageList は null 値であるか、
' そのインデックスに画像がない場合、上記で指定した
' DefaultIcon がその項目に使用されます
item = group.Items.Add("I1", "Item 1 caption")
item.SmallImageIndex = 0
item.LargeImageIndex = 0
item = group.Items.Add("I2", "Item 2 caption")
item.SmallImageIndex = 1
item.LargeImageIndex = 1
' 他のグループおよび項目を追加します
group = Me.ultraListBar1.Groups.Add("G2", "Group header 2")
item = group.Items.Add("I1", "Group 2 - Item 1")
item.SmallImageIndex = 0
item.LargeImageIndex = 0
End With
End Sub