[VB.NET] ทำความเข้าใจและใช้งาน List (Of Object)

thongkorn

สืบเนื่องจากการที่แอดมินได้แจกโค้ด VB.NET กับการอ่านเขียนข้อมูลลงใน Google Sheets ซึ่งจะมองเห็นชีตเป็นเหมือนแผ่นข้อมูล หรือตารางข้อมูลนั่นเอง แต่การเข้าถึงชีต ไม่สามารถกระทำได้เหมือนทำกับฐานข้อมูล เราจึงมองชีตเป็นแบบ Array หรือ List ในการเข้าถึงข้อมูลได้จึงต้องทำแบบ Sequential หรือแบบเรียงลำดับ ด้วยการใช้ Index หรือแถวลำดับนั่นเอง จึงต้องนำ List (Of Object) เข้ามาช่วย ...

List (Of Object) คือรูปแบบ List ใน Visual Basic .NET เพื่อใช้เก็บข้อมูลในรูปแบบของ Object ซึ่งจะไม่ระบุประเภทข้อมูลเอาไว้ล่วงหน้า (Non-Generic) ซึ่งทำให้สามารถเก็บข้อมูลประเภทต่างๆได้ใน List เดียว ข้อมูลที่ว่าก็คือ ข้อความ, ตัวเลขจำนวนเต็มหรือทศนิยม, วันเดือนปี, บูลีน หรือแม้แต่ Class ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Public Class frmListOfObject
   
2. 
   
3.     '// Example of a class used in a list.
   
4.     Class CustomClass
   
5.         Public Overrides Function ToString() As String
   
6.             Return "I'm a custom class!"
   
7.         End Function
   
8.     End Class
   
9. 
   
10.     ' / --------------------------------------------------------------------------------
    
11.     Private Sub btnSampleOne_Click(sender As System.Object, e As System.EventArgs) Handles btnSampleOne.Click
    
12.         TextBox1.Clear()
    
13.         TextBox2.Clear()
    
14.         'Dim ListObject As List(Of Object) = New List(Of Object)()
    
15.         Dim ListObject As New List(Of Object)
    
16.         '// เพิ่มข้อมูลลงในลิสต์
    
17.         ListObject.Add("Hello, World!")
    
18.         ListObject.Add(42)
    
19.         ListObject.Add(3.14)
    
20.         ListObject.Add(DateTime.Now)
    
21.         ListObject.Add(True)
    
22.         ListObject.Add(New CustomClass())
    
23.         '// Use String.Join to combine the items in a List into a single message.
    
24.         TextBox1.Text = String.Join(vbNewLine, ListObject)
    
25.         TextBox1.Text = TextBox1.Text & vbNewLine & "Total : " & ListObject.Count
    
26.     End Sub
    
27. 
    
28.     ' / --------------------------------------------------------------------------------
    
29.     Private Sub btnSampleTwo_Click(sender As System.Object, e As System.EventArgs) Handles btnSampleTwo.Click
    
30.         TextBox1.Clear()
    
31.         TextBox2.Clear()
    
32.         '// Create a List(Of Object) with two columns.
    
33.         Dim ListObject As New List(Of Object)
    
34.         '// Add data to the two-column list.
    
35.         ListObject.Add(New List(Of Object) From {"Name", "Age"})
    
36.         ListObject.Add(New List(Of Object) From {"John", 30})
    
37.         ListObject.Add(New List(Of Object) From {"Alice", 25})
    
38.         ListObject.Add(New List(Of Object) From {"Bob", 35})
    
39.         '// Looping data in a list.
    
40.         For Each row As List(Of Object) In ListObject
    
41.             TextBox1.Text = TextBox1.Text & row(0) & vbTab & row(1) & vbNewLine
    
42.         Next
    
43.         TextBox1.Text = TextBox1.Text & vbNewLine & "Total : " & ListObject.Count
    
44.     End Sub
    
45. 
    
46.     ' / --------------------------------------------------------------------------------
    
47.     ' / ADD
    
48.     ' / --------------------------------------------------------------------------------
    
49.     Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
    
50.         TextBox1.Clear()
    
51.         TextBox2.Clear()
    
52.         '// Create a List(Of Object) with two columns.
    
53.         Dim ListObject As New List(Of Object)
    
54.         '// Add members to the list.
    
55.         ListObject.Add(New List(Of Object) From {"Name", "Age"})
    
56.         Dim row1 As New List(Of Object) From {"John", 25}
    
57.         Dim row2 As New List(Of Object) From {"Alice", 30}
    
58.         Dim row3 As New List(Of Object) From {"Bob", 35}
    
59.         ListObject.Add(row1)
    
60.         ListObject.Add(row2)
    
61.         ListObject.Add(row3)
    
62.         '// Display members.
    
63.         Call DisplayList(ListObject)
    
64.         '// Input new data to List.
    
65.         Dim Name As String = InputBox("Enter your name:", "User Input", "Name")
    
66.         Dim Age As String = InputBox("Enter your age:", "User Input", "30")
    
