Практическое руководство. Вызов перегруженной процедуры (Visual Basic)

Преимущество перегрузки процедуры заключается в гибкости вызова. Вызывающий код может получить сведения, которые необходимо передать в процедуру, а затем вызвать одно имя процедуры независимо от того, какие аргументы он передает.

Вызов процедуры с несколькими версиями

  1. В вызывающем коде определите, какие данные необходимо передать в процедуру.

  2. Напишите вызов процедуры обычным образом, показыв данные в списке аргументов. Убедитесь, что аргументы соответствуют списку параметров в одной из версий, определенных для процедуры.

  3. Вам не нужно определить, какая версия процедуры будет вызываться. Visual Basic передает управление в версию, соответствующую списку аргументов.

    В следующем примере вызывается процедура, объявленная post в разделе "Практическое руководство. Определение нескольких версий процедуры". Он получает идентификацию клиента, определяет, является String ли она или другой Integer, а затем в любом случае вызывает ту же процедуру.

    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
    

См. также