Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button13.Click
Dim band As UltraGridBand = Me.ultraGrid1.DisplayLayout.Bands(1)
' Add a summary.
Dim summary As SummarySettings = band.Summaries.Add(SummaryType.Count, band.Columns("CustomerID"))
' Set the summary position to Left so that it shows up on the left of the
' summary footer area.
summary.SummaryPosition = SummaryPosition.Left
' Set the format with which to format the calculated summary when displaying
' in the summary footer.
summary.DisplayFormat = "Record Count = {0:#####}"
' Set the appearance of the summary.
summary.Appearance.TextHAlign = HAlign.Left
summary.Appearance.ForeColor = Color.DarkBlue
summary.Appearance.BackColor = Color.White
' Set the border style of summaries to desired value.
band.Override.BorderStyleSummaryValue = UIElementBorderStyle.None
' Set the appearance of summary footer and the footer caption.
band.Override.SummaryFooterAppearance.BackColor = Color.White
band.Override.SummaryFooterCaptionAppearance.BackColor = Color.White
' Set the text that shows up in the caption of the summary footer.
' You can use column names in square brackets like (CustomerID) below.
band.SummaryFooterCaption = "Customer ID: (CustomerID)"
End Sub