Elakadt a "Funkció" fogalmaival a VB -ben? Ha igen, olvassa el ezt az útmutatót, hogy megtanulja a "Funkció" úgynevezett konstrukcióit a VB paradigmájában.
Lépések
1. lépés: Mi a funkció?
- Használja a Funkció eljárást, ha értéket kell visszaadnia a hívó kódhoz.
- Egy függvénynek van típusa, és a függvény értéket ad vissza a hívó alprogramnak a benne található kód alapján.
2. lépés: Hogyan kell deklarálni a funkciót?
- Funkciós eljárást csak modul szinten határozhat meg. Ez azt jelenti, hogy a függvény deklarációs kontextusának osztálynak, struktúrának, modulnak vagy interfésznek kell lennie, és nem lehet forrásfájl, névtér, eljárás vagy blokk.
- Egy függvényt pontosan ugyanúgy kell deklarálni, mint egy alprogramot, kivéve a "Funkció" kulcsszó használatát a "Sub" helyett.
- A működési eljárások alapértelmezés szerint nyilvános hozzáférésűek. A hozzáférési szintet a hozzáférés -módosítókkal állíthatja be.
3. lépés: Hogyan hívható meg a Function?
- Funkciós eljárást hívhat meg az eljárás nevével, majd a zárójelben lévő argumentumlistával, kifejezéssel.
- A zárójeleket csak akkor hagyhatja ki, ha nem ad meg érveket. A kód azonban olvashatóbb, ha mindig zárójeleket tartalmaz.
- Egy függvény a Call utasítás használatával is meghívható, ebben az esetben a visszatérési érték figyelmen kívül marad.
- Ha vissza szeretne adni egy értéket, rendeljen hozzá egy megfelelő típusú értéket a függvény nevéhez, mintha változó lenne.
Szintaxis
Nyilatkozat
[hozzáférésmódosító] [eljárásmódosítók] [Megosztott] Funkció neve [(A típusparaméterek listájából)] [(paraméterlista)] [Mint visszatérési típus] [utasítások] [Kilépés a funkcióból] [utasítások] Funkció befejezése
Hívás
'Hívás nélkül Function_Name ()' Call Call Function_Name ()
Példa
Az alábbiakban bemutatunk egy példát a két számot hozzáadó függvényre
Privát függvény hozzáadása (ByVal x mint egész, ByVal y mint egész) Egész számként Dim Res mint egész Res = x + y Add = Res End Function Private Sub Form_Load () Dim a As Integer Dim b Mint Integer Dim c As Integer a = 32 b = 64 c = Add (a, b) MsgBox ("Sum is:" & c) End Sub