GrapeCity SPREAD for Windows Forms 12.0J
CanExecute メソッド


このアクションを実行するターゲットSystem.Object
現在の状態でこのアクションを実行できるかどうかを判断するメソッドを定義します。
構文
'Declaration
 
Function CanExecute( _
   ByVal target As Object _
) As Boolean
'使用法
 
Dim instance As ITouchBarAction
Dim target As Object
Dim value As Boolean
 
value = instance.CanExecute(target)
bool CanExecute( 
   object target
)

パラメータ

target
このアクションを実行するターゲットSystem.Object

戻り値の型

このアクションを実行できる場合はtrue。それ以外の場合はfalse
次のサンプルコードは、タッチツールバーボタンを作成します。
public class SelectAction : GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction
        {

            public bool CanExecute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                if (owner == null)
                {
                    return false;
                }
                return true;
            }

            public void Execute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                owner.SelectAll();
            }
        }

        public class DeselectAction : GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction
        {

            public bool CanExecute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;
                if (owner == null)
                {
                    return false;
                }
                return true;
            }

            public void Execute(object target)
            {
                GrapeCity.Win.Spread.InputMan.CellType.EditBase owner = target;                
                owner.DeselectAll();
            }
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton selectBtn = new GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(new SelectAction(), "test1", null);
            GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton deselectBtn = new GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(new DeselectAction(), "test2", null);
            GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType imtc = new GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType();
            imtc.ShowTouchToolBar = GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapSelection | GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapGripper;
            imtc.TouchToolBar.Items.Clear();
            imtc.TouchToolBar.Items.AddRange(new ToolStripItem[] {
        selectBtn,
        new ToolStripSeparator(),
        deselectBtn
    });
            fpSpread1.ActiveSheet.Columns[0].CellType = imtc;           
        }
Public Class SelectAction
        Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction

        Public Function CanExecute(target As Object) As Boolean Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.CanExecute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            If owner Is Nothing Then
                Return False
            End If
            Return True
        End Function

        Public Sub Execute(target As Object) Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.Execute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            owner.SelectAll()
        End Sub
    End Class

    Public Class DeselectAction
        Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction

        Public Function CanExecute(target As Object) As Boolean Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.CanExecute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            If owner Is Nothing Then
                Return False
            End If
            Return True
        End Function

        Public Sub Execute(target As Object) Implements GrapeCity.Win.Spread.InputMan.CellType.ITouchBarAction.Execute
            Dim owner As GrapeCity.Win.Spread.InputMan.CellType.EditBase = target
            owner.DeselectAll()
        End Sub
    End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim selectBtn As New GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(New SelectAction(), "test1", Nothing)
        Dim deselectBtn As New GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarButton(New DeselectAction(), "test2", Nothing)
        Dim imtc As New GrapeCity.Win.Spread.InputMan.CellType.GcTextBoxCellType()
        imtc.ShowTouchToolBar = GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapSelection Or GrapeCity.Win.Spread.InputMan.CellType.TouchToolBarDisplayOptions.TapGripper
        imtc.TouchToolBar.Items.Clear()
        imtc.TouchToolBar.Items.AddRange(New ToolStripItem() {selectBtn, New ToolStripSeparator(), deselectBtn})
        FpSpread1.ActiveSheet.Columns(0).CellType = imtc
    End Sub
End Class
参照

ITouchBarAction インタフェース
ITouchBarAction メンバ

 

 


Copyright © 2004 GrapeCity inc.