Compartir a través de

Ejemplo de objeto Page, control MultiPage y métodos Add, Clear y Remove

  • Artículo

En el ejemplo siguiente se usan los métodos Add, Clear y Remove para agregar y quitar un control a una página de una página múltiple en tiempo de ejecución.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un control MultiPage denominado MultiPage1.
  • Tres controles CommandButton denominados de CommandButton1 a CommandButton3.
Dim MyTextBox As Control 
 
Private Sub CommandButton1_Click() 
Set MyTextBox = MultiPage1.Pages(0).Controls.Add("MSForms" _ 
 & ".TextBox.1", "MyTextBox", Visible) 
End Sub 
 
Private Sub CommandButton2_Click() 
 MultiPage1.Pages(0).Controls.Clear 
End Sub 
 
Private Sub CommandButton3_Click() 
 If MultiPage1.Pages(0).Controls.Count > 0 Then 
 MultiPage1.Pages(0).Controls.Remove "MyTextBox" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Add control" 
 CommandButton2.Caption = "Clear controls" 
 CommandButton3.Caption = "Remove control" 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.