作成日: 2017/04/25 最終更新日: 2017/12/22
文書種別
不具合
状況
修正済み
詳細
以下、GcNumber型セルの例です。
【手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
- 1列目のセルはロックされていますが、
GcNumber型セル（A1セル）のサイドボタンの外観が、無効化された表示になりません。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'VisualStylesをOffにします
FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
'1列目をロックします
FpSpread1.ActiveSheet.Columns(0).Locked = True
'GcNumber型セルを設定
Dim gcNum As New GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType()
FpSpread1.ActiveSheet.Cells(0, 0).CellType = gcNum
End Sub
【手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
- 1列目のセルはロックされていますが、
GcNumber型セル（A1セル）のサイドボタンの外観が、無効化された表示になりません。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'VisualStylesをOffにします
FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
'1列目をロックします
FpSpread1.ActiveSheet.Columns(0).Locked = True
'GcNumber型セルを設定
Dim gcNum As New GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType()
FpSpread1.ActiveSheet.Cells(0, 0).CellType = gcNum
End Sub
回避方法
Service Pack 2（v10.0.4006.2012）で修正済み。
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
InputManセルのSideButtonsプロパティでサイドボタンを参照し、EnabledプロパティをFalseに設定することで無効化された外観で表示できます。
以下、GcNumber型セルの例です。
【サンプルコード】
If TypeOf FpSpread1.ActiveSheet.GetCellType(0, 0) Is GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType Then
Dim gcNumCell As GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType = CType(FpSpread1.ActiveSheet.GetCellType(0, 0), GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType)
'サイドボタンを無効化します
gcNumCell.SideButtons(0).Enabled = False
End If
Service Pack 2より前のバージョンでは次の回避方法が有効です。
------------------------------------------
InputManセルのSideButtonsプロパティでサイドボタンを参照し、EnabledプロパティをFalseに設定することで無効化された外観で表示できます。
以下、GcNumber型セルの例です。
【サンプルコード】
If TypeOf FpSpread1.ActiveSheet.GetCellType(0, 0) Is GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType Then
Dim gcNumCell As GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType = CType(FpSpread1.ActiveSheet.GetCellType(0, 0), GrapeCity.Win.Spread.InputMan.CellType.GcNumberCellType)
'サイドボタンを無効化します
gcNumCell.SideButtons(0).Enabled = False
End If
旧文書番号
40322