PowerTools SPREAD for Windows Forms 8.0J
ResetLocked メソッド (NamedStyle)


シートが保護されている場合にこのスタイルがセルの編集を許可するかどうかをスタイルのデフォルト設定(未設定状態)にリセットします。
構文
'Declaration
 
Public Overrides Sub ResetLocked() 
'使用法
 
Dim instance As NamedStyle
 
instance.ResetLocked()
public override void ResetLocked()
次のサンプルコードは、いくつかのプロパティをデフォルト値にリセットします。
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 メンバ

 

 


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