MESCIUS SPREAD for Windows Forms 17.0J
TouchStripButton コンストラクタ(String,Image)

ボタンのテキストを示します。
ボタンの画像を示します。
TouchStripButtonインスタンスを作成します。
構文
'Declaration
 
Public Function New( _
   ByVal text As String, _
   ByVal image As Image _
)
public TouchStripButton( 
   string text,
   Image image
)

パラメータ

text
ボタンのテキストを示します。
image
ボタンの画像を示します。
次のサンプルコードは、タッチ用メニューバーボタンを作成します。
void autoFill_Click(object sender, EventArgs e)
        {
         FarPoint.Win.Spread.SpreadView activeView = fpSpread1.GetRootWorkbook().GetActiveWorkbook();
            if (activeView != null)
            {
                activeView.ShowAutoFillIndicator();
            }
        }

private void Form1_Load(object sender, EventArgs e)
    {
        fpSpread1.AllowDragFill = true;
    }
        private void fpSpread1_TouchStripOpening(object sender, FarPoint.Win.Spread.TouchStripOpeningEventArgs e)
        {
            e.Cancel = true;
            FarPoint.Win.Spread.CellTouchStrip touchStrip = new FarPoint.Win.Spread.CellTouchStrip(fpSpread1);
            ToolStripSeparator separator = new ToolStripSeparator();
            FarPoint.Win.Spread.TouchStripButton autoFill = new FarPoint.Win.Spread.TouchStripButton("AutoFill", System.Drawing.Image.FromFile("C:\\SpreadWin7\\dragfill.png") );
            autoFill.Click += autoFill_Click;
            touchStrip.Items.AddRange(new ToolStripItem[] { separator, autoFill });
            touchStrip.Show(new Point(e.X - 20, e.Y - 35 - touchStrip.Height));
        }
Private Sub autoFill_Click(sender As Object, e As EventArgs)
               Dim activeView As FarPoint.Win.Spread.SpreadView = fpSpread1.GetRootWorkbook().GetActiveWorkbook()
               If activeView IsNot Nothing Then
                              activeView.ShowAutoFillIndicator()
               End If
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     FpSpread1.AllowDragFill = True
End Sub
Private Sub fpSpread1_TouchStripOpening(sender As Object, e As FarPoint.Win.Spread.TouchStripOpeningEventArgs)
               e.Cancel = True
               Dim touchStrip As New FarPoint.Win.Spread.CellTouchStrip(fpSpread1)
               Dim separator As New ToolStripSeparator()
               Dim autoFill As New FarPoint.Win.Spread.TouchStripButton("AutoFill", System.Drawing.Image.FromFile("C:\SpreadWin7\dragfill.png"))
               AddHandler autoFill.Click, AddressOf autoFill_Click
               touchStrip.Items.AddRange(New ToolStripItem() {separator, autoFill})
               touchStrip.Show(New Point(e.X - 20, e.Y - 35 - touchStrip.Height))
End Sub
参照

TouchStripButton クラス
TouchStripButton メンバ
オーバーロード一覧

 

 


© MESCIUS inc. All rights reserved.