67.         Dim NewRow As New List(Of Object) From {Name, Age}
    
68.         '// Add a new row.
    
69.         ListObject.Add(NewRow)
    
70.         '// Show update data in the list.
    
71.         TextBox2.Text = TextBox1.Text & Name & vbTab & Age & vbNewLine
    
72.     End Sub
    
73. 
    
74.     ' / --------------------------------------------------------------------------------
    
75.     ' / EDIT
    
76.     ' / --------------------------------------------------------------------------------
    
77.     Private Sub btnEdit_Click(sender As System.Object, e As System.EventArgs) Handles btnEdit.Click
    
78.         TextBox1.Clear()
    
79.         TextBox2.Clear()
    
80.         '// Create a List(Of Object) with two columns.
    
81.         Dim ListObject As New List(Of Object)
    
82.         '// Add data to the two-column list.
    
83.         With ListObject
    
84.             .Add(New List(Of Object) From {"Name", "Age"})
    
85.             .Add(New List(Of Object) From {"John", 30})
    
86.             .Add(New List(Of Object) From {"Alice", 25})
    
87.             .Add(New List(Of Object) From {"Bob", 35})
    
88.         End With
    
89.         '// Show data in list.
    
90.         Call DisplayList(ListObject)
    
91.         '// Select the row index you want to edit.
    
92.         Dim RowNum As String = InputBox("Enter number of row to edit:", "User Input", "0")
    
93.         If String.IsNullOrEmpty(RowNum) Then Return
    
94.         '// Check if the row number is within the valid range of indices in the list.
    
95.         If RowNum >= 0 AndAlso RowNum < ListObject.Count Then
    
96.             '// Get the data for row to edit.
    
97.             Dim RowEdit As List(Of Object) = ListObject(RowNum)
    
98.             '// Prompt the user to edit the values.
    
99.             Dim NewName As String = InputBox("Enter new name :", "Edit Name", RowEdit(0).ToString())
    
100.             Dim NewAge As String = InputBox("Enter new age :", "Edit Age", RowEdit(1).ToString())
     
101.             If String.IsNullOrEmpty(NewName) OrElse String.IsNullOrEmpty(NewAge) Then
     
102.                 MessageBox.Show("User canceled or entered invalid input.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
103.                 Return
     
104.             End If
     
105.             '// Update the values in the row.
     
106.             RowEdit(0) = NewName
     
107.             RowEdit(1) = NewAge
     
108.             '// Display update data list into TextBox2.
     
109.             For Each row As List(Of Object) In ListObject
     
110.                 TextBox2.Text = TextBox2.Text & row(0) & vbTab & row(1) & vbNewLine
     
111.             Next
     
112.         Else
     
113.             MessageBox.Show("The specified row does not exist in the list.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
114.         End If
     
115.     End Sub
     
116. 
     
117.     ' / --------------------------------------------------------------------------------
     
118.     ' / REMOVE
     
119.     ' / --------------------------------------------------------------------------------
     
120.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
     
121.         TextBox1.Clear()
     
122.         TextBox2.Clear()
     
123.         '// Create a List(Of Object) with two columns.
     
124.         Dim ListObject As New List(Of Object)
     
125.         ListObject.Add(New List(Of Object) From {"Name", "Age"})
     
126.         Dim row1 As New List(Of Object) From {"John", 25}
     
127.         Dim row2 As New List(Of Object) From {"Alice", 30}
     
128.         Dim row3 As New List(Of Object) From {"Bob", 35}
     
129.         '// Add members to the list.
     
130.         ListObject.Add(row1)
     
131.         ListObject.Add(row2)
     
132.         ListObject.Add(row3)
     
133.         Call DisplayList(ListObject)
     
134.         '// Select the row index you want to remove.
     
135.         Dim RowNum As String = InputBox("Enter number of row to remove:", "User Input", "0")
     
136.         If String.IsNullOrEmpty(RowNum) Then Return
     
137.         '// Check if the row number is within the valid range of indices in the list.
     
138.         If RowNum >= 0 AndAlso RowNum < ListObject.Count Then
     
139.             ListObject.RemoveAt(RowNum) ' Remove the row at index.
     
140.             '// Display update data list into TextBox2.
     
141.             For Each row As List(Of Object) In ListObject
     
142.                 TextBox2.Text = TextBox2.Text & row(0) & vbTab & row(1) & vbNewLine
     
143.             Next
     
144.         Else
     
145.             MessageBox.Show("The specified row does not exist in the list.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
146.         End If
     
147.     End Sub
     
148. 
     
149.     ' / --------------------------------------------------------------------------------
     
150.     Private Sub DisplayList(List As List(Of Object))
     
151.         For Each row As List(Of Object) In List
     
152.             TextBox1.Text = TextBox1.Text & row(0) & vbTab & row(1) & vbNewLine
     
153.         Next
     
154.     End Sub
     
155. 
     
156.     Private Sub frmListOfObject_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
157.         Me.Dispose()
     
158.         GC.SuppressFinalize(Me)
     
159.         End
     
160.     End Sub
     
161. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...