FarPoint.Win.Spread Assembly > FarPoint.Win.Spread.Model Namespace > GroupDataModel Class : GetColumnName Method |
'Usage Dim instance As GroupDataModel Dim column As Integer Dim value As String value = instance.GetColumnName(column)
fpSpread1.AllowColumnMove = true; fpSpread1.ActiveSheet.GroupBarInfo.Visible = true; fpSpread1.ActiveSheet.AllowGroup = true; FarPoint.Win.Spread.GroupInfo gi = new FarPoint.Win.Spread.GroupInfo(); gi.BackColor = Color.Yellow; FarPoint.Win.Spread.GroupInfo gi2 = new FarPoint.Win.Spread.GroupInfo(); gi2.BackColor = Color.Green; FarPoint.Win.Spread.GroupInfoCollection gic = new FarPoint.Win.Spread.GroupInfoCollection(); gic.AddRange(new FarPoint.Win.Spread.GroupInfo[] { gi, gi2 }); fpSpread1.ActiveSheet.GroupInfos.Add(gic[0]); private void button1Click(object sender, EventArgs e) { FarPoint.Win.Spread.Model.GroupDataModel gm; if ((fpSpread1.ActiveSheet.Models.Data) is FarPoint.Win.Spread.Model.GroupDataModel) { gm = (FarPoint.Win.Spread.Model.GroupDataModel)fpSpread1.ActiveSheet.Models.Data; if ((gm.TargetModel) is FarPoint.Win.Spread.Model.IRangeSupport) { FarPoint.Win.Spread.Model.IRangeSupport im = (FarPoint.Win.Spread.Model.IRangeSupport)gm.TargetModel; bool b; b = gm.IsGroup(0); string s = gm.GetColumnName(2); MessageBox.Show(s); } }
FpSpread1.AllowColumnMove = True FpSpread1.ActiveSheet.GroupBarInfo.Visible = True FpSpread1.ActiveSheet.AllowGroup = True Dim gi As New FarPoint.Win.Spread.GroupInfo gi.BackColor = Color.Yellow Dim gi2 As New FarPoint.Win.Spread.GroupInfo gi2.BackColor = Color.Green Dim gic As New FarPoint.Win.Spread.GroupInfoCollection() gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2}) FpSpread1.ActiveSheet.GroupInfos.Add(gic(0)) Private Sub Button1Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim gm As FarPoint.Win.Spread.Model.GroupDataModel If TypeOf (FpSpread1.ActiveSheet.Models.Data) Is FarPoint.Win.Spread.Model.GroupDataModel Then gm = FpSpread1.ActiveSheet.Models.Data If TypeOf (gm.TargetModel) Is FarPoint.Win.Spread.Model.IRangeSupport Then Dim im As FarPoint.Win.Spread.Model.IRangeSupport = gm.TargetModel Dim b As Boolean b = gm.IsGroup(0) Dim s As String = gm.GetColumnName(2) MsgBox(s) End If End If End Sub
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8