Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.OleDbDataAdapter1.Fill(Me.DataSet11)
Me.OleDbDataAdapter2.Fill(Me.DataSet11)
Me.OleDbDataAdapter3.Fill(Me.DataSet11)
' Set the data source and data member to bind the grid.
Me.UltraGrid1.DataSource = Me.DataSet11
Me.UltraGrid1.DataMember = ""
' Disable alpha-blending which may increase performance.
Me.UltraGrid1.AlphaBlendEnabled = False
' Disable theme support in WinXP based systems.
Me.UltraGrid1.SupportThemes = False
' Set the appearance of the UltraGrid.
Me.UltraGrid1.DisplayLayout.Appearance.BackColor = Color.Gray
' Set the border style of the UltraGrid.
Me.UltraGrid1.DisplayLayout.BorderStyle = UIElementBorderStyle.InsetSoft
' Set the text, appearance and border styles of the caption.
Me.UltraGrid1.Text = "UltraGrid Caption"
Me.UltraGrid1.DisplayLayout.CaptionAppearance.FontData.Bold = DefaultableBoolean.True
Me.UltraGrid1.DisplayLayout.BorderStyleCaption = UIElementBorderStyle.RaisedSoft
' Set the update mode which dictates when the UltraGrid calls EndEdit
' on IEditableObject row objects.
Me.UltraGrid1.UpdateMode = UpdateMode.OnRowChangeOrLostFocus
' Set the scroll style to Immediate so that the UltraGrid scrolls the rows as
' the vertical scroll bar thumb is dragged. Normally the UltraGrid defers the
' scrolling until the thumb is released and displays scroll tips instead.
Me.UltraGrid1.DisplayLayout.ScrollStyle = ScrollStyle.Immediate
End Sub