Make your own free website on Tripod.com
Volver a arreglos Ir al Indice Ir a Common Dialog

Era necesario entender primero qué era un Arreglo para poder luego ver esta estructura. Esto se debe a que esta estructura de control se utiliza para recorrer los objetos del tipo colección, elemento a elemento.
Sintaxis:

For Each elemento In grupo
[
instrucciones]
N
ext [elemento]

Para que For Each funcione debe haber más de un elemento en el grupo. Comenzado el bucle, se ejecutan todas las instrucciones que hubieren para el primer elemento. Después, y solo mientras haya más elementos, las instrucciones en el bucle continúan ejecutándose elemento a elemento. Una vez finalizados los elementos, se produce la salida del bucle y la ejecución continúa con la instrucción que sigue a Next.
Se pueden colocar en el bucle todas las instrucciones Exit For que se desee. La instrucción Exit For se utiliza para la evaluación de alguna condición (por ejemplo, If...Then) y transfiere el control a la instrucción que sigue inmediatamente a la instrucción Next.

Veamos algunos ejemplos:

Un arreglo de control llamado T contiene casillas de verificación (check box) ydeseamos que todas estén sin el tilde (propiedad Value = 0)

Con ciclo for - next

Private Sub Cmdcero_Click()
For I = 0 To T.Count - 1
T(I).Value = 0
Next
End Sub

Con ciclo for - each

Private Sub Cmdcero_Click()
For Each I In T
I.Value = 0
Next
End Sub

El ejemplo que veremos a continuación, tiene un arreglo con tres cajas de texto (txt1), una caja de verificación (check1) y un botón cmd1 y nos da tres opciones diferentes:

  • Colocando en cualquiera de las tres cajas de texto la cadena de caracteres "Josesito" la caja de verificación pasará a =1(tildado)
  • Colocando en cualquiera de las tres cajas de texto la cadena de caracteres "Gris" la caja de verificación parará a =2 (grisado)
  • Si alguna de las tres cajas de texto no tiene texto aparecerá un msgbox que dirá "alguna/s caja/s está/n vacia/s"
Private Sub Cmd1_Click()
For Each I In Txt1
If I.Text = "Josesito" Then
' Si Texto es igual "Josesito".
Check1 = 1
'Coloca la casilla de control tildada
ElseIf I.Text = "Gris" Then
Check1 = 2
'Coloca la casilla de control grisada
End If
If I.Text = "" Then
MsgBox ("alguna/s caja/s está/n vacia/s")
End If
Next
End Sub
En la próxima veremos Common Dialog o Dialogos Comunes
Volver al principio Volver a arreglos Ir al Indice Ir a Common Dialog