作成日: 2018/07/20 最終更新日: 2018/07/20
文書種別
使用方法
詳細
シートタブをクリックしたときにはSheetTabClickイベントが発生しますので、その中で独自のコンテキストメニューを表示することができます。
◎サンプルコード(VB)
◎サンプルコード(C#)
◎サンプルコード(VB)
Imports FarPoint.Win.Spread
Public Class Form1
Private WithEvents sheetMenu As New ContextMenuStrip()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' シートの追加
FpSpread1.Sheets.Clear()
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
' シートタブの設定
FpSpread1.AllowSheetMove = True
FpSpread1.TabStripPolicy = TabStripPolicy.Always
FpSpread1.TabStripRatio = 0.7
' シートタブ用コンテキストメニューの設定
sheetMenu.Items.Add("追加")
sheetMenu.Items.Add("削除")
End Sub
Private Sub FpSpread1_SheetTabClick(sender As Object, e As SheetTabClickEventArgs) Handles FpSpread1.SheetTabClick
' マウスの右ボタンがクリックされた場合
If Control.MouseButtons = MouseButtons.Right Then
sheetMenu.Tag = e.SheetTabIndex ' 対象となるシート番号の保存
sheetMenu.Show(Control.MousePosition) ' シートタブ用コンテキストメニューの表示
End If
End Sub
Private Sub sheetMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles sheetMenu.ItemClicked
Select Case e.ClickedItem.Text
Case "追加"
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
Case "削除"
If Not sheetMenu.Tag Is Nothing Then
FpSpread1.Sheets.RemoveAt(CInt(sheetMenu.Tag))
End If
End Select
End Sub
End Class
Public Class Form1
Private WithEvents sheetMenu As New ContextMenuStrip()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' シートの追加
FpSpread1.Sheets.Clear()
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
' シートタブの設定
FpSpread1.AllowSheetMove = True
FpSpread1.TabStripPolicy = TabStripPolicy.Always
FpSpread1.TabStripRatio = 0.7
' シートタブ用コンテキストメニューの設定
sheetMenu.Items.Add("追加")
sheetMenu.Items.Add("削除")
End Sub
Private Sub FpSpread1_SheetTabClick(sender As Object, e As SheetTabClickEventArgs) Handles FpSpread1.SheetTabClick
' マウスの右ボタンがクリックされた場合
If Control.MouseButtons = MouseButtons.Right Then
sheetMenu.Tag = e.SheetTabIndex ' 対象となるシート番号の保存
sheetMenu.Show(Control.MousePosition) ' シートタブ用コンテキストメニューの表示
End If
End Sub
Private Sub sheetMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles sheetMenu.ItemClicked
Select Case e.ClickedItem.Text
Case "追加"
FpSpread1.Sheets.Add(New FarPoint.Win.Spread.SheetView())
Case "削除"
If Not sheetMenu.Tag Is Nothing Then
FpSpread1.Sheets.RemoveAt(CInt(sheetMenu.Tag))
End If
End Select
End Sub
End Class
◎サンプルコード(C#)
using FarPoint.Win.Spread;
namespace sampleCS
{
public partial class Form1 : Form
{
private ContextMenuStrip sheetMenu;
public Form1()
{
InitializeComponent();
sheetMenu = new ContextMenuStrip();
sheetMenu.ItemClicked += SheetMenu_ItemClicked;
}
private void Form1_Load(object sender, EventArgs e)
{
// シートの追加
fpSpread1.Sheets.Clear();
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
// シートタブの設定
fpSpread1.AllowSheetMove = true;
fpSpread1.TabStripPolicy = TabStripPolicy.Always;
fpSpread1.TabStripRatio = 0.7;
// シートタブ用コンテキストメニューの設定
sheetMenu.Items.Add("追加");
sheetMenu.Items.Add("削除");
}
private void fpSpread1_SheetTabClick(object sender, SheetTabClickEventArgs e)
{
// マウスの右ボタンがクリックされた場合
if (Control.MouseButtons == MouseButtons.Right)
{
sheetMenu.Tag = e.SheetTabIndex; // 対象となるシート番号の保存
sheetMenu.Show(Control.MousePosition); // シートタブ用コンテキストメニューの表示
}
}
private void SheetMenu_ItemClicked(object sender, ToolStripItemClickedEventArgs e)
{
switch (e.ClickedItem.Text)
{
case "追加":
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
break;
case "削除":
if (sheetMenu.Tag != null)
{
fpSpread1.Sheets.RemoveAt(Convert.ToInt32(sheetMenu.Tag));
}
break;
}
}
}
}
namespace sampleCS
{
public partial class Form1 : Form
{
private ContextMenuStrip sheetMenu;
public Form1()
{
InitializeComponent();
sheetMenu = new ContextMenuStrip();
sheetMenu.ItemClicked += SheetMenu_ItemClicked;
}
private void Form1_Load(object sender, EventArgs e)
{
// シートの追加
fpSpread1.Sheets.Clear();
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
// シートタブの設定
fpSpread1.AllowSheetMove = true;
fpSpread1.TabStripPolicy = TabStripPolicy.Always;
fpSpread1.TabStripRatio = 0.7;
// シートタブ用コンテキストメニューの設定
sheetMenu.Items.Add("追加");
sheetMenu.Items.Add("削除");
}
private void fpSpread1_SheetTabClick(object sender, SheetTabClickEventArgs e)
{
// マウスの右ボタンがクリックされた場合
if (Control.MouseButtons == MouseButtons.Right)
{
sheetMenu.Tag = e.SheetTabIndex; // 対象となるシート番号の保存
sheetMenu.Show(Control.MousePosition); // シートタブ用コンテキストメニューの表示
}
}
private void SheetMenu_ItemClicked(object sender, ToolStripItemClickedEventArgs e)
{
switch (e.ClickedItem.Text)
{
case "追加":
fpSpread1.Sheets.Add(new FarPoint.Win.Spread.SheetView());
break;
case "削除":
if (sheetMenu.Tag != null)
{
fpSpread1.Sheets.RemoveAt(Convert.ToInt32(sheetMenu.Tag));
}
break;
}
}
}
}
旧文書番号
83066