FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SpreadView クラス : SortAscendingImage フィールド |
'Declaration Public Const SortAscendingImage As Integer
'使用法 Dim value As Integer value = SpreadView.SortAscendingImage
public const int SortAscendingImage
FarPoint.Win.Spread.SpreadView wrkbk = fpSpread1.GetRootWorkbook(); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortAscendingImage, Image.FromFile("D:\\up.bmp")); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortAscendingImageDisabled, Image.FromFile("D:\\up-dis.bmp")); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortDescendingImage, Image.FromFile("D:\\down.bmp")); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortDescendingImageDisabled, Image.FromFile("D:\\down-dis.bmp")); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortUnsortedImage, Image.FromFile("D:\\unsort.bmp")); wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortUnsortedImageDisabled, Image.FromFile("D:\\unsort-dis.bmp")); Random r = new Random(); int i, j = 0; for (i = 0; i <= 7; i++) for (j = 0; j<= 7; j++) { fpSpread1.ActiveSheet.SetValue(i, j, r.Next().ToString()); } fpSpread1.ActiveSheet.Columns[0].AllowAutoSort = true; Image indicator; indicator = wrkbk.GetImage(4); pictureBox1.Image = indicator;
Dim wrkbk As FarPoint.Win.Spread.SpreadView = FpSpread1.GetRootWorkbook() wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortAscendingImage, Image.FromFile("D:\up.bmp")) wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortAscendingImageDisabled, Image.FromFile("D:\up-dis.bmp")) wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortDescendingImage, Image.FromFile("D:\down.bmp")) wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortDescendingImageDisabled, Image.FromFile("D:\down-dis.bmp")) wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortUnsortedImage, Image.FromFile("D:\unsort.bmp")) wrkbk.SetImage(FarPoint.Win.Spread.SpreadView.SortUnsortedImageDisabled, Image.FromFile("D:\unsort-dis.bmp")) Dim r As New Random Dim i, j As Integer For i = 0 To 7 For j = 0 To 7 FpSpread1.ActiveSheet.SetValue(i, j, r.Next.ToString()) Next j Next i FpSpread1.ActiveSheet.Columns(0).AllowAutoSort = True Dim indicator As Image indicator = wrkbk.GetImage(4) PictureBox1.Image = indicator