Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread.Model Namespace / SheetDataModelEventHandler Delegate
ExampleExample


In This Topic
    SheetDataModelEventHandler Delegate
    In This Topic
    Handles the Changed event in the data model of the sheet.
    Syntax
    'Declaration
     
    Public Delegate Sub SheetDataModelEventHandler( _
       ByVal sender As Object, _
       ByVal e As SheetDataModelEventArgs _
    ) 
    'Usage
     
    Dim instance As New SheetDataModelEventHandler(AddressOf HandlerMethod)
    public delegate void SheetDataModelEventHandler( 
       object sender,
       SheetDataModelEventArgs e
    )

    Parameters

    sender
    e
    Remarks
    For information on the event, refer to the Changed event.
    Example
    This example creates the handler for the model.
    FarPoint.Win.Spread.Model.BaseSheetDataModel model; 
     
    model = (FarPoint.Win.Spread.Model.BaseSheetDataModel)fpSpread1.ActiveSheet.Models.Data; 
    model.ColumnCount = 4; 
     
    model.Changed += new FarPoint.Win.Spread.Model.SheetDataModelEventHandler(modelDataModelChanged); 
         
    private void button1Click(object sender, System.EventArgs e) 
    { 
        model.SetValue(0, 2, "DataModel"); 
    } 
     
    private void modelDataModelChanged(object sender, FarPoint.Win.Spread.Model.SheetDataModelEventArgs e) 
    { 
         textBox1.Text = e.Column.ToString(); 
    } 
    
    Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetDataModel
    
    model = FpSpread1.ActiveSheet.Models.Data
    model.ColumnCount = 4
    
    Dim h As FarPoint.Win.Spread.Model.SheetDataModelEventHandler = AddressOf modelDataModelChanged
    AddHandler model.Changed, h
    
    Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        model.SetValue(0, 2, "DataModel")
    End Sub
    
    Private Sub modelDataModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs)
        TextBox1.Text = e.Column.ToString()
    End Sub
    
    See Also