enviar argumentos a modulo

06/06/2006 - 16:19 por Oscar | Informe spam
Hola

para abrir un formulario de un modulo externo utilizo la siguiente función:

Public Sub MostrarFormularioExterno(ByVal Archivo As String, ByVal tipo As
String)
Dim asm As System.Reflection.Assembly =
System.Reflection.Assembly.LoadFrom(Archivo)
Dim tipoForm As Type = asm.GetType(tipo)
Dim oform As Form = Activator.CreateInstance(tipoForm)
If oform.ShowDialog = DialogResult.OK Then
End If
End Sub

PERO. COMO LE PASO LOS ARGUMENTOS?
Desde otro modulo para abrir uso:
proceso.StartInfo.FileName = ruta
Proceso.StartInfo.Arguments = PerfilActivo & " " & UsuarioActivo
Proceso.Start()
Pero como se los paso con la funcion anterior?

Saludos, Oscar
 

Leer las respuestas

#1 Jordi Julià
06/06/2006 - 17:13 | Informe spam
Hola Oscar,

Prueba de esta manera,

Dim Params(4) As Object

Params(0) = Compañia
Params(1) = Idioma
Params(2) = Usuario.Trim
Params(3) = conn
Params(4) = ds_Pagina

Dim oform As Form = Activator.CreateInstance(tipoForm, Params)

La secuencia y formato de los parámetros debe corresponder con los que
espera. Yo lo he utilizado con clases no con objetos forms pero debería
funcionar igual.

Jordi


"Oscar" escribió en el mensaje
news:
Hola

para abrir un formulario de un modulo externo utilizo la siguiente
función:

Public Sub MostrarFormularioExterno(ByVal Archivo As String, ByVal tipo As
String)
Dim asm As System.Reflection.Assembly =
System.Reflection.Assembly.LoadFrom(Archivo)
Dim tipoForm As Type = asm.GetType(tipo)
Dim oform As Form = Activator.CreateInstance(tipoForm)
If oform.ShowDialog = DialogResult.OK Then
End If
End Sub

PERO. COMO LE PASO LOS ARGUMENTOS?
Desde otro modulo para abrir uso:
proceso.StartInfo.FileName = ruta
Proceso.StartInfo.Arguments = PerfilActivo & " " & UsuarioActivo
Proceso.Start()
Pero como se los paso con la funcion anterior?

Saludos, Oscar






Preguntas similares