Imports Infragistics.Win.UltraWinEditors
' Create a TrackBar for editing. This control will be used for cells that
' are in edit mode.
'
Dim trackBarForEditing As TrackBar = New TrackBar()
trackBarForEditing.Minimum = 0
trackBarForEditing.Maximum = 10
Me.Controls.Add(trackBarForEditing)
' Set the EditingControl on the UltraControlContainer to the trackBarForEditing.
'
Me.ultraControlContainerEditor1.EditingControl = trackBarForEditing
' Create another TrackBar for rendering. This will be used for cells that
' are NOT in edit mode. Since both trackbars will serve the same grid column
' it makes sense to set all of the properties the same.
'
Dim trackBarForRendering As TrackBar = New TrackBar()
trackBarForRendering.Minimum = 0
trackBarForRendering.Maximum = 10
Me.Controls.Add(trackBarForRendering)
' Set the RenderingControl on the UltraControlContainer to the trackBarForRendering.
'
Me.ultraControlContainerEditor1.RenderingControl = trackBarForRendering
' Set ApplyOwnerAppearanceToEditingControl so that the Trackbar will not pick
' up the appearance of the cell.
'
Me.ultraControlContainerEditor1.ApplyOwnerAppearanceToEditingControl = False
Me.ultraControlContainerEditor1.ApplyOwnerAppearanceToRenderingControl = False
' Tell the UltraControlContainerEditor to use the Value property on the
' trackbar for both the editing and rendering value.
'
Me.ultraControlContainerEditor1.EditingControlPropertyName = "Value"
Me.ultraControlContainerEditor1.RenderingControlPropertyName = "Value"
' Since the editing and rendering controls are exactly the same, we want
' the user to be able to click and drag the trackbar thumb with a single
' click and drag. Setting EnterEditModeMouseBehavior to
' EnterEditModeAndClick will allow the editor to forward the MouseDown
' that causes the cell to enter edit mode to the Trackbar control.
'
Me.ultraControlContainerEditor1.EnterEditModeMouseBehavior = EnterEditModeMouseBehavior.EnterEditModeAndClick
' Assign the UltraControlContainerEditor to the grid column
'
Me.ultraGrid1.DisplayLayout.Bands(0).Columns(0).EditorComponent = Me.ultraControlContainerEditor1