FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 : SheetStyleModelEventHandler デリゲート |
'Declaration Public Delegate Sub SheetStyleModelEventHandler( _ ByVal sender As Object, _ ByVal e As SheetStyleModelEventArgs _ )
'使用法 Dim instance As New SheetStyleModelEventHandler(AddressOf HandlerMethod)
public delegate void SheetStyleModelEventHandler( object sender, SheetStyleModelEventArgs e )
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