PowerTools SPREAD for Windows Forms 8.0J
Save(SheetSkin,String) メソッド


スキンの名前
スキンを保存するファイルのパスとファイル名。ファイルがすでに存在する場合は上書きされます。
スキンをファイルに保存します。
構文
'Declaration
 
Public Overloads Shared Sub Save( _
   ByVal skin As SheetSkin, _
   ByVal fileName As String _
) 
'使用法
 
Dim skin As SheetSkin
Dim fileName As String
 
SheetSkin.Save(skin, fileName)
public static void Save( 
   SheetSkin skin,
   string fileName
)

パラメータ

skin
スキンの名前
fileName
スキンを保存するファイルのパスとファイル名。ファイルがすでに存在する場合は上書きされます。
次のサンプルコードは、スキンを保存します。
FarPoint.Win.Spread.SheetSkin sk = new FarPoint.Win.Spread.SheetSkin("TestSkin", Color.White, Color.DarkGray, Color.Black,
Color.Blue, FarPoint.Win.Spread.GridLines.Both, Color.Blue, Color.Red, Color.White, Color.Black, Color.LightGray, Color.Gray,
false, false, true, true, true);

sk.Apply(fpSpread1);

SaveFileDialog sfd = new SaveFileDialog();
string s;
sfd.Filter = "skin files (*.skn)|*.skn";
sfd.FilterIndex = 2;
sfd.RestoreDirectory = true;
if (sfd.ShowDialog() == DialogResult.OK) 
{
    s = sfd.FileName;
    FarPoint.Win.Spread.SheetSkin.Save(sk,s);
}
Dim sk As New FarPoint.Win.Spread.SheetSkin("TestSkin", Color.White, Color.DarkGray, Color.Black, Color.Blue, FarPoint.Win.Spread.GridLines.Both,
Color.Blue, Color.Red, Color.White, Color.Black, Color.LightGray, Color.Gray, False, False, True, True, True)

sk.Apply(FpSpread1)

Dim sd As New SaveFileDialog()
Dim s As String
sd.Filter = "skin files (*.skn)|*.skn"
sd.FilterIndex = 2
sd.RestoreDirectory = True
If sd.ShowDialog() = DialogResult.OK Then
    s = sd.FileName
    If Not (s Is Nothing) Then
        FarPoint.Win.Spread.SheetSkin.Save(sk, s)
    End If
End If
参照

SheetSkin クラス
SheetSkin メンバ
オーバーロード一覧

開発者ガイド

スキンの保存

 

 


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