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