New Product Launch - BoldDesk !
Introducing help desk ticketing software.
New Product LaunchBoldDesk: Help desk ticketing software starts at $10 for 3 agents.
Try it for free.
'' subscribe to the event in FormLoad...
AddHandler gridControl1.CurrentCellShowingDropDown, AddressOf gridControl_CurrentCellShowingDropDown
'' the handler
Private Sub gridControl_CurrentCellShowingDropDown(ByVal sender As Object, ByVal e As GridCurrentCellShowingDropDownEventArgs)
Dim cc As GridCurrentCell = Me.gridControl1.CurrentCell
If cc.Renderer.GetType() Is GetType(DropDownGridCellRenderer) Then
Dim grid As GridControl = CType(cc.Renderer.Model, DropDownGridCellModel).EmbeddedGrid
grid.HScrollBehavior = GridScrollbarMode.Disabled
grid.VScrollBehavior = GridScrollbarMode.Disabled
Dim w As Integer = grid.Model.ColWidths.GetTotal(0, grid.Model.ColCount) + 16
Dim h As Integer = grid.Model.RowHeights.GetTotal(0, grid.Model.RowCount) + 16
e.Size = New Size(w, h)
End If
End Sub