FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > PreviewRowInfo クラス : Border プロパティ |
'Declaration Public Overridable Property Border As IBorder
'使用法 Dim instance As PreviewRowInfo Dim value As IBorder instance.Border = value value = instance.Border
public virtual IBorder Border {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