Re: Array de controles??????

Lo que no tengo claro es si te ha servido el ejemplo, por que dices lo de que
aparece otra instancia... No me queda claro si te funciona o no.

En cuanto a tus dos preguntas:

1. FA.ComboAñadir = DirectCast(sender, ComboBox) > Aquí supongo que mandarás el ComboBox seleccionado a la propiedad ComboAñadir del Form2. ¿Qué es lo que hacae DirectCast, "envía" el sender?

En realidad DirectCast no sería obligatoria si utilizas Strict Off, pero es
una buena costumbre.

DirectCast hace un casting. Sender es el objeto emisor del evento. El
programador sabe que el emisor en ese caso tiene que ser un ComboBox, pero
está definido como Object para que sea genérico. Todo ComboBox es un Object
pero no todo Object es un ComboBox. Por eso se utiliza DirectCast, para
especializar el Object. Para asegurar que realmente es un ComboBox.

2. Si en vez de SENDER envías "e" qué es lo que recibe, el evento SelectedIndexChanged?

El parámetro "e" en ese evento está definido como de tipo EventArgs.
EventArgs no contiene ningún dato útil. Solo sirve como base para eventos que
ofrecen más información como KeyPress.

Voy a mirar tu sabia decisión de codificarlo alrevés: En lugar de que FrmAñadir tenga acceso al combo,Form1 que tenga acceso al texto devuelto por FrmAñadir...

En cuanto a hacerlo al revés. Así es como hago siempre este tipo de cosas:

En FrmAñadir:
-
Define estas propiedades en tiempo de diseño:

BtnAñadir => DialogResult = Ok
BtnCancelar => DialogResult = Cancel

Elimina el tratamiento de BtnAñadir_Click. No será necesario. Tampoco la
propiedad ComboAñadir

Añade esta propiedad:

public readonly property OpcionNueva as string
get
return TxtAñadir.Text
end get
end property


Y en Form1:
-

Private Sub CmbArray_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged,
ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged,
ComboBox4.SelectedIndexChanged, ComboBox5.SelectedIndexChanged,
ComboBox6.SelectedIndexChanged

dim combo as ComboBox = DirectCast(sender, ComboBox)
If combo.SelectedItem = "Añadir" then
Dim FA As New FrmAñadir
if FA.ShowDialog() = DialogResult.Ok then
combo.Items.Add(FA.OpcionNueva)
combo.Text = FA.OpcionNueva
MessageBox.Show("Se ha añadido: " & FA.OpcionNueva)
' Añadimos la opción a la BD
end if
FA.Dispose()
end if

Juan Carlos Badiola Saiz
MVP - C#