Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button84_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button84.Click
Dim band As UltraGridBand = Me.UltraGrid1.DisplayLayout.Bands(0)
' Trun on the card view and set the card-view style to compressed since IsCardCompressed
' only applies to card-view style of Compressed.
band.CardView = True
band.CardSettings.Style = CardStyle.Compressed
' Get the row to demonstrate the IsCardCompressed property on.
Dim row As UltraGridRow = Me.UltraGrid1.Rows(0)
' By default, then cards are compressed. IsCardCompressed should be true.
Debug.WriteLine("row.IsCardCompressed = " & row.IsCardCompressed)
' Set the IsCardCompressed to false to expand the card.
row.IsCardCompressed = False
' Now the card row is expanded and IsCardCompressed should be false.
Debug.WriteLine("row.IsCardCompressed = " & row.IsCardCompressed)
End Sub