MESCIUS SPREAD for Windows Forms 15.0J
ToSheetIndex プロパティ
使用例 

シートが移動される新しい位置を取得します。
構文
'宣言
 
Public ReadOnly Property ToSheetIndex As Integer
public int ToSheetIndex {get;}
使用例
次のサンプルコードは、シート2の位置にシートをドラッグします。
fpSpread1.AllowSheetMove = true;
fpSpread1.Sheets.Count = 3;
fpSpread1.Sheets[0].RowCount = 10;
fpSpread1.Sheets[0].ColumnCount = 10;
fpSpread1.Sheets[1].RowCount = 10;
fpSpread1.Sheets[1].ColumnCount = 10;
fpSpread1.Sheets[2].RowCount = 10;
fpSpread1.Sheets[2].ColumnCount = 10;
fpSpread1.Sheets[0].SetClip(0, 0, 3, 3, "Sunday\tMonday\tTuesday\r\nWednesday\tThursday\tFriday\r\nSaturday\tSunday\tMonday");
fpSpread1.Sheets[1].SetClip(0, 0, 3, 3, "January\tFebruary\tMarch\r\nApril\tMay\tJune\r\nJuly\tAugust\tSeptember");
fpSpread1.Sheets[2].SetClip(0, 0, 3, 3, "2012\t2013\t2014\r\n2015\t2016\t2017\r\n2018\t2019\t2020");

private void fpSpread1_SheetDragMoving(object sender, FarPoint.Win.Spread.SheetDragMovingEventArgs e)
{
    if (e.ToSheetIndex == 2)
        {
        e.Restrict = true;
        }
fpSpread1.AllowSheetMove = True
fpSpread1.Sheets.Count = 3
fpSpread1.Sheets(0).RowCount = 10
fpSpread1.Sheets(0).ColumnCount = 10
fpSpread1.Sheets(1).RowCount = 10
fpSpread1.Sheets(1).ColumnCount = 10
fpSpread1.Sheets(2).RowCount = 10
fpSpread1.Sheets(2).ColumnCount = 10
fpSpread1.Sheets(0).SetClip(0, 0, 3, 3, "Sunday" + Chr(9) + "Monday" + Chr(9) + "Tuesday" + vbCrLf + "Wednesday" + Chr(9) + "Thursday" + Chr(9) + "Friday" + vbCrLf + "Saturday" + Chr(9) + "Sunday" + Chr(9) + "Monday")
fpSpread1.Sheets(1).SetClip(0, 0, 3, 3, "January" + Chr(9) + "February" + Chr(9) + "March" + vbCrLf + "April" + Chr(9) + "May" + Chr(9) + "June" + vbCrLf + "July" + Chr(9) + "August" + Chr(9) + "September")
fpSpread1.Sheets(2).SetClip(0, 0, 3, 3, "2012" + Chr(9) + "2013" + Chr(9) + "2014" + vbCrLf + "2015" + Chr(9) + "2016" + Chr(9) + "2017" + vbCrLf + "2018" + Chr(9) + "2019" + Chr(9) + "2020")

Private Sub fpSpread1_SheetDragMoving(sender As Object, e As FarPoint.Win.Spread.SheetDragMovingEventArgs) Handles fpSpread1.SheetDragMoving
  If e.ToSheetIndex = 2 Then
      e.Restrict = True
  End If
End Sub
参照

SheetDragMovingEventArgs クラス
SheetDragMovingEventArgs メンバ

 

 


© MESCIUS inc. All rights reserved.