FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > IRangeGroupSupport インタフェース > ExpandRangeGroup メソッド : ExpandRangeGroup(Int32,Int32,Boolean,Boolean) メソッド |
'Declaration Overloads Sub ExpandRangeGroup( _ ByVal level As Integer, _ ByVal endIndex As Integer, _ ByVal isRowGroup As Boolean, _ ByVal expand As Boolean _ )
'使用法 Dim instance As IRangeGroupSupport Dim level As Integer Dim endIndex As Integer Dim isRowGroup As Boolean Dim expand As Boolean instance.ExpandRangeGroup(level, endIndex, isRowGroup, expand)
fpSpread1.ActiveSheet.AddRangeGroup(0, 20, true); fpSpread1.ActiveSheet.AddRangeGroup(0, 10, true); fpSpread1.ActiveSheet.RangeGroupBackGroundColor = Color.Yellow; fpSpread1.ActiveSheet.RangeGroupButtonStyle = FarPoint.Win.Spread.RangeGroupButtonStyle.Enhanced; FarPoint.Win.Spread.IRangeGroupSupport rangeGroupSupport = (FarPoint.Win.Spread.IRangeGroupSupport)fpSpread1.ActiveSheet; if (rangeGroupSupport == null) { return; } rangeGroupSupport.ExpandRangeGroup(2, 9, true, true);
FpSpread1.ActiveSheet.AddRangeGroup(0, 20, True) FpSpread1.ActiveSheet.AddRangeGroup(0, 10, True) FpSpread1.ActiveSheet.RangeGroupBackGroundColor = Color.Yellow FpSpread1.ActiveSheet.RangeGroupButtonStyle = FarPoint.Win.Spread.RangeGroupButtonStyle.Enhanced Dim rangeGroupSupport As FarPoint.Win.Spread.IRangeGroupSupport = CType(FpSpread1.ActiveSheet, FarPoint.Win.Spread.IRangeGroupSupport) If rangeGroupSupport Is Nothing Then Return End If rangeGroupSupport.ExpandRangeGroup(2, 9, True, True)