FUNCAO RETORNA DOIS PARAMENTROS

USUARIO.EXCLUIDOS 29/11/2006 08:17:38
#186874
boa tarde....
pessoal...como faco para uma funcao retornar 2 paramentros:::::??? gostaria de um exemplo...

vlw
LIONHEART 29/11/2006 08:39:36
#186882 Resposta escolhida
veja só.

Option Explicit


e dentro de um form use isso:


private sub Form_Load()
Dim x as integer, y as integer

x = 1
y = 2

msgbox x & " - " & y 'valores antes

AlterarDados x, y

msgbox x & " - " & y 'valores depois

end sub


[c]private sub AlterarDados ( valor1 as integer, valor2 as integer)

   valor1 = 3
   valor2 = 4

end sub

[/c]
USUARIO.EXCLUIDOS 29/11/2006 08:40:49
#186884
Cara... vc tem algumas formas de fazer isto.

Vc pode declarar duas variáveis públicas em um módulo, e em uma Sub mesmo vc coloca o valor para estas duas váriaveis e as utiliza depois de chamar a Sub.
Exemplo

Public Var1 as String
Public Var2 as String

[c]Public Sub PreencherVariaveis()
   Var1 = "Teste"
   Var2 = "Teste"
End Sub


para chamar:
Call PreencherVariaveis
Msgbox Var1
Msgbox Var2




outra forma seria a função retornar um único parà¢metro separado por | e depois vc da o split.

Public Function PreencherVariaveis() as String
PreencherVariaveis = "Teste1|Teste2"
End Sub


Para usar:
Dim Vars as Variant
Vars = Split(PreencherVariaveis, "|")
Msgbox Vars(0)
Msgbox Vars(1)




Ou até mesmo a própria função retornar um array.


Qualquer coisa posta ai...
No momento as soluções que vi foram estas.
[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar