Private Sub ultraListBar1_PropertyChanged(ByVal sender As Object, ByVal e As Infragistics.Win.PropertyChangedEventArgs) Handles ultraListBar1.PropertyChanged
Dim pci As Infragistics.Shared.PropChangeInfo
' テキスト プロパティが変更されたかどうかを確認します
pci = e.ChangeInfo.FindPropId(Infragistics.Win.UltraWinListBar.PropertyIds.Text)
If Not pci Is Nothing Then
If TypeOf (pci.Source) Is Infragistics.Win.UltraWinListBar.Group Then
' ソースがグループの場合、
' キーおよび新しい名前を表示します
Dim group As Infragistics.Win.UltraWinListBar.Group
group = pci.Source
Debug.WriteLine("Group " + group.Key + "'s text has changed to: " + group.Text)
ElseIf TypeOf (pci.Source) Is Infragistics.Win.UltraWinListBar.Item Then
' ソースが項目の場合、
' キーおよび新しい名前を表示します
Dim item As Infragistics.Win.UltraWinListBar.Item
item = pci.Source
Debug.WriteLine("Item " + item.Key + "'s text has changed to: " + item.Text)
End If
End If
End Sub