Passando Parametros Para Outros Forms

[Manwë Súlimo]

Pessoal é possivel passar parametros como no asp, exemplo:

form1.show?param="teste"

da p/ fazer isso??

ou abrir assmi um aplicativo

teste.exe?param="texto"

da p/ fazer isso??

porque talvez isso pouparia variaveis globais

e no caso do exe, abriria determinado formulario do aplicativo, ao invés do padrão...

teria como fazer isso?

até mais

[Decio]

O que você pode fazer é criar uma função que aceite parametros no form2 e quando chamar o outro formulario, passar o parametro.Tipo assim:

Form2.FuncaoCriada(valor)

No caso de executaveis, você pode chamar o aplicativo da seguinte forma:

SeuAquivo.exe Parametro

Para pegar o parametro:

Parametro= Command$

[Manwë Súlimo]

Desculpa, mas eu não entendi muito bem, tem como você dar um exemplo..?

até

[Decio]

'Digite o código abaixo , copile o programa e quando chama-lo, passe um parametro.

Private Sub Form_Load()

Dim ParRec As String

ParRec = Command$

MsgBox ParRec

End Sub

'Crie um form1 e um form2:

' Coloque o código abaixo no form1:

Private Sub Form_Load()

Form2.Teste ("Ola")

End Sub

' Coloque o código abaixo no form2:

Public Function Teste(ByVal strValor As String)

MsgBox strValor

End Function

[William Rodrigues]

Boa Decio

Abraços,

William Rodrigues

[@line]

E se eu precisasse passar um resultset ?

[Decio]

E se eu precisasse passar um resultset ?

O que você precisa fazer mais precisamente??

[@line]

Preciso passar um resultset como parâmetro de um form para o outro.

Assim:

Show Form2(rs)

private sub Form2_load(rdres as rdoresultset)

Não quero declarar esse rs como público.

[Decio]

Tenta fazer assim:

No form 2 crie a seguinte função:

Public Sub testeObj(ByVal myObj As Object)

MsgBox myObj("seuCampo")

End Sub

No formulario que você já criou o resultset passe o parametro desta forma:

Form2.testeObj (rs)

Note que para passar um parametro de um objeto, a função deve estar preparada para isso.

Espero que resolva seu problema.