FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > Top10FilterItem クラス : Top10FilterItem コンストラクタ |
'Declaration Public Function New( _ ByVal descending As Boolean, _ ByVal number As Integer, _ ByVal isPercent As Boolean _ )
'使用法 Dim descending As Boolean Dim number As Integer Dim isPercent As Boolean Dim instance As New Top10FilterItem(descending, number, isPercent)
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;
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