Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub UltraGrid1_BeforeRowFixedStateChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.BeforeRowFixedStateChangedEventArgs) Handles UltraGrid1.BeforeRowFixedStateChanged
Dim operation As String
' NewFixedState specifies whether the row is being fixed or unfixed.
If e.NewFixedState Then
operation = "fix"
Else
operation = "unfix"
End If
Dim r As DialogResult = MessageBox.Show(Me, "You are about to " & operation & _
" row with the first cell value of " _
& e.Row.Cells(0).Text & ". Continue?", _
"Confirm", MessageBoxButtons.YesNo)
If DialogResult.Yes <> r Then
' Set Cancel to true to cancel the operation.
e.Cancel = True
End If
End Sub
Private Sub UltraGrid1_AfterRowFixedStateChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.AfterRowFixedStateChangedEventArgs) Handles UltraGrid1.AfterRowFixedStateChanged
Dim operation As String
' You can find out whether the row was fixed or unfixed by using the
' Fixed property of the row.
If e.Row.Fixed Then
operation = "fixed"
Else
operation = "unfixed"
End If
MessageBox.Show(Me, "The row with the first cell value of " _
& e.Row.Cells(0).Text & " has been " & operation)
End Sub