MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集
セルコメントを設定する

IRangeインターフェースのAddCommentメソッドを使用してセルにコメントを追加することができます。セルにコメントを追加するには、EnhancedShapeEngineプロパティを有効にする必要があります。

【実行例】

private void Form1_Load(object sender, System.EventArgs e)
 {
  // 拡張シェイプエンジンを有効にします
  fpSpread1.Features.EnhancedShapeEngine = true;
  string username = "太郎" + ":";
  // リッチテキストオブジェクトを初期化します
  GrapeCity.Spreadsheet.RichText richText = new GrapeCity.Spreadsheet.RichText(username + "リッチテキスト形式のコメントです。");
  // リッチテキストオブジェクトのスタイル定義
  GrapeCity.Spreadsheet.Font font = GrapeCity.Spreadsheet.Font.Empty;
  font.Bold = true;
  GrapeCity.Spreadsheet.Font font2 = GrapeCity.Spreadsheet.Font.Empty;
  font2.Italic = true;
  font2.Underline = GrapeCity.Spreadsheet.UnderlineStyle.Double;
  // リッチテキストにスタイルを追加します
  richText.Format(0, username.Length, font);
  richText.Format(13, 4, font2);
  // セルにコメントを追加します
  fpSpread1.AsWorkbook().ActiveSheet.Cells["B2"].AddComment(richText);
}
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  ' 拡張シェイプエンジンを有効にします
  FpSpread1.Features.EnhancedShapeEngine = True
  Dim username As String = "太郎" + ":"
  ' リッチテキストオブジェクトを初期化します
  Dim richText As New GrapeCity.Spreadsheet.RichText(username + "リッチテキスト形式のコメントです。")
  ' リッチテキストオブジェクトのスタイル定義
  Dim font As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  font.Bold = True
  Dim font2 As GrapeCity.Spreadsheet.Font = GrapeCity.Spreadsheet.Font.Empty
  font2.Italic = True
  font2.Underline = GrapeCity.Spreadsheet.UnderlineStyle.Double
  ' リッチテキストにスタイルを追加します
  richText.Format(0, username.Length, font)
  richText.Format(13, 4, font2)
  ' セルにコメントを追加します
  FpSpread1.AsWorkbook().ActiveSheet.Cells("B2").AddComment(richText)
 
End Sub

 

 


© MESCIUS inc. All rights reserved.