MESCIUS SPREAD for Windows Forms 17.0J
ResetBorder メソッド (NamedStyle)

スタイルの境界線をデフォルト設定(未設定状態)にリセットします。
構文
'Declaration
 
Public Overrides Sub ResetBorder() 
public override void ResetBorder()
次のサンプルコードは、いくつかのプロパティをデフォルト値にリセットします。
DialogResult dlg; 
FarPoint.Win.Spread.NamedStyle ns = new FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault");
ns.BackColor = Color.LightBlue;
ns.Border = new FarPoint.Win.LineBorder(Color.DarkBlue, 2);
ns.CanFocus = true;
ns.CellType = new FarPoint.Win.Spread.CellType.TextCellType();
ns.Editor = new FarPoint.Win.Spread.CellType.TextCellType();
ns.Font = new Font("Comic Sans Serif", 12);
ns.ForeColor = Color.Red;
ns.Formatter = new FarPoint.Win.Spread.CellType.TextCellType();
ns.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right;
ns.Locked = true;
ns.Name = "StyleData";
ns.NoteIndicatorColor =  Color.Green;
ns.Parent = "DataAreaDefault";
ns.Renderer = new FarPoint.Win.Spread.CellType.TextCellType();
ns.TabStop = true;
ns.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Bottom;
fpSpread1.NamedStyles.Add(ns);
fpSpread1.ActiveSheet.Cells[0, 0].StyleName = "StyleData";
fpSpread1.ActiveSheet.SetText(0, 0, "NamedStyle");
fpSpread1.ActiveSheet.Columns[0].Width = 120;
fpSpread1.ActiveSheet.Rows[0].Height = 80;
dlg = MessageBox.Show("Do you want to reset the named style?", "Reset", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
      ns.ResetBackColor();
      ns.ResetBorder();
      ns.ResetCanFocus();
      ns.ResetCellType();
      ns.ResetEditor();
      ns.ResetFont();
      ns.ResetForeColor();
      ns.ResetFormatter();
      ns.ResetHorizontalAlignment();
      ns.ResetLocked();
      ns.NoteIndicatorColor();
      ns.ResetParent();
      ns.ResetProperty(FarPoint.Win.Spread.SheetStyleProperty.VerticalAlignment);
      ns.ResetRenderer();
      ns.TabStop();
      ns.ResetVerticalAlignment();
}
Dim dlg As DialogResult
Dim ns As New FarPoint.Win.Spread.NamedStyle("StyleData", "DataAreaDefault")
ns.BackColor = Color.LightBlue
ns.Border = New FarPoint.Win.LineBorder(Color.DarkBlue, 2)
ns.CanFocus = True
ns.CellType = New FarPoint.Win.Spread.CellType.TextCellType()
ns.Editor = New FarPoint.Win.Spread.CellType.TextCellType()
ns.Font = New Font("Comic Sans Serif", 12)
ns.ForeColor = Color.Red
ns.Formatter = New FarPoint.Win.Spread.CellType.TextCellType()
ns.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
ns.Locked = True
ns.Name = "StyleData"
ns.NoteIndicatorColor = Color.Green
ns.Parent = "DataAreaDefault"
ns.Renderer = New FarPoint.Win.Spread.CellType.TextCellType()
ns.TabStop = True
ns.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Bottom
FpSpread1.NamedStyles.Add(ns)
FpSpread1.ActiveSheet.Cells(0, 0).StyleName = "StyleData"
FpSpread1.ActiveSheet.SetText(0, 0, "NamedStyle")
FpSpread1.ActiveSheet.Columns(0).Width = 120
FpSpread1.ActiveSheet.Rows(0).Height = 80
dlg = MessageBox.Show("Do you want to reset the named style?", "Reset", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
      ns.ResetBackColor()
      ns.ResetBorder()
      ns.ResetCanFocus()
      ns.ResetCellType()
      ns.ResetEditor()
      ns.ResetFont()
      ns.ResetForeColor()
      ns.ResetFormatter()
      ns.ResetHorizontalAlignment()
      ns.ResetLocked()
      ns.ResetNoteIndicatorColor()
      ns.ResetParent()
      ns.ResetProperty(FarPoint.Win.Spread.SheetStyleProperty.VerticalAlignment)
      ns.ResetRenderer()
      ns.TabStop()
      ns.ResetVerticalAlignment()
End If
参照

NamedStyle クラス
NamedStyle メンバ

 

 


© MESCIUS inc. All rights reserved.