Count プロパティ (Selection)

選択したオブジェクトの数を返します。

構文

Visual Basic
C#

'宣言
 
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;
            }
        }    
    }    
}

Visual Basic

'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

参照

関連項目