Cita:
Iniciado por rimon Objetivo: Desde un form el usuario inserta un UNICO NUMERO el cual sera para identificar que boton desea desactivar.. (Enabled = False)
Código:
Dim muestra As Integer
Private Sub Command2_Click()
muestra = Val(Text1.Text)
Command1(muestra).Enabled = False
End Sub
Lo que puedes hacer es una matriz de controles.... Es decir, que tienes 10 botones llamados command1(por ejemplo) pero que sus indices van del 1 al 10... Cuando el usuario indique el numero del command a desactivar no tienes que comparar uno por uno el caption del command con el valor del text, sino que el valor del text se compara con el valor del indice del command...
Código:
Dim command As Object
Private Sub Command11_Click()
For Each command In Controls
If TypeOf command Is CommandButton Then
If command.Caption = Val(Text1.Text) Then command.Enabled = False
End If
Next
End Sub
Esta otra forma es si no quieres trabajar con matriz de controles... tienes 10 botones... command1, command2, etc... lo que hace es comparar el valor del text con el caption de todos los command presentes en el formulario (sin utilizar indices)... tienes estas dos opciones.. utiliza la que veas mas conveniente...