Item メソッド、OptionButton コントロールの例

次の例では 、 Item メソッドを使用して 、Controls コレクションと Pages コレクションの個々のメンバーにアクセスします。

ユーザーは 、Controls コレクションまたは MultiPage のいずれかのオプション ボタンを選択し、 CommandButton をクリックします。 適切なコントロールの名前が Label に返されます。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

• CommandButton1 と命名された CommandButton
• ラベル ( Label ) コントロール (Label1)
• 2 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1 と OptionButton2)
• マルチ ページ ( MultiPage ) コントロール (MultiPage1)

Dim MyControl As Object 
Dim ControlsIndex As Integer 
 
Private Sub CommandButton1_Click() 
 If OptionButton1.Value = True Then 
 'Process Controls collection for UserForm 
 Set MyControl = Controls.Item(ControlsIndex) 
 Label1.Caption = MyControl.Name 
 
 'Prepare index for next control on Userform 
 ControlsIndex = ControlsIndex + 1 
 If ControlsIndex >= Controls.Count Then 
 ControlsIndex = 0 
 End If 
 
 ElseIf OptionButton2.Value = True Then 
 'Process Current Page of Pages collection 
 Set MyControl = MultiPage1.Pages _ 
 .Item(MultiPage1.Value) 
 Label1.Caption = MyControl.Name 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 ControlsIndex = 0 
 
 OptionButton1.Caption = "Controls Collection" 
 OptionButton2.Caption = "Pages Collection" 
 OptionButton1.Value = True 
 
 CommandButton1.Caption = "Get Member Name" 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。