BoldSignEasily embed eSignatures in your .NET applications. Free sandbox with native SDK available.
# Form1.vb
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.PivotGridControl1.ShowGroupBar = False
Me.PivotGridControl1.EnableValueEditing = True
AddHandler PivotGridControl1.TableControl.GroupDropArea.ColWidthsChanged,AddressOf GroupDropArea_ColWidthsChanged
'to hide the second column. PivotGridControl1.TableModel.ColWidths(2) = 0
End Sub
'To maintain the column width value as 0 after performing any drag and drop operation. Private Sub GroupDropArea_ColWidthsChanged(ByVal sender As Object, ByVal e AsSyncfusion.Windows.Forms.Grid.GridRowColSizeChangedEventArgs)
PivotGridControl1.TableModel.ColWidths(2) = 0
End Sub |
# Form1.vb
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'to hide the second column.
PivotGridControl1.TableModel.ColWidths(2) = 0
AddHandler PivotGridControl1.TableControl.GroupDropArea.ColWidthsChanged, AddressOf GroupDropArea_ColWidthsChanged
AddHandler Me.PivotGridControl1.TableModel.ColWidthsChanged, AddressOf TableModel_ColWidthsChanged
'Resize the elements in row grouping bar.
Dim emptySpaceWidth As Integer = 6
Dim index As Integer
For j As Integer = 1 To 2 * (PivotGridControl1.TableControl.PivotRows.Count)
If j Mod 2 = 0 AndAlso PivotGridControl1.TableControl.RowGroupDropArea IsNot Nothing AndAlso PivotGridControl1.TableControl.RowGroupDropArea.Model IsNot Nothing Then
index = j / 2
PivotGridControl1.TableControl.RowGroupDropArea.Model.ColWidths(j) = If(PivotGridControl1.TableModel.ColWidths(index) = 0, 0, PivotGridControl1.TableModel.ColWidths(index) - (emptySpaceWidth + emptySpaceWidth / 2))
End If
Next
'Resize the entire row group bar width.
Dim width As Integer = 0
For i As Integer = 0 To PivotGridControl1.PivotRows.Count - 1
width += PivotGridControl1.TableModel.ColWidths(i)
Next
PivotGridControl1.TableControl.RowGroupDropArea.Width = width
End Sub
|