作者a0813 (囧)
看板Visual_Basic
標題[.NET] 把CLASS加進陣列裡的疑問
時間Fri Aug 29 05:05:59 2014
教學書上要我們作這樣的範例:
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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1409259961.A.B25.html
1F：推 johnpage: Dim empd As New emplyee 08/29 07:48
2F：→ johnpage: empd 要new三次，而且要放對位置 08/29 07:49
3F：推 GoalBased: 我不是寫VB的，但是你不能寫成 08/29 08:57
4F：→ GoalBased: 類似emplyee[] a = new emlpyee[3]() 這種東西嗎 08/29 08:57
5F：→ MOONRAKER: 走路都會跌倒不要急著學飛。 08/29 09:25
6F：推 KawasumiMai: 樓上不嗆人好像會死一樣 08/29 11:07
7F：推 GoalBased: 走路跌倒 或是 想飛跌倒 都沒關係啊 08/29 15:04
8F：→ GoalBased: 跌倒了再爬起來 這不就是學習嗎 08/29 15:04
9F：推 johnpage: 用 ArrayList時，可以不需要像2F那樣寫 08/29 15:19
10F：→ johnpage: 設定前ㄧ行都new，應該就可以 08/29 15:20
11F：→ MOONRAKER: 還在練習階段一次一個就叫他縮寫，原來各位都資質優異 08/29 15:27
12F：→ MOONRAKER: 一步登天。那個K某對我就是愛嗆人，下次小心嗆死你。 08/29 15:28
13F：→ KawasumiMai: 趕跑新人好像很強一樣，把自尊建立在踐踏別人身上 08/29 18:22
14F：→ KawasumiMai: 自己看一下之前的推文，不是亨就是科就是哈 08/29 18:22
15F：→ KawasumiMai: 也不想一下幾歲了 08/29 18:22
16F：→ oread168: 和氣生財 09/16 22:19