Form1.vb
Public Sub New()
InitializeComponent()
InitializePivotGrid()
AddHandler Me.pivotGridControl1.TableModel.QueryCellInfo, AddressOf TableModel_QueryCellInfo
AddHandler Me.pivotGridControl1.TableControl.HyperlinkCellClick, AddressOf TableControl_HyperlinkCellClick
End Sub
Private Sub TableModel_QueryCellInfo(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.Grid.GridQueryCellInfoEventArgs)
If e.RowIndex > Me.pivotGridControl1.PivotColumns.Count + (If(Me.pivotGridControl1.PivotCalculations.Count > 1, 1, 0)) AndAlso e.ColIndex > Me.pivotGridControl1.PivotRows.Count AndAlso e.Style.CellValue IsNot Nothing Then
e.Style.CellType = If(Me.checkBox1.Checked, "HyperlinkCell", "TextBox")
e.Style.Tag = Nothing
End If
End Sub
Private Sub TableControl_HyperlinkCellClick(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.PivotAnalysis.HyperlinkCellClickEventArgs)
If Me.checkBox1.Checked Then
Dim cellInfo As PivotCellInfo = Me.pivotGridControl1.PivotEngine(e.PivotCellInfo.RowIndex - 1, e.PivotCellInfo.ColumnIndex - 1)
Dim styeInfo As GridStyleInfo = Me.pivotGridControl1.TableModel(e.PivotCellInfo.RowIndex, e.PivotCellInfo.ColumnIndex)
Dim row As String = "Row index " & e.PivotCellInfo.RowIndex
Dim column As String = "Column index " & e.PivotCellInfo.ColumnIndex
Dim cellValue As String = "Cell value " & cellInfo.FormattedText
MessageBox.Show(row & vbCrLf & column & vbCrLf & cellValue)
End If
End Sub
|
Recommended approach – exe will perform automatic configuration
Please find the patch setup here:
Advanced approach – use only if you have specific needs and can directly replace existing assemblies for your build environment
Please find the patch assemblies alone from:
Please find the Nugets from the below location:
|