PowerTools InputMan for Windows Forms 8.0J
ActionExecuting イベント
使用例 

各ショートカットアクションが実行される前に発生します。
構文
イベント データ

イベント ハンドラが、このイベントに関連するデータを含む、ActionExecutingEventArgs 型の引数を受け取りました。次の ActionExecutingEventArgs プロパティには、このイベントの固有の情報が記載されます。

プロパティ解説
ActionName実行するアクションの名前を取得します。  
CanExecuteこのショートカットアクションが実行できるかどうかを示す値を取得または設定します。  
ShortcutKey実行するショートカットアクションのショートカットキーを取得します。  
Targetショートカットアクションを実行するターゲットを取得します。  
解説
ActionExecutingEventArgsには、アクションを発生させたキー、ターゲットコントロール、および実行されるアクションが含まれます。これらの情報に従って、アクションを実行するかどうかを決定できます。
使用例
//  Please use the following namespace
//  using System.Windows.Forms;
//  using GrapeCity.Win.Editors;

public void WireActionExecutingEvent()
{
    // Creates an instace of the GcTextBox control.
    GcTextBox gcTextBox1 = new GcTextBox();
    // Creates an instace of the GcShortcut component.
    GcShortcut gcShortcut1 = new GcShortcut();
    // Sets the Alt + C to execute the clear behavior.
    gcShortcut1.SetShortcuts(gcTextBox1, new ShortcutCollection(new Keys[] { Keys.Alt | Keys.C }, new object[] { gcTextBox1 }, new string[] { "ShortcutClear" }));
    gcShortcut1.ActionExecuting += new EventHandler<ActionExecutingEventArgs>(OnShortcutActionExecuting);
}

private void OnShortcutActionExecuting(object sender, ActionExecutingEventArgs e)
{
    if (e.Target is GcTextBox &amp;&amp; (e.Target as GcTextBox).DroppedDown &amp;&amp; e.ShortcutKey == (Keys.Alt | Keys.C) &amp;&amp; e.ActionName == "ShortcutClear")
    {                 
        // When the drop down window opened, executes the clear action.
        e.CanExecute = true;
    }
}
'  Please use the following namespace
'  Imports System.Windows.Forms;
'  Imports GrapeCity.Win.Editors;

Public Sub WireActionExecutingEvent()
    ' Creates an instace of the GcTextBox control.
    Dim gcTextBox1 As New GcTextBox()
    ' Creates an instace of the GcShortcut component.
    Dim gcShortcut1 As New GcShortcut()
    ' Sets the Alt + C to execute the clear behavior.
    gcShortcut1.SetShortcuts(gcTextBox1, New ShortcutCollection(New Keys() {Keys.Alt Or Keys.C}, New Object() {gcTextBox1}, New String() {"ShortcutClear"}))
    AddHandler gcShortcut1.ActionExecuting, AddressOf OnShortcutActionExecuting
End Sub

Private Sub OnShortcutActionExecuting(ByVal sender As Object, ByVal e As ActionExecutingEventArgs)
    If TypeOf e.Target Is GcTextBox AndAlso TryCast(e.Target, GcTextBox).DroppedDown AndAlso e.ShortcutKey = (Keys.Alt Or Keys.C) AndAlso e.ActionName = "ShortcutClear" Then
        ' When the drop down window opened, executes the clear action.
        e.CanExecute = True
    End If
End Sub
参照

GcShortcut クラス
GcShortcut メンバ

 

 


© 2004-2015 GrapeCity inc. All rights reserved.