ActiveReports 18 .NET Edition
MESCIUS.ActiveReports.Design.Win Assembly / GrapeCity.ActiveReports.Design Namespace / Selection Class / Count Property
Example

In This Topic
    Count Property (Selection)
    In This Topic
    Returns the number of selected objects.
    Syntax
    'Declaration
     
    Public ReadOnly Property Count As Integer
    public int Count {get;}
    Example
    /// <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;
                }
            }    
        }    
    }
    '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