Visual Basic - ejecutar texto

Life is soft - evento anual de software empresarial
 
Vista:

ejecutar texto

Publicado por edic (40 intervenciones) el 25/06/2012 23:30:40
hola amigos como se puede hacer esto:
tengo varios controles (Command del 1 al 8,"un boton") y quiero que con un for cambiar el numero del control con una variable.
Command1.Value = 1
Command2.Value = 1
Command3.Value = 1
Command4.Value = 1
Command5.Value = 1
Command6.Value = 1
Command7.Value = 1
Command8.Value = 1

ej: for variable=1 to 8
Command & variable.Value = 1
next

pero sin crear una matriz de controles y variar la matriz
Command1(1).Value = 1

yo quiero seleccionarlos como el ejemplo pero no funciona
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ejecutar texto

Publicado por jcmg (518 intervenciones) el 26/06/2012 06:34:42
Hola Edic
si lo hicieras asi los seleccionarias todos sin importar el total de commands
1
2
3
4
5
6
Private Sub Command9_Click()
    Dim i As Integer
    For i = Command1.Count - 1 To 0 Step -1
        Command1(i).Value = 1
    Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ejecutar texto

Publicado por edic (40 intervenciones) el 26/06/2012 13:21:42
hola muchas gracias por contestar pues me hace mucha falta este codigo, pero tu ejemplo no funciona, ¿lo has probado?
ami me dice que no se encontro el metodo (.Count)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ejecutar texto

Publicado por jcmg (518 intervenciones) el 27/06/2012 06:26:16
Hola Edic
lo que hice fue copiar ocho botones (command1(0)...etc y el codigo que te di lo meti en otro boton que no copie.
si quieres probarlo pon los botones que desees copiados como dice arriba y pon en ves de
Command1(i).Value = 1
asi
Command1(i).caption = "1"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ejecutar texto

Publicado por edic (40 intervenciones) el 28/06/2012 13:59:02
gracias por contestar pero si te fijas en el primer comentario dije que no se podia crear una matriz de controles como ej:Command1(1).Value = 1,Command1(2).Value = 1,Command1(3).Value = 1 donde se cambiar la bariable
vale yo lo que quiero es ;ej:Command1.Value = 1,Command2.Value = 1,Command3.Value = 1
entiendes, lo que yo quiero es asi:

Command1.Value = 1
Command2.Value = 1
Command3.Value = 1
Command4.Value = 1
Command5.Value = 1
Command6.Value = 1
Command7.Value = 1
Command8.Value = 1

ej: for variable=1 to 8
Command & variable.Value = 1
next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar