22 lines
634 B
VB.net
22 lines
634 B
VB.net
Public Class SpreadUserControl
|
|
Private _SpreadInfo As String
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
Property SpreadInfo As String
|
|
Get
|
|
Return _SpreadInfo
|
|
End Get
|
|
Set(value As String)
|
|
_SpreadInfo = value
|
|
End Set
|
|
End Property
|
|
Private Sub SpreadsheetControl1_CellEndEdit(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellValidatingEventArgs) Handles SpreadsheetControl1.CellEndEdit
|
|
If SpreadInfo <> "1" Then
|
|
SpreadInfo = "1"
|
|
Else
|
|
SpreadInfo = "0"
|
|
End If
|
|
End Sub
|
|
End Class
|