Visual Basic (Usage) | Copy Code |
---|---|
Dim instance As GroupDataModel Dim column As Integer Dim value As String value = instance.GetColumnName(column) |
Parameters
- column
- Column index
C# | Copy Code |
---|---|
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); } } |
Visual Basic | Copy Code |
---|---|
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 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2