Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button88.Click
' Add items to the Items collection using the different overloads.
' Can't proceed unless we have at least 1 group.
If (Me.ultraExplorerBar1.Groups.Count < 1) Then
Return
End If
' Items.Add()
Dim item As UltraExplorerBarItem = Me.ultraExplorerBar1.Groups(0).Items.Add()
item.Text = "FirstItemAdded"
' Items.Add(UltraExplorerBarItem item)
item = New UltraExplorerBarItem("SecondItemKey")
item.Text = "SecondItemAdded"
Dim index As Integer = Me.ultraExplorerBar1.Groups(0).Items.Add(item)
' Items.Add(string Key, string Text)
item = Me.ultraExplorerBar1.Groups(0).Items.Add("ThirdItemKey", "ThirdItem")
' Items.Add(string Key)
item = Me.ultraExplorerBar1.Groups(0).Items.Add("FourthItemKey")
' Items.Add(string Key)
Dim item1 As UltraExplorerBarItem = New UltraExplorerBarItem()
Dim item2 As UltraExplorerBarItem = New UltraExplorerBarItem()
Dim item3 As UltraExplorerBarItem = New UltraExplorerBarItem()
Dim item4 As UltraExplorerBarItem = New UltraExplorerBarItem()
Me.ultraExplorerBar1.Groups(0).Items.AddRange(New UltraExplorerBarItem() {item1, item2, item3, item4})
End Sub