FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > Action クラス : PerformAction メソッド |
public class ColorAction : FarPoint.Win.Spread.Action { public override void PerformAction(object sender) { if (sender is FarPoint.Win.Spread.SpreadView) { FarPoint.Win.Spread.SpreadView spread = (FarPoint.Win.Spread.SpreadView)sender; FarPoint.Win.Spread.SheetView sheet = spread.Sheets[spread.ActiveSheetIndex]; sheet.Cells[sheet.ActiveRowIndex, sheet.ActiveColumnIndex].BackColor = Color.Red; } } } FarPoint.Win.Spread.InputMap im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused); FarPoint.Win.Spread.ActionMap am = fpSpread1.GetActionMap(); im.Put(new FarPoint.Win.Spread.Keystroke(Keys.OemMinus, Keys.None), "ColorAction"); am.Put("ColorAction", new ColorAction());
Public Class ColorAction Inherits FarPoint.Win.Spread.Action Public Overrides Sub PerformAction(ByVal sender As Object) If TypeOf sender Is FarPoint.Win.Spread.SpreadView Then Dim spread As FarPoint.Win.Spread.SpreadView = CType(sender, FarPoint.Win.Spread.SpreadView) Dim sheet As FarPoint.Win.Spread.SheetView = spread.Sheets(spread.ActiveSheetIndex) sheet.Cells(sheet.ActiveRowIndex, sheet.ActiveColumnIndex).BackColor = Color.Red End If End Sub End Class Dim im As FarPoint.Win.Spread.InputMap = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused) Dim am As FarPoint.Win.Spread.ActionMap = FpSpread1.GetActionMap() im.Put(New FarPoint.Win.Spread.Keystroke(Keys.OemMinus, Keys.None), "ColorAction") am.Put("ColorAction", New ColorAction)