[.NET] 把CLASS加進陣列裡的疑問

[a0813 (囧)]

教學書上要我們作這樣的範例:
1、設定一個emplyee 員工類別，該類別的成員如下：
(1)salary 薪水屬性：可用設定員工薪水，最小值20000，最大值40000
(2)ename 欄位：原來設定員工姓名
(3)Sub PrintData()：顯示員工的姓名、薪水資訊
(4)ShowError()事件：當員工salary 薪水屬性設定錯誤時，會觸發此事件，並顯示「薪
水必須介於20000到40000之間」


2、延續上例，建立emplyee員工物件陣列，並讓使用者自己指定員工人數，接著再逐一輸
入每一位員工的姓名和薪資，最後再印出您所輸入的所有員工資料。


3、延續上例，再製作搜尋員工姓名的功能。先讓使用者輸入要搜尋員工的姓名，接著會
由員工物件陣列去尋找所符合的資料並顯示出來。


這是目前寫的：

Module Module1
    Class emplyee
        Private _salary As Integer
        Public Ename As String

        Public Event salaryerror(ByVal _salary As Integer)
        Public Sub printdata()

        End Sub
        Public Property salary() As Integer
            Get
                Return _salary
            End Get
            Set(ByVal value As Integer)
                _salary = value
                If value < 20000 Or value > 40000 Then
                    _salary = 25000
                    RaiseEvent salaryerror(value)
                End If
            End Set
        End Property


    End Class

    Sub showerror(ByVal _salary As Integer)
        Console.WriteLine("{0}不足2萬或超過4萬，請重新填寫。", _salary)
    End Sub

    Sub main()
        Dim empd As New emplyee
        AddHandler (empd.salaryerror), AddressOf showerror
        Dim empdb As New ArrayList()
        empd.Ename = "測試"
        empd.salary = 50000
        empdb.Add(empd)
        empd.Ename = "測試2"
        empd.salary = 30000
        empdb.Add(empd)
        empd.Ename = "測試3"
        empd.salary = 25000
        empdb.Add(empd)
        Dim newemp As emplyee
        newemp = empdb(0)
        Console.WriteLine("員工1姓名:{0}，薪資:{1}", newemp.Ename,
newemp.salary)
        Console.WriteLine("測試完成")
        newemp = empdb(1)
        Console.WriteLine("員工2姓名:{0}，薪資:{1}", newemp.Ename,
newemp.salary)
        Console.WriteLine("測試完成")
    End Sub
End Module


在加入陣列的過程中，已經被加進陣列的那些變數會隨著empd的更動也被更改

(也就是後面顯示的是員工1=測試3，薪資25000，員工2=測試3，薪資25000，全都一樣)

想請問是因為陣列不能這樣用嗎?要怎麼作才可以把它修正回去呢?感謝大家

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.48.191
※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1409259961.A.B25.html
推 johnpage: Dim empd As New emplyee
→ johnpage: empd 要new三次，而且要放對位置
推 GoalBased: 我不是寫VB的，但是你不能寫成
→ GoalBased: 類似emplyee[] a = new emlpyee[3]() 這種東西嗎
→ MOONRAKER: 走路都會跌倒不要急著學飛。
推 KawasumiMai: 樓上不嗆人好像會死一樣
推 GoalBased: 走路跌倒 或是 想飛跌倒 都沒關係啊
→ GoalBased: 跌倒了再爬起來 這不就是學習嗎
推 johnpage: 用 ArrayList時，可以不需要像2F那樣寫
→ johnpage: 設定前ㄧ行都new，應該就可以
→ MOONRAKER: 還在練習階段一次一個就叫他縮寫，原來各位都資質優異
→ MOONRAKER: 一步登天。那個K某對我就是愛嗆人，下次小心嗆死你。
→ KawasumiMai: 趕跑新人好像很強一樣，把自尊建立在踐踏別人身上
→ KawasumiMai: 自己看一下之前的推文，不是亨就是科就是哈
→ KawasumiMai: 也不想一下幾歲了
→ oread168: 和氣生財