COMO FAZER MESMA FUNCAO RETORNAR DOIS RESULTADOS?

GFASSIO 07/10/2010 13:50:29
#354620
Olá gente, tudo bem?
Seguinte, tenho uma função e preciso que la faça duas coisas e me retorne os dois resultados na mesma chamada...
Ex:

private function funcao() as string
    aa=[Ô]123[Ô]
    bb = [Ô]456[Ô]
    funcao = aa,bb 
end sub


algo parecido com isso....

Obs.:tenho que fazer na mesma função...

Desde já imensamene agradecido,

Gustavo Fássio
MARCOSLING 07/10/2010 14:03:26
#354622
faz a sua função retornar os valores no parametro com ByRef.

Ex.:

private function(byref p_result1 as string, byref p_result2 as string)
p_result1 = [Ô]123[Ô]
p_result2 = [Ô]456[Ô]
end function
EXPERT 07/10/2010 15:36:22
#354644 Resposta escolhida 
Private Sub funcao(ByRef aa As String, ByRef bb As String)
    aa=[Ô]123[Ô]
    bb = [Ô]456[Ô]
    funcao = aa,bb
End Sub


Não precisa ser uma funcion ... pode ser uma sub mesma ..

Só um detalhe .... uma function NUNCA pode retornar dois valores .... mas tem com usarmos a eterna POG ...

Private Function funcao() As String
    aa = [Ô]123[Ô]
    bb = [Ô]456[Ô]
    funcao = aa & [Ô]|[Ô] & bb
End Function

Private Sub Command1_Click()
  Dim strAux() As String
  
  strAux = Split(funcao, [Ô]|[Ô])
  
  MsgBox strAux(0) & [Ô] [Ô] & strAux(1)
End Sub


FICA COM DEUS!!

PS: O segundo exemplo é péssimamente recomendado (depende o caso )
Tópico encerrado , respostas não são mais permitidas
Voltar