Forums Últimos mensajes - Powered by IBM
 

DirectCast, como utilizarlo para un MaskedTextBox??

11/09/2006 - 11:05 por fredy666 | Informe spam
Buenos dias, necesito crearme un formulario calendario, el cual recibe
por parametros dos campos, el nombre del formulario desde el que es
llamado y el textbox donde queremos poner la fecha (las dos cosas
pueden variar dependiendo de donde se haga doble click con el raton).

Se como crearme un formulario (el nombre) dinamico, de tal forma que
pueda llamar al formulario donde quiera sin problemas:

typTipo = Type.GetType(frmFormulario, True)
frmEjecucion = DirectCast(Activator.CreateInstance(typTipo),
Form)


El problema lo tengo cuando quiero hacer los mismo con un
MaskedTextBox, ya que no me deja, suelta el siguiente error:

No se puede cargar el tipo 'frmActuaciones' del
ensamblado'WindowsApplication1, Version=1.0.0.0, Culture=neutral,
PublicKeyToken=null'.

¿Alguien podria indicarme como puedo crearme el control o llamorlo
desde otro formulario sin saber su nombre, es decir que al poner
txtFecha.text este referenciando al MaskedTextBox que yo quiera, o que
le haya pasado por parametros.


Muchas gracias
 

Leer las respuestas

#1 Carlos Gómez
11/09/2006 - 17:16 | Informe spam
¿Alguien podria indicarme como puedo crearme el control o llamorlo
desde otro formulario sin saber su nombre, es decir que al poner
txtFecha.text este referenciando al MaskedTextBox que yo quiera, o que
le haya pasado por parametros.


Muchas gracias



Yo haría lo siguiente:
En tu formulario calendario:
Sub New(ByVal Fecha as Date)
InitializeComponents()
MiMaskedTextBox.Text=Fecha
End Sub

Public ReadOnly Property Fecha() As Date
Get
Dim FechaRetorno As Date
Date.TryParse(MiMasKedTextBox.Text,FechaRetorno)
Return FechaRetorno
End Get
End Property


y ahora desde cualquier formulario, la llamada sería:
Private Function LlamadaAlFormularioCalendario(ByVal Fecha As Date) As
Date
Dim FechaRetorno As Date
Dim Formulario As New FormularioCalendario(Fecha)
Formulario.ShowDialog
FechaRetorno = Formulario.Fecha
Formulario.Dispose
Formulario = Nothing
Return FechaRetorno
End Function

Preguntas similares