MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集
コマンドを実行する

リボンコントロールのボタンはコマンドという形で管理されており、ボタンの押下時はコマンドが実行されます。また、ExecuteCommand関数を使用してコードからコマンドを実行できます。

以下のサンプルではセルにテストデータを設定した後にセル範囲を選択して、コマンドでフォント名とフォントサイズを設定しています。

【実行例】

private void Form1_Load(object sender, EventArgs e)
 {
  // リボンコントロールとSPREADコントロールを関連付けます
  ribbonBar1.Attach(fpSpread1);

  // テストデータを設定します
  fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 0].Value = "名前";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 1].Value = "性別";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 2].Value = "報酬";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 3].Value = "職業";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 0].Value = "佐藤";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 1].Value = "男";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 2].Value = 300000;
  fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 3].Value = "教師";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 0].Value = "高橋";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 1].Value = "男";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 2].Value = 300000;
  fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 3].Value = "エンジニア";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 0].Value = "木村";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 1].Value = "女";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 2].Value = 320000;
  fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 3].Value = "教師";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 0].Value = "高山";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 1].Value = "女";
  fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 2].Value = 270000;
  fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 3].Value = "会計士";

  // データ領域を選択します
  fpSpread1.AsWorkbook().ActiveSheet.Cells["A1:D5"].Select();

  // コマンドを使用してフォント名とフォントサイズを変更します
  ribbonBar1.ExecuteCommand("FontName", "メイリオ");
  ribbonBar1.ExecuteCommand("FontSize", 10);
 }
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  ' リボンコントロールとSPREADコントロールを関連付けます
  RibbonBar1.Attach(FpSpread1)

  ' テストデータを設定します
  FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Value = "名前"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 1).Value = "性別"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 2).Value = "報酬"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 3).Value = "職業"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 0).Value = "佐藤"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 1).Value = "男"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 2).Value = 300000
  FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 3).Value = "教師"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 0).Value = "高橋"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 1).Value = "男"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 2).Value = 300000
  FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 3).Value = "エンジニア"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 0).Value = "木村"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 1).Value = "女"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 2).Value = 320000
  FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 3).Value = "教師"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 0).Value = "高山"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 1).Value = "女"
  FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 2).Value = 270000
  FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 3).Value = "会計士"

  ' データ領域を選択します
  FpSpread1.AsWorkbook().ActiveSheet.Cells("A1:D5").Select()

  ' コマンドを使用してフォント名とフォントサイズを変更します
  RibbonBar1.ExecuteCommand("FontName", "メイリオ")
  RibbonBar1.ExecuteCommand("FontSize", 10)
 End Sub

 

 


© MESCIUS inc. All rights reserved.