Comprobar que Boton se ha elegido para desactivar..

[rimon]

Hola tengo problemas para hacer un proceso.

Resulta que tengo 10 botones creados.. (button1,button2, etc..)
Cada boton tiene como texto el numero correspondiente, es decir:
Button1.Text = 1, Button2.Text = 2, etc..

El usuario desde un form elige que boton desactivar (Enabled = False)

El caso es que el usuario le da al boton "listo" guardando el numero elegido en la variable "boton_elegido" y se ejecuta el siguiente proceso

If Button1.Text = boton_elegido Then
Button1.Enabled = False
ElseIf Button2.Text = boton_elegido Then
Button2.Enabled = False
ElseIf Button3.Text = boton_elegido Then
Button3.Enabled = False
End If

Comprueba cuales de los botones creados es igual al boton que eligio el usuario, siendo asi, se desactiva. Claro debo hacer eso con unos 10 botones o quiza mas y es algo muy cansador.. quiza haya otra manera..

Pueden ayudarme?? grx..

Pd: Trabajo con visual basic 2005

[vbx3m]

Por que no trabajas con una matriz de controles?? Es mas facil ya q trabajas con los indices en vez del caption del boton....

Por ejemplo:

Código:

Dim muestra As Integer
Private Sub Command2_Click()
muestra = Val(Text1.Text)
Command1(muestra).Enabled = False
End Sub

El usuario indica el numero del boton que quiere desactivar... Si quieres q se desactive mas de un boton entonces trabajas con un Array...

Esta es otra fora de comparar sin necesidad de tanto codigo

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

[rimon]

Hola, te he mal interpretado..

Me podrias dar una mano para crear el array de cntrol sabiendo mi caso??

Yo tengo 10 Botones que cree desde las herramientras visual basic.

El valor de cada boton son numerados. Ya que usare en si los numeros de los botones para todos los procesos del program.

Objetivo: Desde un form el usuario inserta un UNICO NUMERO el cual sera para identificar que boton desea desactivar.. (Enabled = False)

Se crear arrays normales, pero eso de control no se como va..

podrias echar una mano??

Gracias igual..

[pasudo]

Iniciado por vbx3m

Por que no trabajas con una matriz de controles?? Es mas facil ya q trabajas con los indices en vez del caption del boton....

Por ejemplo:

Código:

Dim muestra As Integer
Private Sub Command2_Click()
muestra = Val(Text1.Text)
Command1(muestra).Enabled = False
End Sub

El usuario indica el numero del boton que quiere desactivar... Si quieres q se desactive mas de un boton entonces trabajas con un Array...

Esta es otra fora de comparar sin necesidad de tanto codigo

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

[pasudo]

hola, tengo un gravisimo problema, soy super nueva en flash pero estoy feliz.
Quisiera saber si para hacer una pagina web necesito obligatoriamente de dreamweaver o si solo se puede hacer con flash..

[vbx3m]

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...

[ppazmino]

Tengo el mismo problema del q indica sobre lo 10 botones pero estoy utilizando visual basic 6.0 y no me coge en este las instrucciones que indican como command.caption ya que, al poner command no me sale nada cuando pongo el punto , asumo q eso solo sale en punto net, porfa ayudenme como lo hago con visual basic 6.0

[pkj]

Cuando usas este modo de manejar controles no te aparece nada despues del punto. Tienes que escribirlo a mano, no sale el desplegable. Tienes las mismas propiedades que con un boton normal, pero hay que escribirlas a mano.

Saludos