Vastgelopen met concepten van "Functie" in VB? Zo ja, lees dan deze gids om de zogenaamde constructies van "Functie" in het paradigma van VB te leren.
Stappen
Stap 1. Wat is functie?
- Gebruik een functieprocedure wanneer u een waarde moet teruggeven aan de aanroepende code.
- Een functie zelf heeft een type en de functie retourneert een waarde naar de aanroepende subroutine op basis van de code die deze bevat.
Stap 2. Hoe verklaart u de functie?
- U kunt een functieprocedure alleen op moduleniveau definiëren. Dit betekent dat de declaratiecontext voor een functie een klasse, structuur, module of interface moet zijn en geen bronbestand, naamruimte, procedure of blok mag zijn.
- Een functie wordt op exact dezelfde manier gedeclareerd als een subroutine, behalve dat het sleutelwoord "Functie" wordt gebruikt in plaats van "Sub".
- Functieprocedures zijn standaard openbaar toegankelijk. U kunt hun toegangsniveaus aanpassen met de toegangsmodifiers.
Stap 3. Hoe kan ik Functie aanroepen?
- U roept een functieprocedure aan door de procedurenaam, gevolgd door de lijst met argumenten tussen haakjes, in een expressie te gebruiken.
- U kunt de haakjes alleen weglaten als u geen argumenten opgeeft. Uw code is echter beter leesbaar als u altijd de haakjes opneemt.
- Een functie kan ook worden aangeroepen met behulp van de opdracht Call, in welk geval de geretourneerde waarde wordt genegeerd.
- Om een waarde te retourneren, wijst u een waarde van het juiste type toe aan de naam van de functie, alsof het een variabele is.
Syntaxis
Verklaring
[accessmodifier] [proceduremodifiers] [Shared] Functienaam [(Of typeparamlist)] [(parameterlist)] [As returntype] [statements] [Exit Function] [statements] End Function
Roeping
'Zonder Call Function_Name() 'Met Call Call Function_Name()
Voorbeeld
Hieronder ziet u een voorbeeld van een functie die twee getallen optelt:
Private Function Add (ByVal x As Integer, ByVal y As Integer) As Integer Dim Res als integer Res = x + y Add = Res End Function Private Sub Form_Load() Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Toevoegen(a, b) MsgBox ("Sum is: " & c) End Sub
