Imports FarPoint.Win.Spread
Dim enc As System.Text.Encoding
Dim WithEvents datamodel As Model.DefaultSheetDataModel
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
enc = System.Text.Encoding.GetEncoding("shift-jis")
datamodel = FpSpread1.Sheets(0).Models.Data
Dim tCell As New CellType.TextCellType
tCell.MaxLength = 10
FpSpread1.Sheets(0).Cells(0, 0).CellType = tCell
End Sub
Private Sub FpSpread1_EditChange(ByVal sender As Object, ByVal e As EditorNotifyEventArgs) Handles FpSpread1.EditChange
''編集中の入力制御
Try
If TypeOf (e.View.GetSheetView.ActiveCell.CellType) Is CellType.TextCellType Then
Dim tCell As CellType.TextCellType = e.View.GetSheetView.ActiveCell.CellType
Dim s As String = e.EditingControl.Text
If enc.GetByteCount(s) > tCell.MaxLength Then
e.EditingControl.Text = enc.GetString(enc.GetBytes(s), 0, tCell.MaxLength)
CType(e.EditingControl, CellType.GeneralEditor).SelectionStart = e.EditingControl.Text.Length
End If
End If
Catch
End Try
End Sub
Private Sub datamodel_Changed(ByVal sender As Object, ByVal e As Model.SheetDataModelEventArgs) Handles datamodel.Changed
''非編集状態でクリップボードから貼り付けした場合
If e.Type = Model.SheetDataModelEventType.CellsUpdated Then
Try
If TypeOf (FpSpread1.Sheets(0).ActiveCell.CellType) Is CellType.TextCellType Then
Dim tCell As CellType.TextCellType = FpSpread1.Sheets(0).ActiveCell.CellType
Dim s As String = datamodel.GetValue(e.Row, e.Column)
If enc.GetByteCount(s) > tCell.MaxLength Then
s = enc.GetString(enc.GetBytes(s), 0, tCell.MaxLength)
datamodel.SetValue(e.Row, e.Column, s)
End If
End If
Catch
End Try
End If
End Sub
Dim enc As System.Text.Encoding
Dim WithEvents datamodel As Model.DefaultSheetDataModel
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
enc = System.Text.Encoding.GetEncoding("shift-jis")
datamodel = FpSpread1.Sheets(0).Models.Data
Dim tCell As New CellType.TextCellType
tCell.MaxLength = 10
FpSpread1.Sheets(0).Cells(0, 0).CellType = tCell
End Sub
Private Sub FpSpread1_EditChange(ByVal sender As Object, ByVal e As EditorNotifyEventArgs) Handles FpSpread1.EditChange
''編集中の入力制御
Try
If TypeOf (e.View.GetSheetView.ActiveCell.CellType) Is CellType.TextCellType Then
Dim tCell As CellType.TextCellType = e.View.GetSheetView.ActiveCell.CellType
Dim s As String = e.EditingControl.Text
If enc.GetByteCount(s) > tCell.MaxLength Then
e.EditingControl.Text = enc.GetString(enc.GetBytes(s), 0, tCell.MaxLength)
CType(e.EditingControl, CellType.GeneralEditor).SelectionStart = e.EditingControl.Text.Length
End If
End If
Catch
End Try
End Sub
Private Sub datamodel_Changed(ByVal sender As Object, ByVal e As Model.SheetDataModelEventArgs) Handles datamodel.Changed
''非編集状態でクリップボードから貼り付けした場合
If e.Type = Model.SheetDataModelEventType.CellsUpdated Then
Try
If TypeOf (FpSpread1.Sheets(0).ActiveCell.CellType) Is CellType.TextCellType Then
Dim tCell As CellType.TextCellType = FpSpread1.Sheets(0).ActiveCell.CellType
Dim s As String = datamodel.GetValue(e.Row, e.Column)
If enc.GetByteCount(s) > tCell.MaxLength Then
s = enc.GetString(enc.GetBytes(s), 0, tCell.MaxLength)
datamodel.SetValue(e.Row, e.Column, s)
End If
End If
Catch
End Try
End If
End Sub