PRACTICA III-9. creación
de un procedimiento que utilice argumentos y devuelva valores
EQUIPO No5
OBJETIVO.- Aprender a definir procedimientos que realizan una tarea, utilizan argumentos y devuelven valores.
PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:
- Utilice el mismo proyecto que utilizo en la práctica 9-1
- Abra la ventana de código
- Vaya a Herramientas – agregar procedimiento.
Option
Explicit
Private
Sub Form_Activate()
Call NoRecibeNoDevuelve
Dim intRespuesta As Integer
Print intRespuesta%
intRespuesta% = RecibeDevuelve("Funcion con
argumentos")
Print intRespuesta%
End Sub
Public Sub
NoRecibeNoDevuelve()
MsgBox "Funcion
NoRecibeNoDevuelve", vbOKOnly, _
"NoRecibeNoDevuelve"
End Sub
Private Function
RecibeDevuelve(Mensaje As String) As Integer
RecibeDevuelve = MsgBox(Mensaje, vbOKCancel + _
vbQuestion, "Funcion RecibeDevuelve")
End Function
CONCLUSIONES: Podemos hacer funciones que solo muestren un dato que necesitamos mostrar o hacer una funcion con argumentos. Es importante el control de los textos en la barra de titulo y saber como dar al mensaje los botones Ok y Cancel sin necesidad de editarlos como command Button.