Hola

Como resuelvo el siguiente codigo

For i=1 To 50

Label & i & ".Caption" = "hola"

Next i

supongamos que tengo 50 Labels; me quiero ahorrar 50 lineas de codigo para poner la palabra "hola" en cada Label, para lo cual empleo un For pero me marca error

Quiero concatenar el valor de la variable i para automatizar el proceso,
suponiendo que los label se llaman asi:
Label1.Caption
Label2.Caption
Label3.Caption
Label4.Caption
....
...
...
Label50.Caption


Como lo puedo solucionar?????

Gracias por adelantado

Hola, no asi esta mal , primero los 50 controles labels deben ser matrices de controles, o sea estan identificados por un indice cada uno...y despues si podes usar el codigo asi:

Código:

For i=0 To 49
 Label(i).Caption = "hola"
Next i

saludos.

lo que Seba123neo te ha dicho está muy bien, ya que permite ordenar los label por grupos.

otra solución, accediendo a los controles sería:

Código:

For Each olabel In Form1.Controls
 If TypeOf olabel Is Label Then olabel.Caption = "hola"
Next

ok, lo que me dicen esta muy bien.

Dejemos a un lado los Labels, supongamos que quiero usar OptionButtons, si creo 80 OptionButtons solo puedo seleccionar 1 opcion a la vez de toda esa matriz de controles.

Si tengo 20 preguntas con 4 opciones por c/u, quiero evitarme lineas de codigo comparando las opciones de cada pregunta por eso quiero usar un ciclo For que vaya limitando de 4 en 4 ( serian las opciones de cada pregunta) y que a la vez fuera comparando.


Ejemplo

For i=1 to 80

'.... Faltaria codigo para limitar de 4 en 4
if OptionButton & i & ".Value"=True || OptionButton & i+1 & ".Value"=True || OptionButton & i+2 & ".Value"=True || OptionButton & i+3 & ".Value"=True then

Msgbox "Contestado"
end if


Next i


y asi evitarme estar comparando las 20 preguntas, imaginemos que son 100 preguntas, seria bastante codigo


Solo quiero saber si hay alguna forma de concatenar valores para automatizar el proceso y ahorrar lineas de codigo

???????????????????????????????????????

algo mas claro seria:
que en un ciclo for fuera tomando el valor del OptionButton

Ejemplo:
OptionButton1
OptionButton2
OptionButton3

esta claro que solo va cambiando el Valor: 1 2 3

Como concateno para que tome ese valor.

OptionButton & i & ".Value"=True ' Aqui me marca error,,, alguna solucion?


¿¿¿¿¿ Como se hace ????

Otra opción es hacer algo así:

Código:

For i = To N
 If MyForm.Controls("OptionButton" & CStr(i)).Value = True then
 ....
 EndIf
Next

Saludos.

La solucion te la ha dado Garfield..!

Solamente cambia la caja de texto por el OptionButton.

Cuando haces un "For Each" de Controles, es infinitamente poderoso lo que puedes hacer: Desde especificar el tipo de controles, hasta hacer ciertas operaciones con algunos de ellos por medio de su nombre.

Es la mejor de las soluciones para lo que te planteas, y si en algún momento necesitas cambiar el tipo de control, o simplemente añadir mas, pues, te haces un if dentro del bucle y listo.

Un pequeño ejemplo:

For each oControl in Formxxxxx.Controls (puedes tambien utilizar un contenedor, como un Frame, etc..!!!)

If TipeOf oControl is Label then
...bla bla bla.. para tus labels
ElseIf TipeOf oControl is TextBox then
...bla bla bla.. para tus TextBox
endif (o si son varios, también puedes anidar un Select Case)

Si dentro de cada uno de los tipos de controles, necesitas que alguno haga una cosa diferente, simplemente puedes poner otro If dentro, invocando a su nombre.

Espero te sea de utilidad; y también ten MUY en cuenta lo que ha dicho Neo sobre hacer un array de controles; asi no tendrás problemas si agregas o quitas elementos dentro de tu formulario.

Un abrazo desde España.

For i = 1 To 20

MyForm.Controls("Label" & CStr(i)).Caption = "hola"

Next

quiero asignarle la palabra "hola" a todos los Labels, me manda error

¿ porque no puedo hacer eso?

Pues no se me ocurre nada, salvo que la variable "MyForm" debe de existir (si la función está en el módulo del formulario puedes usar Me) y que deben existir 20 labels llamadas "Label1", "Label2", ..., "Label20".
Sospecho que el problema debe estar en el nombre del formulario...
Saludos.

ok, ya solucione mi error, si era en el nombre del formulario,,,, gracias a todos por el aporte

Hola buenas noches..

necesito ayuda, como hago para hacer esto:

2015000001
2015000002
2015000003
2015000004
.
.
.

que las primeras 4 caracteres (año) no se muevan y solo a partir del ultimo avance de 1 en 1... es para hacer un código generado automaticamente

Bienvenido, AntonioD.
Deberias haber creado un nuevo tema porque es muy viejo y ademas no tiene nada que ver con el, pero como es poca cosa te contestare aqui mismo:

Año="2005"
'a cada vuelta del bucle o lo que uses para aumentar el contador...
Contador=Contador+1
'aqui tienes la cadena resultante
Cadena=Año & format(Contador,"000000")

Saludos

uy, me he caido 10 años

Muchas gracias pkj.
Disculpen, soy nuevo en este foro y no supe como crear nuevo tema... asi q me atrevi por aqui, y muxas gracias por el codigo me sirvio de muxo..

saludos cordiales