Visual Basic .Net對象和類

Question

我正在設計一個非常高級別的高級ATM。我知道我可以使用數據庫，但想進一步探索我所知道的對象。

我有ATM窗口上運行的形式。我希望表單打印一些帳戶餘額，這些餘額將存儲在帳戶類中的人員對象中。

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，並能夠檢索已輸入PIN碼的人的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語句，如果其他語句。如果result1那麼Account.NewPerson = Account.Person1。 if result2 then 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 

您還可以將列表綁定到窗體中的組合框，並根據選擇的帳戶更改視圖。