ワークブックに複数のシートがある場合、タブストリップにすべてのシートタブが表示され、アクティブなシートを示すタブが強調表示されます。この場合は、ワークブックの左下隅にある「前へ」と「次へ」タブストリップボタンを使用することで、アクティブなシートの前のシートまたは次のシートに移動できます。

ただし、手動でスクロールせずに先頭または最後のシートにジャンプするには、次の手順に従います。

1. 次のサンプル コードを実行して、Spread コントロールにシートを6 つ追加します。

   C#	コードのコピー
   fpSpread1.Width = 800; fpSpread1.Sheets.Count = 6; fpSpread1.TabStripRatio = 0.7;

   
   

   Visual Basic	コードのコピー
   fpSpread1.Width = 800 fpSpread1.Sheets.Count = 6 fpSpread1.TabStripRatio = 0.7

2. タブストリップ ボタンの上にマウス を置くと、タブストリップボタンの説明を示するツールチップが表示されます。

   

   メモ：このツールチップ機能は、Excel 2019 スキンでのみ使用できます。

3. ［Ctrl］キーを押しながら、「前へ」タブ ストリップボタンをクリックすると、先頭のシートにジャンプします。
4. ［Ctrl］ キーを押しながら、「次へ」タブ ストリップボタンをクリックすると、最後のシートにジャンプします。
5. タブストリップボタンを右クリックすると、「シートの選択」ダイアログを開きます。
   「シートの選択」 ダイアログには、ワークブックで使用可能なシートのリストが表示されます。
   リストから任意のシートを選択して「OK」をクリックするか、シートをダブルクリックして開くことができます。

   

Spreadでは、「シートの選択」ダイアログを開くには、次に示すように、BuiltInDialogs クラスの ActivateSheet メソッドを使用して、「シートの選択」ダイアログを開くこともできます。

// コードから「シートの選択」ダイアログを開きます
fpSpread1.Sheets.Count = 3;
FarPoint.Win.Spread.Dialogs.BuiltInDialogs.ActivateSheet(fpSpread1);

' コードから「シートの選択」ダイアログを開きます
fpSpread1.Sheets.Count = 3
FarPoint.Win.Spread.Dialogs.BuiltInDialogs.ActivateSheet(fpSpread1)

次のサンプルコードは、必要がない場合は、 「シートの選択」 ダイアログとツールヒントを非表示にし、タブストリップボタンを無効にすることができます。

「シートの選択」ダイアログを非表示にする

fpSpread1.GetActionMap().Parent?.Remove(SpreadActions.ShowActivateSheetDialog);

fpSpread1.GetActionMap().Parent?.Remove(SpreadActions.ShowActivateSheetDialog)

タブストリップボタンのツールチップを非表示にする

fpSpread1.SetToolTip(SpreadToolTip.TabStripNextSheet, "");
fpSpread1.SetToolTip(SpreadToolTip.TabStripPreviousSheet, "");

fpSpread1.SetToolTip(SpreadToolTip.TabStripNextSheet, "")
fpSpread1.SetToolTip(SpreadToolTip.TabStripPreviousSheet, "")

タブストリップボタンを無効にする

private void FpSpread1_MouseDown(object sender, MouseEventArgs e)
    {
      if ((Control.ModifierKeys & Keys.Control) != 0)
      {
        FpSpread spread = (FpSpread)sender;
        HitTestInformation ht = spread.HitTest(e.X, e.Y);
        if (ht.Type == HitTestType.TabStrip)
        {
          switch (ht.TabStripInfo.Button)
          {
            case TabStripButton.Next:
            case TabStripButton.Previous:
             spread.Capture = false;
             break;
          }
        }
      }
    }

Private Sub FpSpread1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    If (Control.ModifierKeys And Keys.Control) <> 0 Then
        Dim spread As FpSpread = CType(sender, FpSpread)
        Dim ht As HitTestInformation = spread.HitTest(e.X, e.Y)
        If ht.Type = HitTestType.TabStrip Then
            Select Case ht.TabStripInfo.Button
                Case TabStripButton.[Next], TabStripButton.Previous
                    spread.Capture = False
            End Select
        End If
    End If
End Sub

© MESCIUS inc. All rights reserved.