Manwë Súlimo Posted August 2, 2004 Report Share Posted August 2, 2004 Pessoal é possivel passar parametros como no asp, exemplo:form1.show?param="teste"da p/ fazer isso??ou abrir assmi um aplicativoteste.exe?param="texto"da p/ fazer isso??porque talvez isso pouparia variaveis globaise no caso do exe, abriria determinado formulario do aplicativo, ao invés do padrão...teria como fazer isso?até mais Quote Link to comment Share on other sites More sharing options...
0 Decio Posted August 2, 2004 Report Share Posted August 2, 2004 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 ParametroPara pegar o parametro:Parametro= Command$ Quote Link to comment Share on other sites More sharing options...
0 Manwë Súlimo Posted August 3, 2004 Author Report Share Posted August 3, 2004 Desculpa, mas eu não entendi muito bem, tem como você dar um exemplo..?até Quote Link to comment Share on other sites More sharing options...
0 Decio Posted August 3, 2004 Report Share Posted August 3, 2004 '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 ParRecEnd 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 strValorEnd Function Quote Link to comment Share on other sites More sharing options...
0 William Rodrigues Posted August 3, 2004 Report Share Posted August 3, 2004 Boa DecioAbraços,William Rodrigues Quote Link to comment Share on other sites More sharing options...
0 @line Posted August 3, 2004 Report Share Posted August 3, 2004 E se eu precisasse passar um resultset ? Quote Link to comment Share on other sites More sharing options...
0 Decio Posted August 4, 2004 Report Share Posted August 4, 2004 E se eu precisasse passar um resultset ? O que você precisa fazer mais precisamente?? Quote Link to comment Share on other sites More sharing options...
0 @line Posted August 4, 2004 Report Share Posted August 4, 2004 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. Quote Link to comment Share on other sites More sharing options...
0 Decio Posted August 4, 2004 Report Share Posted August 4, 2004 Tenta fazer assim:No form 2 crie a seguinte função:Public Sub testeObj(ByVal myObj As Object) MsgBox myObj("seuCampo")End SubNo 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. Quote Link to comment Share on other sites More sharing options...
Question
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
Link to comment
Share on other sites
8 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.