Jump to content
Fórum Script Brasil
  • 0

Vb Em Palm


Hermann Clay
 Share

Question

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!!!!

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0
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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649k
×
×
  • Create New...