FarPoint.Win.Spread.Model.DefaultSheetDataModel defModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5);
private void Form1_Load(object sender, System.EventArgs e)
{
fpSpread1.ActiveSheet.Models.Data = defModel;
this.defModel.Changed += new FarPoint.Win.Spread.Model.SheetDataModelEventHandler(this.defModel_Changed);
}
private void menuItem1_Click(object sender, System.EventArgs e)
{
fpSpread1.ActiveSheet.Models.Data = defModel;
defModel.SetValue(0, 0, "CellsUpdated");
}
private void defModel_Changed(object sender, FarPoint.Win.Spread.Model.SheetDataModelEventArgs e)
{
switch (e.Type)
{
case FarPoint.Win.Spread.Model.SheetDataModelEventType.CellsUpdated:
listBox1.Items.Add(e.Type.ToString());
break;
case FarPoint.Win.Spread.Model.SheetDataModelEventType.RowsAdded:
listBox1.Items.Add(e.Type.ToString());
break;
case FarPoint.Win.Spread.Model.SheetDataModelEventType.RowsRemoved:
listBox1.Items.Add(e.Type.ToString());
break;
case FarPoint.Win.Spread.Model.SheetDataModelEventType.ColumnsAdded:
listBox1.Items.Add(e.Type.ToString());
break;
case FarPoint.Win.Spread.Model.SheetDataModelEventType.ColumnsRemoved:
listBox1.Items.Add(e.Type.ToString());
break;
case FarPoint.Win.Spread.Model.SheetDataModelEventType.ModelUpdated:
listBox1.Items.Add(e.Type.ToString());
break;
}
}
Friend WithEvents defModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5)
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
FpSpread1.ActiveSheet.Models.Data = defModel
defModel.SetValue(0, 0, "CellsUpdated")
End Sub
Private Sub defModel_Changed(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs) Handles
defModel.Changed
Select Case e.Type
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.CellsUpdated
ListBox1.Items.Add(e.Type.ToString())
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.RowsAdded
ListBox1.Items.Add(e.Type.ToString())
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.RowsRemoved
ListBox1.Items.Add(e.Type.ToString())
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.ColumnsAdded
ListBox1.Items.Add(e.Type.ToString())
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.ColumnsRemoved
ListBox1.Items.Add(e.Type.ToString())
Case FarPoint.Win.Spread.Model.SheetDataModelEventType.ModelUpdated
ListBox1.Items.Add(e.Type.ToString())
End Select
End Sub