FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 : StickyNoteEventHandler デリゲート |
'Declaration Public Delegate Sub StickyNoteEventHandler( _ ByVal sender As Object, _ ByVal e As StickyNoteEventArgs _ )
'使用法 Dim instance As New StickyNoteEventHandler(AddressOf HandlerMethod)
public delegate void StickyNoteEventHandler( object sender, StickyNoteEventArgs e )
private void Form1_Load(object sender, System.EventArgs e) { fpSpread1.ActiveSheet.SetNote(2, 0, "Head of Development"); fpSpread1.ActiveSheet.Cells[2, 0].NoteStyle = FarPoint.Win.Spread.NoteStyle.StickyNote; FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo nsinfo = new FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo(); nsinfo = fpSpread1.ActiveSheet.GetStickyNoteStyleInfo(2, 0); nsinfo.BackColor = Color.Bisque; nsinfo.Font = new Font("Tahoma", 24); nsinfo.ForeColor = Color.Cyan; nsinfo.Width = 320; nsinfo.ShapeOutlineColor = Color.Cyan; nsinfo.ShapeOutlineThickness = 1; nsinfo.ShadowOffsetX = 3; nsinfo.ShadowOffsetY = 3; fpSpread1.ActiveSheet.SetStickyNoteStyleInfo(2, 0, nsinfo); } private void fpSpread1_Sheet1_StickyNoteCreated(object sender, FarPoint.Win.Spread.StickyNoteEventArgs e) { MessageBox.Show("The thickness of the outline is " + e.StickyNoteStyleInfo.ShapeOutlineThickness.ToString()); }
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load FpSpread1.ActiveSheet.SetNote(2, 0, "Head of Development") FpSpread1.ActiveSheet.Cells(2, 0).NoteStyle = FarPoint.Win.Spread.NoteStyle.StickyNote Dim nsinfo As FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo = New FarPoint.Win.Spread.DrawingSpace.StickyNoteStyleInfo nsinfo = FpSpread1.ActiveSheet.GetStickyNoteStyleInfo(2, 0) nsinfo.BackColor = Color.Bisque nsinfo.Font = New Font("Tahoma", 24) nsinfo.ForeColor = Color.Cyan nsinfo.Width = 320 nsinfo.ShapeOutlineColor = Color.Cyan nsinfo.ShapeOutlineThickness = 1 nsinfo.ShadowOffsetX = 3 nsinfo.ShadowOffsetY = 3 FpSpread1.ActiveSheet.SetStickyNoteStyleInfo(2, 0, nsinfo) End Sub Private Sub FpSpread1_Sheet1_StickyNoteCreated(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.StickyNoteEventArgs) Handles FpSpread1_Sheet1.StickyNoteCreated MessageBox.Show("The thickness of the outline is " & e.StickyNoteStyleInfo.ShapeOutlineThickness.ToString()) End Sub