PowerTools SPREAD for Windows Forms 10.0J
IncreaseShapeWidth フィールド


アクティブシェイプの幅を大きくします。
構文
'Declaration
 
Public Shared ReadOnly IncreaseShapeWidth As Object
'使用法
 
Dim value As Object
 
value = SpreadActions.IncreaseShapeWidth
public static readonly object IncreaseShapeWidth
次のサンプル コードは、フォーカスのあるシェイプの幅を大きくするのに[I]キーを使用するマップを設定します。
FarPoint.Win.Spread.DrawingSpace.ArrowShape arrow = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(); 
arrow.Parent = fpSpread1; 
arrow.SetBounds(10, 10, 50, 50); 
fpSpread1.ActiveSheet.AddShape(arrow);

FarPoint.Win.Spread.DrawingSpace.ArrowShape crv = new FarPoint.Win.Spread.DrawingSpace.CurvedArrowShape(); 
crv.Parent = fpSpread1; 
crv.SetBounds(10, 10, 50, 50); 
fpSpread1.ActiveSheet.AddShape(crv);

FarPoint.Win.Spread.InputMap im; 
im = fpSpread1.GetInputMapWhenShapeHasFocus(); 
FarPoint.Win.Spread.Keystroke k = new FarPoint.Win.Spread.Keystroke(Keys.I, Keys.None); 
im.Put(k, FarPoint.Win.Spread.SpreadActions.IncreaseShapeWidth); 
fpSpread1.SetInputMapWhenShapeHasFocus(im); 
Dim arrow As New FarPoint.Win.Spread.DrawingSpace.ArrowShape
arrow.Parent = FpSpread1
arrow.SetBounds(10, 10, 50, 50)
FpSpread1.ActiveSheet.AddShape(arrow)

Dim crv As New FarPoint.Win.Spread.DrawingSpace.CurvedArrowShape
crv.Parent = FpSpread1
crv.SetBounds(70, 10, 50, 50)
FpSpread1.ActiveSheet.AddShape(crv)

Dim im As FarPoint.Win.Spread.InputMap
im = FpSpread1.GetInputMapWhenShapeHasFocus()
Dim k As New FarPoint.Win.Spread.Keystroke(Keys.I, Keys.None)
im.Put(k, FarPoint.Win.Spread.SpreadActions.IncreaseShapeWidth)
FpSpread1.SetInputMapWhenShapeHasFocus(im)
解説

このアクションは、シェイプにフォーカスがあるときに、シェイプのサイズを右に拡張してシェイプの幅を大きくします。

シェイプにフォーカスがあるときにデフォルトでこのアクションに割り当てられているキーの組み合わせは、[Ctrl]+右矢印キーです。

独自の入力マップまたはアクションマップを定義することにより、このアクションをカスタムのキーの組み合わせに対応付けることができます。マップの詳細については、「キーボード操作」を参照してください。

参照

SpreadActions クラス
SpreadActions メンバ

 

 


© 2004-2017, GrapeCity inc. All rights reserved.