【Spread Sheet 应用（四）】字节数入力限制

     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