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


In This Topic
    SheetStyleModelEventHandler Delegate
    In This Topic
    Handles the Changed event in the style model of the sheet.
    Syntax
    'Declaration
     
    Public Delegate Sub SheetStyleModelEventHandler( _
       ByVal sender As Object, _
       ByVal e As SheetStyleModelEventArgs _
    ) 
    'Usage
     
    Dim instance As New SheetStyleModelEventHandler(AddressOf HandlerMethod)
    public delegate void SheetStyleModelEventHandler( 
       object sender,
       SheetStyleModelEventArgs 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.BaseSheetStyleModel model; 
     
    model = (FarPoint.Win.Spread.Model.BaseSheetStyleModel)fpSpread1.ActiveSheet.Models.Style; 
     
    model.Changed += new FarPoint.Win.Spread.Model.SheetStyleModelEventHandler(modelStyleModelChanged); 
         
    private void button1Click(object sender, System.EventArgs e) 
    { 
        FarPoint.Win.Spread.StyleInfo sInfo = new FarPoint.Win.Spread.StyleInfo(); 
        sInfo.BackColor = Color.Teal; 
        model.AltRowCount = 2; 
        model.SetDirectAltRowInfo(0, sInfo); 
    } 
     
    private void modelStyleModelChanged(object sender, FarPoint.Win.Spread.Model.SheetStyleModelEventArgs e) 
    { 
        textBox1.Text = e.ColumnCount.ToString(); 
    } 
    
    Friend WithEvents model As FarPoint.Win.Spread.Model.BaseSheetStyleModel
    
    model = FpSpread1.ActiveSheet.Models.Style
    
    Dim h As FarPoint.Win.Spread.Model.SheetStyleModelEventHandler = AddressOf modelStyleModelChanged
    AddHandler model.Changed, h
    
    Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sInfo As New FarPoint.Win.Spread.StyleInfo
        sInfo.BackColor = Color.Teal
        model.AltRowCount = 2
        model.SetDirectAltRowInfo(0, sInfo)
    End Sub
    
    Private Sub modelStyleModelChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetStyleModelEventArgs)
        TextBox1.Text = e.ColumnCount.ToString()
    End Sub
    See Also