PowerTools ActiveReports for .NET 11.0J
Item プロパティ (Selection)
使用例 

選択したアイテムのインデックスを示します。
指定した選択アイテムへの参照を返します。
構文
'宣言
 
Public ReadOnly Default Property Item( _
   ByVal index As Integer _
) As Object
public object this[ 
   int index
]; {get;}

パラメータ

index
選択したアイテムのインデックスを示します。
使用例
/// <概要>
/// 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 "DGrapeCity.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 メンバ

 

 


©2003-2017 GrapeCity inc. All rights reserved.