Alprogramok

Eljárások

Public|Protected|Private Sub eljárásnév(paraméterlista)

utasítások

Exit Sub

utasítások

End Sub

Függvények

Public|Protected|Private Function függvénynév(paraméterlista) As adattípus

utasítások

Exit Function

utasítások

Return visszatérési érték

End Function

Eljárás hívása:

eljárásnév(paraméter1, …)

Függvény hívása

változó=függvénynév(paraméter1, …)

Ha nincs szükség a függvény visszatérési értékére, akkor hívhatjuk ugyanúgy, mint egy eljárást

Túltöltés

OverLoads: Ezt az előljárószót kell megadnunk a hozzáférési szint előtt, ha két vagy több ugyanolyan nevű alprogramunk van, különböző paraméterlistával

Paraméterek

Kimenő paraméter (Cím szerinti paraméterátadás): 

ByRef paraméter As adattípus

Bemenő paraméter (Érték szerinti paraméterátadás): 

ByVal paraméter As adattípus

Opcionális paraméter

Optional ByVal paraméter As adattípus

Az opcionális paramétert híváskor nem feltétlenül szükséges megadni.

Példa függvényre és lejárásra (a tipikus magyar karaktereket helyettesíti az angol ABC betűivel)

 Private Function ABC(ByVal SzövegBe As String) As String
        Dim K, TR As String
        Dim I As Integer
        TR = ""
        For I = 1 To Len(SzövegBe)
            K = Mid(SzövegBe, I, 1)
            Select Case K
                Case "Á"
                    K = "A"
                Case "É"
                    K = "E"
                Case "Í"
                    K = "I"
                Case "Ó"
                    K = "O"
                Case "Ö"
                    K = "O"
                Case "O"
                    K = "O"
                Case "Ú"
                    K = "U"
                Case "Ü"
                    K = "U"
                Case "Ű"
                    K = "U"
                Case Else
            End Select
            TR = TR & Trim(K)
        Next I
        Return TR
    End Function

Példa a meghívásra

    Private Sub f2()

    NyiltSzöveg="Üdvözöllek"  
    NyiltSzöveg = UCase(NyiltSzöveg) 'Nagybetűssé alakít
    NyiltSzöveg = ABC(NyiltSzöveg) 'Angol abc-re vált

    End Sub

    Call f2()

A NyiltSzöveg változó értéke f2 eljárás meghívását követően UVOZOLLEK lesz