Llamar a una funcion de otro formulario

Buenas
Declara un evento en el formulario de las lineas, y disparalo cuando lo
necesites
En el formulario frm_doc_cobro deberas definir el Frm_Lineas como
WithEvents.


Suerte
LuisMiguel
"Tecnicos Aydai" escribió en el mensaje
news:erF8lx$
Mostrar la cita

Hola a todos!!!

Os cuento mi problema. Tengo una aplicacion mdi, la cual crea un
formulario hijo de la siguiente manera:

Dim frm_doc_cobro As New frm_doc_mto_cobros

frm_doc_cobro.MdiParent = Me

frm_doc_cobro.Show()

Desde este formulario frm_doc_cobro, abro otro formulario de forma modal
de la siguiente manera,

Dim Frm_lineas As New frm_asi_mto_linasientosdef

Frm_lineas.Tipo = 2

Frm_lineas.Asiento = CInt(Me.txt_casid_asiento.Text)

Frm_lineas.Apunte = Nothing

Frm_lineas.ShowDialog()



La cuestion es que desde este frm_lineas, quiero llamar a una funcion del
formulario frm_doc_cobro, pero no se como hacerlo.

Espero vuestras respuestas y gracias por todo.

Gracias por tu respuesta LuisMiguel, pero es que no entiendo a que te
refieres con declararlo como withevents, he probado ha hacer la siguiente
declaracion

Dim WithEvents Frm_lineas As New frm_asi_mto_linasientosdef

pero al hacer el Ctype(me.owner, frm_doc_cobro).cargargrid desde el
formulario de lineas me da una excepcion como invalidcastexception



"LuisMiguel" <lmolinoARROBAyaPUNTOcom> escribió en el mensaje
news:
Mostrar la cita

Buenas
Declara un evento en el formulario de las lineas, y disparalo cuando lo
necesites
En el formulario frm_doc_cobro deberas definir el Frm_Lineas como
WithEvents.


Suerte
LuisMiguel
"Tecnicos Aydai" escribió en el mensaje
news:erF8lx$
Mostrar la cita

Hola a todos!!!

Os cuento mi problema. Tengo una aplicacion mdi, la cual crea un
formulario hijo de la siguiente manera:

Dim frm_doc_cobro As New frm_doc_mto_cobros

frm_doc_cobro.MdiParent = Me

frm_doc_cobro.Show()

Desde este formulario frm_doc_cobro, abro otro formulario de forma
modal de la siguiente manera,

Dim Frm_lineas As New frm_asi_mto_linasientosdef

Frm_lineas.Tipo = 2

Frm_lineas.Asiento = CInt(Me.txt_casid_asiento.Text)

Frm_lineas.Apunte = Nothing

Frm_lineas.ShowDialog()



La cuestion es que desde este frm_lineas, quiero llamar a una funcion
del formulario frm_doc_cobro, pero no se como hacerlo.

Espero vuestras respuestas y gracias por todo.