Visual Basic - recorrido Command button

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

recorrido Command button

Publicado por silvio (2 intervenciones) el 24/12/2013 05:25:48
Buenas programadores de este foro, recurro a ustedes que son los master en esta materia, planteo mi problema caso el siguiente ejemplo ilustrativo, estoy usando vb6 tengo creados 50 Command button con nombres de objetos N1, N2, N3, N4…N50 y dependiendo de un valor ingresado mediante un textbox, una cantidad de eso botones será modificado el caption que tienen asignado

De esta forma lo estaba haciendo

Select Case X
Case 1
N1.Caption = 1
N2.Caption = 2
.
.
.
N50.Caption = 50
Case 2
N1.Caption = 2
N2.Caption = 3
.
.
.
N50.Caption = 51

No habrá una forma más rápida de hacerla por ejemplo un For…Next, como por así decirlo:

Select Case X
Case 1
For i = 1 To 50
N [i].Caption = i
Next
Case 2
For i = 1 To 50
N [i].Caption = 1+i
Next

O que me podrían aconsejar ustedes para hacerlo más rápido.
De ante mano gracias por su ayuda.
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

recorrido Command button

Publicado por amigo (24 intervenciones) el 27/12/2013 05:01:47
pon los botones asi
1
2
3
4
5
6
7
command1(0),command1(1).... en un array, solo copialos y prueba  el codigo de abajo
Private Sub Command2_Click()
    Dim i As Integer
    For i = Command1.Count - 1 To 0 Step -1
        Command1(i).Caption = i + Text1
    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
sin imagen de perfil

recorrido Command button

Publicado por silvio (2 intervenciones) el 27/12/2013 08:35:08
hey te agradezco la ayuda era justo lo que necesitaba , me funciono a la perfeccion
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