MESCIUS SPREAD for Windows Forms 17.0J
CellTouchStrip コンストラクタ

Spread。
CellTouchStripインスタンスを作成します。
構文
'Declaration
 
Public Function New( _
   ByVal spread As FpSpread _
)
public CellTouchStrip( 
   FpSpread spread
)

パラメータ

spread
Spread。
次のサンプルコードは、タッチ用メニューバーを作成します。
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
参照

CellTouchStrip クラス
CellTouchStrip メンバ

 

 


© MESCIUS inc. All rights reserved.