作成日: 2017/07/18 最終更新日: 2017/12/22
文書種別
不具合
状況
修正済み
詳細
この現象は、以下の手順で確認できます。
【実行手順】
1. フォームにSPREADを配置します
2. 以下のサンプルコードをコピーして実行します
--- NullReferenceExceptionが発生します
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim skin As New FarPoint.Win.Spread.SpreadSkin("test", FpSpread1)
skin.DefaultStyle.BackColor = Color.AntiqueWhite
End Sub
【実行手順】
1. フォームにSPREADを配置します
2. 以下のサンプルコードをコピーして実行します
--- NullReferenceExceptionが発生します
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim skin As New FarPoint.Win.Spread.SpreadSkin("test", FpSpread1)
skin.DefaultStyle.BackColor = Color.AntiqueWhite
End Sub
回避方法
Service Pack 2（v10.0.4006.2012）で修正済み。
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
次のようにコーディングすることで、回避できます。
なお、以下のように、SPREADの既定スキンを変更した場合、この変更はフォーム上の全ての既定スキンを使用するSPREADに適用されます。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim skin As New FarPoint.Win.Spread.SpreadSkin("test", FpSpread1)
Dim skin As FarPoint.Win.Spread.SpreadSkin = TryCast(FpSpread1.Skin.Clone(), FarPoint.Win.Spread.SpreadSkin)
skin.Name = "test"
skin.DefaultStyle.BackColor = Color.AntiqueWhite
End Sub
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
次のようにコーディングすることで、回避できます。
なお、以下のように、SPREADの既定スキンを変更した場合、この変更はフォーム上の全ての既定スキンを使用するSPREADに適用されます。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim skin As New FarPoint.Win.Spread.SpreadSkin("test", FpSpread1)
Dim skin As FarPoint.Win.Spread.SpreadSkin = TryCast(FpSpread1.Skin.Clone(), FarPoint.Win.Spread.SpreadSkin)
skin.Name = "test"
skin.DefaultStyle.BackColor = Color.AntiqueWhite
End Sub
旧文書番号
40808