Vb Em Palm

[Hermann Clay]

Olá pessoal,

Gostaria que vocês me ajudassem em uma solução, tenho o seguinte problema:

Estou desenvolvendo um aplicativo para PALM, utilizo VB.NET e HB++ para PALM, tudo está dando muito bem, tenho a seguinte situação.

Um Formulario LOCAL onde tenho dois FIELD chamado fldCodLocalOrigem e fldcodLocalDestino e um BUTTON que chama um novo formulario que esta a lista com todos locais. Minha pergunta é.

Gostaria de fazer com que ao chamar o formulario frmFINDLocais passase como parametro o Field que está chamando(está com focus) pois o formulário frmFINDLocais usa os mesmos dados para ambos os fields. Passando o FIELD que está chamando eu retornaria o valor para ele.

Veja o código do FORM frmFINDLocal

Private Dim iFd as Field

'propriedade de entrada de dados

Public Property Set FDSolicitante(ifd as Field)

me.iFd = ifd

End Property

'propriedade de saida de dados

Public Property Get FDSolicitante() as Field

FDSolicitante = me.iFd

End Property

Agora o Código do Formulário que chama o formulário frmFINDLocal

Dim frm as new frmFindLocal

Private Sub Button1_Click()

frm.FDSolicitante = me.fldOrigem { FIELD Origem é quem está chamando}

frm.Show hbFormModal+hbFormPopup

fldOrigem.Text = frm.FDSolicitante.Text

End Sub

Quando mando compilar está apresentando o seguinte erro:

frmSETTrajeto.hbf (8) : error #2278 : 'Set' statement expected

Pf me ajudem!!!!

[Graymalkin]

Tem certeza de que isto é VB.NET? Se for realmente, a declaração da propriedade está incorreta.

Abraços,

Graymalkin

[Guest Visitante - MarcosJAC - ASCII]

Amigo esta declaração é de vb6 mas a unica coisa que está incorreto é o comando de atribuição "Set" está ausente.

As rotinas deveriam ser assim:

Private Dim iFd as Field

'propriedade de entrada de dados

Public Property Set FDSolicitante(ifd as Field)

Set me.iFd = ifd

End Property

'propriedade de saida de dados

Public Property Get FDSolicitante() as Field

Set FDSolicitante = me.iFd

End Property

Agora o Código do Formulário que chama o formulário frmFINDLocal

Dim frm as new frmFindLocal

Private Sub Button1_Click()

Set frm.FDSolicitante = me.fldOrigem { FIELD Origem é quem está chamando}

frm.Show hbFormModal+hbFormPopup

fldOrigem.Text = frm.FDSolicitante.Text

End Sub