Como lo hago???

Si deseas poder ver un control contenido en un formulario desde otro
formulario. El control ha de ser público.

Saludos,


Angel J. Hernández M.
MCSD



"Carmelo Gonzalez" escribió en el mensaje
news:%

Hola!!!

Les escribo para preguntarles como puedo hacer para leer una información
de
un formulario les cuento:
Tengo un formulario llamado frmBanco en el cual tengo un ComboBox llamado
cbCuentas desde este formulario llamo a otro llamado frmDepCaja yo quiero
leer el contenido del cbCuentas del formulario frmBanco desde el
frmDepCaja
cuando lo hago siempre esta Vacío me imagino que es porque yo creo una
nueva
instancia de eseformulario eso creo.

Gracias por su ayuda

Carmelo Gonzalez
El venezolano

Hola :
Se me ocurren un par de formas :
1º La primera es que el control que quieres usar y el formulario sean
públicos.
2º Es pasar la propiedad o el control al formulario de destino mediante
parámetros y/o propiedades (por ejemplo en el constructor) :
Desde frmBanco.
Dim X As New frmDepCaja(cbBanco)

Un saludo.

Fco. Javier Bedoya
Web : http://javierbedoya.iespana.es
Para responder mis mensajes en las UseNet, quite ANTI SPAM
de la dirección de correo.
"Carmelo Gonzalez" escribió en el mensaje
news:#

Hola!!!

Les escribo para preguntarles como puedo hacer para leer una información

de

un formulario les cuento:
Tengo un formulario llamado frmBanco en el cual tengo un ComboBox llamado
cbCuentas desde este formulario llamo a otro llamado frmDepCaja yo quiero
leer el contenido del cbCuentas del formulario frmBanco desde el

frmDepCaja

cuando lo hago siempre esta Vacío me imagino que es porque yo creo una

nueva

instancia de eseformulario eso creo.

Gracias por su ayuda

Carmelo Gonzalez
El venezolano

"Carmelo Gonzalez" escribió en el mensaje
news:%

Hola!!!

Les escribo para preguntarles como puedo hacer para leer una información

de

un formulario les cuento:
Tengo un formulario llamado frmBanco en el cual tengo un ComboBox llamado
cbCuentas desde este formulario llamo a otro llamado frmDepCaja yo quiero
leer el contenido del cbCuentas del formulario frmBanco desde el

frmDepCaja

cuando lo hago siempre esta Vacío me imagino que es porque yo creo una

nueva

instancia de eseformulario eso creo.

Gracias por su ayuda

Carmelo Gonzalez
El venezolano

Hola, Paisano:

Eso es lo que yo me imagino, tambien.

Si tienes un objeto (P) que instancia y usa otro objeto (Q), tienes una
relación jerárquica donde P es el propietario de Q. Si la representas en un
diagrama de cualquier tipo, P "esta antes que" Q.

Como principio general de diseño, los objetos propietarios deben conocer las
propiedades de sus objetos subordinados (si no no podran usarlos) pero los
objetos subordinados no deberían conocer nada acerca de sus propietarios (de
lo contrario no podrian existir independientemente de ellos).

De manera que si un objeto subordinado necesita de una información
específica LA RESPONSABILIDAD DE SUMINISTRAR ESA INFORMACION ES DEL OBJETO
PROPIETARIO.

Normalmente hay dos maneras de suministrar esa información.

La primera es un constructor parametrizado. Si frmDepCaja necesita un código
de cuenta, puedes redefinir su constructor, así:
Public Sub New(sCodigoCuenta As String)
y desde frmBancos puedes escribir:
Dim frmDeposito As New frmDepCaja(cbCuentas.SelectedItem.ToString)

La segunda es que el objeto subordinado genere un evento al que pasa varios
argumentos por referencia:
Public Event SolicitarInformacion(ByRef CodigoCuenta As String)
y desde el objeto propietario declaras el objeto With Events, o agregas un
Handler. La ventaja del segundo metodo es que el objeto subordinado puede se
r declarado como variable local dentro de una funcion:

Private Sub DevolverCodigoCuenta(ByRef sCodigo As String)
sCodigo = cbCuenta.SelectedItem.ToString
End Sub

Private Sub cbDepositoClick(ByVal Sender As Object, ByVal e As EventArgs)
Handles cbDeposito.Click
Dim fDeposito As New frmDepCaja
AddHandler fDeposito.SolicitarInformacion, AddressOf
DevolverCodigoCuenta
...
End Sub

En este caso, frmDepCaja estaría obligada a verificar que el evento fue
debidamente atendido por su propietario, algo así como:

Dim s As String = ""

RaiseEvent SolicitarInformacion(s)
If s = "" Then ' no le pararon al evento
Throw New Exception("¿Para que me llaman si no me van a hacer caso?")
End If

Salud!

Leonardo
mvp vb