PowerTools SPREAD for Windows Forms 8.0J
ForeColor プロパティ (PreviewRowInfo)


プレビュー行のテキスト色を取得または設定します。
構文
'Declaration
 
Public Overridable Property ForeColor As Color
'使用法
 
Dim instance As PreviewRowInfo
Dim value As Color
 
instance.ForeColor = value
 
value = instance.ForeColor
public virtual Color ForeColor {get; set;}
次のサンプルコードは、プレビュー行を作成します。
private void Form1_Load(object sender, EventArgs e)
{
FarPoint.Win.BevelBorder bord = new FarPoint.Win.BevelBorder(FarPoint.Win.BevelBorderType.Raised, Color.Red, Color.Blue);
fpSpread1.Sheets[0].Cells[0, 1, 10, 1].Text = "Preview Row";
fpSpread1.Sheets[0].PreviewRowInfo.Visible = true;
fpSpread1.Sheets[0].PreviewRowInfo.BackColor = Color.BurlyWood;
fpSpread1.Sheets[0].PreviewRowInfo.ForeColor = Color.Black;
fpSpread1.Sheets[0].PreviewRowInfo.Border = bord;
}

private void fpSpread1_PreviewRowFetch(object sender, FarPoint.Win.Spread.PreviewRowFetchEventArgs e)
{
  FarPoint.Win.Spread.SheetView sheetView = e.View.GetSheetView();
  if (sheetView.SheetName == "Sheet1")
  {
    if (e.PreviewRowContent == string.Empty)
      e.PreviewRowContent = "The preview row content is empty";
    if ((e.Row + 1) % 2 == 0)
      e.PreviewRowContent = string.Format("Preview Row Content is: {0}", e.PreviewRowContent);
  }
}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bord As New FarPoint.Win.BevelBorder(FarPoint.Win.BevelBorderType.Raised, Color.DarkBlue, Color.Blue)
FpSpread1.Sheets(0).Cells(0, 1, 10, 1).Text = "Preview Row"
FpSpread1.Sheets(0).PreviewRowInfo.Visible = True
FpSpread1.Sheets(0).PreviewRowInfo.BackColor = Color.BurlyWood
FpSpread1.Sheets(0).PreviewRowInfo.ForeColor = Color.Black
FpSpread1.Sheets(0).PreviewRowInfo.Border = bord
End Sub

Private Sub FpSpread1_PreviewRowFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PreviewRowFetchEventArgs) Handles FpSpread1.PreviewRowFetch
        Dim sheetView As FarPoint.Win.Spread.SheetView
        sheetView = e.View.GetSheetView()
        If sheetView.SheetName = "Sheet1" Then
            If (e.PreviewRowContent = String.Empty) Then
                e.PreviewRowContent = "The preview row content is empty"
            End If
            If ((e.Row + 1) / 2 = 0) Then
                e.PreviewRowContent = String.Format("Preview Row Content is: {0}", e.PreviewRowContent)
            End If
        End If
End Sub
参照

PreviewRowInfo クラス
PreviewRowInfo メンバ

 

 


© 2004-2015, GrapeCity inc. All rights reserved.