ActiveReports Developer 7
Count Property
See Also  Example
GrapeCity.ActiveReports.Design.Win.v7 Assembly > GrapeCity.ActiveReports.Design Namespace > Selection Class : Count Property

Glossary Item Box

Returns the number of selected objects.

Syntax

Visual Basic (Declaration) 
Public ReadOnly Property Count As System.Integer
C# 
public System.int Count {get;}

Example

C#Copy Code
/// <summary>
/// SetClassName - sets the ClassName of the selected object to the name in the drop down list
/// </summary>
private void SetClassName()
{
    for(int i=0;i<this.ardMain.Selection.Count;i++)
    {
        string ctl = this.ardMain.Selection[i].GetType().ToString();
        if((ctl.IndexOf("TextBox") >0)||(ctl.IndexOf("CheckBox") >0)||(ctl.IndexOf("Label") >0))
        {
            switch(ctl)
            {
                case "GrapeCity.ActiveReports.SectionReportModel.TextBox":  //Control type is TextBox
                    ((GrapeCity.ActiveReports.SectionReportModel.TextBox)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
                case "GrapeCity.ActiveReports.SectionReportModel.Label":  //Control type is Label
                    ((GrapeCity.ActiveReports.SectionReportModel.Label)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
                case "GrapeCity.ActiveReports.SectionReportModel.CheckBox":  //Control type is CheckBox
                    ((GrapeCity.ActiveReports.SectionReportModel.CheckBox)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
            }
        }    
    }    
}
Visual BasicCopy Code
'SetClassName - sets the ClassName of the selected object to the name in the drop down list
Private Sub SetClassName()
    Dim i As Integer
    For i = 0 To (Me.ardMain.Selection.Count) - 1
        Dim ctl As String = Me.ardMain.Selection(i).GetType().ToString()
        If ctl.IndexOf("TextBox") > 0 OrElse ctl.IndexOf("CheckBox") > 0 OrElse ctl.IndexOf("Label") > 0 Then
            Select Case ctl
                Case "GrapeCity.ActiveReports.SectionReportModel.TextBox" 'Control type is TextBox
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.TextBox).ClassName = Me.cboClassName.Text
                Case "GrapeCity.ActiveReports.SectionReportModel.Label" 'Control type is Label
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.Label).ClassName = Me.cboClassName.Text
                Case "GrapeCity.ActiveReports.SectionReportModel.CheckBox" 'Control type is CheckBox
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.CheckBox).ClassName = Me.cboClassName.Text
            End Select
        End If
    Next i
End Sub 'SetClassName

See Also