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