Visual Basic - Exit function

Life is soft - evento anual de software empresarial
 
Vista:

Exit function

Publicado por CyRuS (26 intervenciones) el 27/06/2007 16:19:59
Dentro de un función tengo otra función, de la forma:

function principal()
msgbox "hola"
call secundario
msgbox "adios"
end function

function secundario()
msgbox "buenas noches"
end function

Yo quiero que cuando entre en la función secundario después del mensaje
buenas noches, se me pare la función principal. Pero si pongo:
msgbox "buenas noches"
exit function
entonces solo se me sale de la función secundario y sigue con la función
principal dando el mensaje adios.

¿ Cómo puedo parar todo ?

He hecho lo siguiente pero igual conoceis una forma más sencilla:

dim despedir as boolean
function principal()
despedir = false
msgbox "hola"
call secundario
if despedir = true then exit function
msgbox "adios"
end function

function secundario()
msgbox "buenas noches"
despedir = true
end function

En vez de hacer esto del boolean, no habrá algo más rápido ???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Exit function

Publicado por Matias Freire (421 intervenciones) el 27/06/2007 21:27:03
Probá con lo siguiente:

function principal()
msgbox "hola"

'Cuando la funcion retorna boolean, no hace falta guardar el valor
'en una variable para anlizarlo con un IF, podes usarla directamente
'El "Not" adelante significa que secundario = false.

If Not secundario Then
Exit Function
End If

msgbox "adios"

end function

function secundario() as boolean
'Estableces que siempre devuelva True
secundario = True

'Haces lo que tengas que hacer
msgbox "buenas noches"

'Antes de hacer un Exit Function, pones el valor de la funcion en False
secundario = False
Exit Function
end function

Espero que te sirva... saludos!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar