Ayuda para un principiante añoso

Soy un viejo de Vb 6.0 intentando cambiarme a .Net

No quiero usar .Net como un entorno Vb 6.0, sino
comprender a fondo el sistema del FrameWork


Dim PRC As New CsProcesa()

With PRC

.Frm = Me '.ActiveForm
Call .Procesar()
End With


Private VarsDec As String

Public Frm As System.Windows.Forms.Form

Default Public WriteOnly Property FrmTaita(ByVal A As String) As
System.Windows.Forms.Form
Set(ByVal Value As System.Windows.Forms.Form)

Frm = Value

End Set

End Property


Public Function Procesar() As Byte

LinCod = Frm!CodeRx.Text

End Function


D:\01 Ivan\PenDrive\03My0743\10
Vs.Net\CobolCheck\CobolVerif\CsProcesa.vb(65):
No se puede indizar la clase 'System.Windows.Forms.Form'
porque no tiene ninguna propiedad predeterminada.

Estoy haciendo lo correcto ?
Existe otro método para pasar una Clase System.Windows.Forms.Form
a otra clase ?

Alguna pista, Algun link

Agradezco a todos de antemano

Hola Ivan,

creo que sólo te falta el constructor del objeto Form.

El código sería (sino me equivoco):

Public Frm As New System.Windows.Forms.Form


Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Ivan Pequeño" wrote:

> Soy un viejo de Vb 6.0 intentando cambiarme a .Net
>
> No quiero usar .Net como un entorno Vb 6.0, sino
> comprender a fondo el sistema del FrameWork
>
>
> Dim PRC As New CsProcesa()
>
> With PRC
>
> .Frm = Me '.ActiveForm
> Call .Procesar()
> End With
>
>
> Private VarsDec As String
>
> Public Frm As System.Windows.Forms.Form
>
> Default Public WriteOnly Property FrmTaita(ByVal A As String) As
> System.Windows.Forms.Form
> Set(ByVal Value As System.Windows.Forms.Form)
>
> Frm = Value
>
> End Set
>
> End Property
>
>
> Public Function Procesar() As Byte
>
> LinCod = Frm!CodeRx.Text
>
> End Function
>
>
> D:\01 Ivan\PenDrive\03My0743\10
> Vs.Net\CobolCheck\CobolVerif\CsProcesa.vb(65):
> No se puede indizar la clase 'System.Windows.Forms.Form'
> porque no tiene ninguna propiedad predeterminada.
>
> Estoy haciendo lo correcto ?
> Existe otro método para pasar una Clase System.Windows.Forms.Form
> a otra clase ?
>
> Alguna pista, Algun link
>
> Agradezco a todos de antemano

LinCod = Frm!CodeRx.Text

El error se debe a esta linea:

> LinCod = Frm!CodeRx.Text

El ! lo que hace es usar la propiedad de la clase declarada como default
pasandole "CodeRx" como parametro. Es decir equivale a:

LinCod = Frm.PropiedadDefault("CodeRx").Text

Los Forms no tienen una propiedad Default y por eso el error. Cambia el !
por . y deberia funcionar sin problemas.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Eduardo,

Muchas Gracias, vamos a intentar eso,
pero me parece que por ahí va la cosa

Gracis

"Eduardo A. Morcillo [MS MVP VB]" escribió:

> El error se debe a esta linea:
>
> > LinCod = Frm!CodeRx.Text
>
> El ! lo que hace es usar la propiedad de la clase declarada como default
> pasandole "CodeRx" como parametro. Es decir equivale a:
>
> LinCod = Frm.PropiedadDefault("CodeRx").Text
>
> Los Forms no tienen una propiedad Default y por eso el error. Cambia el !
> por . y deberia funcionar sin problemas.
>
> Eduardo A. Morcillo [MS MVP VB]
> http://www.mvps.org/emorcillo
> http://mvp.support.microsoft.com/pr...4EF5A4191C
>
>
>