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

看板Visual_Basic作者a0813 (囧)時間9年前 (2014/08/29 05:06)推噓5(5推 0噓 11→)

留言16則, 5人參與討論串1/1

教學書上要我們作這樣的範例: 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

08/29 07:48, , 1^F

08/29 07:48, 1^F

→

johnpage

08/29 07:49, , 2^F

08/29 07:49, 2^F

推

GoalBased

08/29 08:57, , 3^F

08/29 08:57, 3^F