Exemplo do método Item, do controle OptionButton

O exemplo seguinte utiliza o método Item para aceder a membros individuais das coleções Controlos e Páginas .

O utilizador escolhe um botão de opção para a coleção Controlos ou Para Várias Páginas e, em seguida, clica no CommandButton. O nome do controlo adequado é devolvido na Etiqueta.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Um CommandButton denominado CommandButton1.
• Um Label denominado Label1.
• Dois controlos OptionButton denominados OptionButton1 e OptionButton2.
• A MultiPage named 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.