在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

现在，我尝试将其实例化到窗体的load事件中，如下所示：

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类根本不能工作。它似乎不能让我在“新的自动取款机”位后输入参数...你有什么建议？Link For an Image of the parameters

Answer 1

您需要添加

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

去你的自动取款机课上。然后，您需要更改您的

MyBase.New()

语句添加到其他构造函数中

Me.New()