FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > IRangeGroupSupport インタフェース : GetRangeGroupInfo メソッド |
'Declaration Function GetRangeGroupInfo( _ ByVal level As Integer, _ ByVal isRowGroup As Boolean _ ) As RangeGroupInfo()
'使用法 Dim instance As IRangeGroupSupport Dim level As Integer Dim isRowGroup As Boolean Dim value() As RangeGroupInfo value = instance.GetRangeGroupInfo(level, isRowGroup)
RangeGroupInfo[] GetRangeGroupInfo( int level, bool isRowGroup )
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)