Spread Windows Forms 8.0 Product Documentation
Execute Method (ITouchBarAction)
Example 


The target System.Object to execute this action.
Executes the specified object.
Syntax
'Declaration
 
Sub Execute( _
   ByVal target As Object _
) 
'Usage
 
Dim instance As ITouchBarAction
Dim target As Object
 
instance.Execute(target)
void Execute( 
   object target
)

Parameters

target
The target System.Object to execute this action.
Example
This example creates touch toolbar buttons.
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
Requirements

Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8

See Also

Reference

ITouchBarAction Interface
ITouchBarAction Members

 

 


Copyright © GrapeCity, inc. All rights reserved.