GrapeCity ActiveReports for .NET 14.0J
Count プロパティ (Selection)
使用例 

GrapeCity.ActiveReports.Design.Win アセンブリ > GrapeCity.ActiveReports.Design 名前空間 > Selection クラス : Count プロパティ
選択したオブジェクトの数を返します。
シンタックス
'宣言
 
Public ReadOnly Property Count As Integer
public int Count {get;}
使用例
/// <概要>
/// SetClassName - 選択されているオブジェクトのClassNameを、ドロップダウンリストにある名前に設定する
/// </概要>
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":  //コントロールタイプがTextBoxです
                    ((GrapeCity.ActiveReports.SectionReportModel.TextBox)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
                case "GrapeCity.ActiveReports.SectionReportModel.Label":  //コントロールタイプがLabelです
                    ((GrapeCity.ActiveReports.SectionReportModel.Label)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
                case "GrapeCity.ActiveReports.SectionReportModel.CheckBox":  //コントロールタイプがCheckBoxです
                    ((GrapeCity.ActiveReports.SectionReportModel.CheckBox)this.ardMain.Selection[i]).ClassName = this.cboClassName.Text;
                    break;
            }
        }    
    }    
}
'SetClassName - 選択されているオブジェクトのClassNameを、ドロップダウンリストにある名前に設定する
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" 'コントロールタイプがTextBoxです
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.TextBox).ClassName = Me.cboClassName.Text
                Case "GrapeCity.ActiveReports.SectionReportModel.Label" 'コントロールタイプがLabelです
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.Label).ClassName = Me.cboClassName.Text
                Case "GrapeCity.ActiveReports.SectionReportModel.CheckBox" 'コントロールタイプがCheckBoxです
                    CType(Me.ardMain.Selection(i), GrapeCity.ActiveReports.SectionReportModel.CheckBox).ClassName = Me.cboClassName.Text
            End Select
        End If
    Next i
End Sub 'SetClassName
参照

Selection クラス
Selection メンバ