Создание класса в VB

Question

Мне нужна помощь с небольшой проблемой ...

Это код, который я использую для банкомата:

   Dim ID As String
    Dim _PinPad As PinPad
    Dim _CashDespenser As CashDespenser
    Dim _PrintManager As PrintManager
    Dim _CardReader As CardReader
    Public Sub New(ByVal _PinPad As PinPad, ByVal _CashDespenser As CashDespenser, ByVal _PrintManager As PrintManager, ByVal _CardReader As CardReader)
        MyBase.New()
        Me._PinPad = _PinPad
        Me._CardReader = _CardReader
        Me._CashDespenser = _CashDespenser
        Me._PrintManager = _PrintManager
    End Sub
    Public Sub New(ByVal ID As String, ByVal _PinPad As PinPad, ByVal _CashDespenser As CashDespenser, ByVal _PrintManager As PrintManager, ByVal _CardReader As CardReader)
        MyBase.New()
        Me.ID = ID
        Me._PinPad = _PinPad
        Me._CardReader = _CardReader
        Me._CashDespenser = _CashDespenser
        Me._PrintManager = _PrintManager
    End Sub

И теперь я пытаюсьзаставить его инстанцировать в событии загрузки формы, которое выглядит следующим образом:

Dim ThisATM As New ATM
        Dim ThisKeyCard As New KeyCard("1234", "5678", "Mikki Monster")

        ThisATM.getCashDespenser.Dispensecash()
        ThisATM.getID()
        ThisATM.getPinPad.checkpin()
        ThisATM.getPrintManager.print("Pikachu Rules")

Класс KeyCard работал нормально, но класс ATM не будет работать вообще.Кажется, я не могу позволить мне ввести параметры после бита "Новый банкомат" ... Что вы предлагаете? Ссылка для изображения параметров

Answer 1

Вам необходимо добавить

Public Sub New()
   MyBase.New()
End Sub

в ваш класс банкоматов.Затем вам нужно изменить

MyBase.New()

в других конструкторах на

Me.New()