Nombre de objeto asignado por variable
Teno un formulario con varios Combobox y Textbox. Los numere correlativamente (Combobox1, 2, 3 etc. Al igual que los Textbox) Quiero que al cumplirse una cierta condicion los mismo se hagan visibles o no. Como hago para que mediante una variable asignada en un For.. Next la misma asuma que es el nombre de objeto y lo haga visible con la instrucción .visible=true
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo el código, cambia el 3 por el número de textbox y de combos.
Private Sub CommandButton1_Click()
'Por.Dante Amor
'hacer visibles los textbox
For i = 1 To 3
Me.Controls("TextBox" & i).Visible = True
Next
'hacer visibles los combox
For i = 1 To 3
Me.Controls("ComboBox" & i).Visible = True
Next
End Sub
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
'ocultar los textbox
For i = 1 To 3
Me.Controls("TextBox" & i).Visible = False
Next
'ocultar los combox
For i = 1 To 3
Me.Controls("ComboBox" & i).Visible = False
Next
End SubSi quieres que los oculte o los haga visibles según una condición, podría ser así, si la variable valor = 1 entonces se hacen visibles, si es diferente de 1 entonces se ocultan.
Dim valor
Private Sub CommandButton1_Click()
'Por.Dante Amor
If valor = 1 Then
bandera = True
valor = 0
Else
bandera = False
valor = 1
End If
'los textbox
For i = 1 To 3
Me.Controls("TextBox" & i).Visible = bandera
Next
'los combox
For i = 1 To 3
Me.Controls("ComboBox" & i).Visible = bandera
Next
End Sub