Delen via

Procedure: Een overbelaste procedure aanroepen (Visual Basic)

  • Artikel

Het voordeel van overbelasting van een procedure is in de flexibiliteit van het gesprek. De aanroepende code kan de informatie verkrijgen die nodig is om door te geven aan de procedure en vervolgens één procedurenaam aanroepen, ongeacht de argumenten die worden doorgegeven.

Een procedure aanroepen waarvoor meer dan één versie is gedefinieerd

  1. Bepaal in de aanroepende code welke gegevens moeten worden doorgegeven aan de procedure.

  2. Schrijf de procedureoproep op de normale manier en presenteer de gegevens in de lijst met argumenten. Zorg ervoor dat de argumenten overeenkomen met de parameterlijst in een van de versies die voor de procedure zijn gedefinieerd.

  3. U hoeft niet te bepalen welke versie van de procedure moet worden aangeroepen. Visual Basic geeft het besturingselement door aan de versie die overeenkomt met de lijst met argumenten.

    In het volgende voorbeeld wordt de post procedure aanroepen die is gedeclareerd in Procedure: Meerdere versies van een procedure definiëren. Het verkrijgt de klantidentificatie, bepaalt of het een String of een Integeris en roept in beide gevallen dezelfde procedure aan.

    Imports MSVB = Microsoft.VisualBasic

    Dim customer As String
Dim accountNum As Integer
Dim amount As Single
customer = MSVB.Interaction.InputBox("Enter customer name or number")
amount = MSVB.Interaction.InputBox("Enter transaction amount")
Try
    accountNum = CInt(customer)
    Call post(accountNum, amount)
Catch
    Call post(customer, amount)
End Try

Zie ook