FarPoint.Win.Spread アセンブリ > FarPoint.Win.Spread 名前空間 > SortInfo クラス : Comparer プロパティ |
'Declaration
Public Overridable Property Comparer As IComparer
public virtual IComparer Comparer {get; set;}
このプロパティは、比較方法を決定する IComparer オブジェクトを取得または設定します。値が Null の場合は、System.Collections.Comparer.Default が使用されます。
FarPoint.Win.Spread.SortInfo[] sort = new FarPoint.Win.Spread.SortInfo[1]; sort[0] = new FarPoint.Win.Spread.SortInfo(0, true, System.Collections.Comparer.Default); bool b; int i; System.Collections.Comparer; sort[0] = New FarPoint.Win.Spread.SortInfo(0, True, System.Collections.Comparer.Default) b = sort[0].Ascending c = sort[0].Comparer i = sort[0].Index fpSpread1.ActiveSheet.SetValue(0, 0, "S"); fpSpread1.ActiveSheet.SetValue(0, 1, "E"); fpSpread1.ActiveSheet.SetValue(0, 2, "A"); fpSpread1.ActiveSheet.SetValue(0, 3, "K"); fpSpread1.ActiveSheet.SetValue(1, 0, "W"); fpSpread1.ActiveSheet.SetValue(1, 1, "G"); fpSpread1.ActiveSheet.SetValue(1, 2, "P"); fpSpread1.ActiveSheet.SetValue(1, 3, "V"); fpSpread1.ActiveSheet.SetValue(2, 0, "O"); fpSpread1.ActiveSheet.SetValue(2, 1, "L"); fpSpread1.ActiveSheet.SetValue(2, 2, "Q"); fpSpread1.ActiveSheet.SetValue(2, 3, "H"); fpSpread1.ActiveSheet.SortColumns(0, 2, sort); label1.Text = "Is the sort ascending is " + b.ToString() + " and the type of comparer is " + Convert.ToString(c) + " and the index is " + i.ToString();
Dim sort(1) As FarPoint.Win.Spread.SortInfo Dim b As Boolean Dim i As Integer Dim c As System.Collections.Comparer sort(0) = New FarPoint.Win.Spread.SortInfo(0, True, System.Collections.Comparer.Default) b = sort(0).Ascending c = sort(0).Comparer i = sort(0).Index FpSpread1.ActiveSheet.SetValue(0, 0, "S") FpSpread1.ActiveSheet.SetValue(0, 1, "E") FpSpread1.ActiveSheet.SetValue(0, 2, "A") FpSpread1.ActiveSheet.SetValue(0, 3, "K") FpSpread1.ActiveSheet.SetValue(1, 0, "W") FpSpread1.ActiveSheet.SetValue(1, 1, "G") FpSpread1.ActiveSheet.SetValue(1, 2, "P") FpSpread1.ActiveSheet.SetValue(1, 3, "V") FpSpread1.ActiveSheet.SetValue(2, 0, "O") FpSpread1.ActiveSheet.SetValue(2, 1, "L") FpSpread1.ActiveSheet.SetValue(2, 2, "Q") FpSpread1.ActiveSheet.SetValue(2, 3, "H") FpSpread1.ActiveSheet.SortColumns(0, 2, sort) Label1.Text = "Is the sort ascending is " & b.ToString() & " and the type of comparer is " & Convert.ToString(c) & " and the index is " & i.ToString()