Programación en Visual Basic 2008

Aunque este sistema funciona para el ejemplo, no es el procedimiento
recomendado, pues cada vez que agregue un nuevo jugador, también tendrá
que actualizar la colección Items del control ComboBox.
Una manera mucho más adecuada consiste en agregar los valores Position
a la colección Items recorriendo la colección team con un bucle For
Each...Next.
En un bucle For...Next, primero debe declarar una variable de contador; con
un bucle For Each...Next primero debe declarar una variable de objeto. El
código siguiente muestra un bucle For Each...Next.
Visual Basic Express Copiar código
Dim player As Persons.Players
For Each player In team
Next
ComboBox1.Items.Add(player.Position)
En este caso, no importa cuántos Players tenga, el método
ComboBox1.Items.Add se ejecutará una vez para cada objeto Players de la
colección equipos y el valor Position se agregará a la lista.
Inténtelo
Para recorrer una colección
Abra el proyecto Persons de la lección anterior. Si no lo ha acabado, regrese a
la lección anterior, Realizar seguimientos: utilizar colecciones para administrar
varios objetos, y complete los procedimientos.
En el Explorador de soluciones, seleccione el nodo Form1.vb en el proyecto
PlayerTest y, a continuación, en el menú Ver, elija Diseñador.
Seleccione el control ComboBox. A continuación, en la ventana Propiedades,
seleccione la propiedad Items y haga clic en el botón ....
En el Editor de la colección de cadenas, elimine las cuatro entradas
existentes y, a continuación, haga clic en Aceptar.
Haga doble clic en el formulario para abrir el Editor de código.
En el Editor de código, agregue lo siguiente a la sección de declaraciones
(debajo de la declaración para team).
Visual Basic Express Copiar código
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 137