FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > IRangeGroupSupport インタフェース > ExpandRangeGroup メソッド : ExpandRangeGroup(RangeGroupInfo,Boolean,Boolean) メソッド |
'Declaration Overloads Sub ExpandRangeGroup( _ ByVal group As RangeGroupInfo, _ ByVal isRowGroup As Boolean, _ ByVal expand As Boolean _ )
'使用法 Dim instance As IRangeGroupSupport Dim group As RangeGroupInfo Dim isRowGroup As Boolean Dim expand As Boolean instance.ExpandRangeGroup(group, isRowGroup, expand)
void ExpandRangeGroup( RangeGroupInfo group, bool isRowGroup, bool 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; } FarPoint.Win.Spread.RangeGroupInfo[] rgi = rangeGroupSupport.GetRangeGroupInfo(2, true); rangeGroupSupport.ExpandRangeGroup(rgi[0], 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 Dim rgi() As FarPoint.Win.Spread.RangeGroupInfo = rangeGroupSupport.GetRangeGroupInfo(2, True) rangeGroupSupport.ExpandRangeGroup(rgi(0), True, True)