Visual Basic .Net 对象和类

Question

我正在设计一个非常高级的 ATM。我知道我可以使用数据库，但想进一步探索我对对象知之甚少。

我的 ATM 在 Windows 窗体上运行。我希望表单打印一些例如将存储在帐户类中的人员对象中的帐户余额。

Public Class Account

                Public Shared _PersonName As String
                Public Shared _WithBank As String
                Public Shared _AccountNumber As Double
                Public Shared _AccountBalance As Double
                Public Shared _PIN As Integer

        Public Sub New(ByVal personName As String, ByVal accountNumber As Double, ByVal accountBalance As Double, ByVal pin As Integer)
                _PersonName = personName
                _AccountNumber = accountNumber
                _MaxWithdrawal = Withdrawal()
                _AccountBalance = accountBalance
                _PIN = pin
            End Sub
End Class

在表单本身中，我希望能够根据输入的密码在两个人之间切换。我希望能够说 Account.NewPerson.accountNumber 并能够检索输入密码的人的 accountNumber。

我现在正在努力创建对象。我可能做错了，并希望得到任何建设性的指导。我不确定把这些放在哪里。同班还是新班？

Public Shared Person1 As Account = New Account("Tom Jones", 123456789, 6000, 1234)
Public Shared Person2 As Account = New Account("Bob Marley", 987654321, 500, 5678)
Public Shared NewPerson As Account = New Account("", 0, 0, 0)

在表单中，我有一个 if 语句，即 if else 语句。如果结果 1 则 Account.NewPerson = Account.Person1。 如果结果 2 则 Account.NewPerson = Account.Person2。

我认为这是正确的方法，但我可能完全走错了路。如果解决了这个问题，我将换掉 if else 语句进行搜索，因为我知道该怎么做。

感谢您的帮助

Answer 1

将您的帐户对象保存在通用列表中。

Dim Accounts As List(Of Account) = New List(Of Account) 
Accounts.Add(New Account("Tom Jones", 123456789, 6000, 1234) )  
Accounts.Add(New Account("Bob Marley", 987654321, 500, 5678) )
Dim currentName = Accounts(0)._PersonName

您还可以将列表绑定到表单中的组合框，并根据选择的帐户更改视图。