BoldSignEasily embed eSignatures in your .NET applications. Free sandbox with native SDK available.
Dim i As Single
i = CSng(Me.gridcontrol1.CurrentCell.Renderer.ControlText)
errorcode = 0
Select Case i
Case 0, 501.0F To 532.0F
Case Else
MessageBox.Show("Cell value must be between 501 and 532." & ControlChars.CrLf & _
"The invalid value will be reset.", _
"QUASAR: Invalid Value Entered", MessageBoxButtons.OK, _
MessageBoxIcon.Warning)
Dim cc As Syncfusion.Windows.Forms.Grid.GridCurrentCell = Me.gridcontrol1.CurrentCell
cc.Renderer.Control.Text = Me.gridcontrol1(cc.RowIndex, cc.ColIndex).Text
Me.gridcontrol1.Invalidate(Me.gridcontrol1.ViewLayout.RangeInfoToRectangle(cc.RangeInfo, Syncfusion.Windows.Forms.Grid.GridCellSizeKind.ActualSize), True)
e.Cancel = True
End Select