FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > Top10FilterItem クラス : IsObjectValueEditable プロパティ |
'Declaration Public ReadOnly Property IsObjectValueEditable As Boolean
'使用法 Dim instance As Top10FilterItem Dim value As Boolean value = instance.IsObjectValueEditable
public bool IsObjectValueEditable {get;}
fpSpread1.Sheets[0].Cells[0, 1].Value = 30; fpSpread1.Sheets[0].Cells[1, 1].Value = 15; fpSpread1.Sheets[0].Cells[2, 1].Value = 10; FarPoint.Win.Spread.Top10FilterItem top10filter = new FarPoint.Win.Spread.Top10FilterItem(true, 5, false); FarPoint.Win.Spread.IRowFilter rowFilter = new FarPoint.Win.Spread.HideRowFilter(fpSpread1.ActiveSheet); FarPoint.Win.Spread.FilterColumnDefinition fd = new FarPoint.Win.Spread.FilterColumnDefinition(1, FarPoint.Win.Spread.FilterListBehavior.Custom); fd.Filters.Add(top10filter); rowFilter.ColumnDefinitions.Add(fd); fpSpread1.ActiveSheet.RowFilter = rowFilter; fpSpread1.ActiveSheet.AutoFilterColumn(1, top10filter.DisplayName, 0); fpSpread1.ActiveSheet.AutoFilterMode = FarPoint.Win.Spread.AutoFilterMode.EnhancedContextMenu; listBox1.Items.Add(top10filter.IsObjectValueEditable.ToString());
FpSpread1.Sheets(0).Cells(0, 1).Value = 30 FpSpread1.Sheets(0).Cells(1, 1).Value = 15 FpSpread1.Sheets(0).Cells(2, 1).Value = 10 Dim top10filter As New FarPoint.Win.Spread.Top10FilterItem(True, 5, False) Dim rowFilter As New FarPoint.Win.Spread.HideRowFilter(FpSpread1.ActiveSheet) Dim fd As New FarPoint.Win.Spread.FilterColumnDefinition(1, FarPoint.Win.Spread.FilterListBehavior.Custom) fd.Filters.Add(top10filter) rowFilter.ColumnDefinitions.Add(fd) FpSpread1.ActiveSheet.RowFilter = rowFilter FpSpread1.ActiveSheet.AutoFilterColumn(1, top10filter.DisplayName, 0) FpSpread1.ActiveSheet.AutoFilterMode = FarPoint.Win.Spread.AutoFilterMode.EnhancedContextMenu ListBox1.Items.Add(top10filter.IsObjectValueEditable.ToString())