[VB.NET] การสร้าง ListView และ ImageList Control ในแบบ Run Time หรือแบบไดนามิค

thongkorn

การสร้าง ListView และ ImageList Control ในแบบ Run Time หรือแบบไดนามิค เป็นการใช้โค้ดล้วนๆในการสร้างคอนโทรลเหล่านี้ขึ้นมาในแบบอัตโนมัติ ...


มาดูโค้ดกันเถอะ ...

1.     '// Create a new ListView control dynamically.
   
2.     Private listView1 As New ListView()
   
3. 
   
4.     Private Sub frmListViewImage_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
5.         Call CreateMyListView()
   
6.     End Sub
   
7. 
   
8.     ' / --------------------------------------------------------------------------------
   
9.     '// Create ListView Control @Run Time.
   
10.     ' / --------------------------------------------------------------------------------
    
11.     Private Sub CreateMyListView()
    
12.         listView1.Bounds = New Rectangle(New Point(10, 10), New Size(370, 500))
    
13. 
    
14.         '// Set the view to show details.
    
15.         With listView1
    
16.             '// Set ListView view mode to show Large Icons.
    
17.             .View = View.LargeIcon
    
18.             .Cursor = Cursors.Hand
    
19.             '// Adjust to the size of the form.
    
20.             .Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
    
21.         End With
    
22. 
    
23.         ' / --------------------------------------------------------------------------------
    
24.         ' / SAMPLE BASIC ... Static ListView control
    
25.         ' / Create items and sets of subitems for each item.
    
26.         'Dim item1 As New ListViewItem("Table 1", 0)
    
27.         'Dim item2 As New ListViewItem("Table 2", 1)
    
28.         'Dim item3 As New ListViewItem("Table 3", 0)
    
29.         'Dim item4 As New ListViewItem("Table 4", 0)
    
30.         'Dim item5 As New ListViewItem("Table 5", 1)
    
31.         'Dim item6 As New ListViewItem("Table 6", 1)
    
32.         'Dim item7 As New ListViewItem("Table 7", 0)
    
33.         'Add the items to the ListView.
    
34.         'listView1.Items.AddRange(New ListViewItem() {item1, item2, item3, item4, item5, item6, item7})
    
35.         Try
    
36.             ' / --------------------------------------------------------------------------------
    
37.             ' / @Run Time or Dynamically.
    
38.             Dim Items As New List(Of ListViewItem)
    
39.             Dim RancomClass As New Random()
    
40.             For i As Integer = 0 To 16
    
41.                 '// Text and Images index
    
42.                 Dim item As New ListViewItem("Table " & i + 1, RancomClass.Next(0, 9) Mod 2)
    
43.                 Items.Add(item)
    
44.             Next
    
45.             listView1.Items.AddRange(Items.ToArray)
    
46. 
    
47.             '// Create ImageList objects @Run Time or Dynamically.
    
48.             Dim imgList As New ImageList()
    
49.             imgList.ImageSize = New Size(128, 128)
    
50.             Dim strPathImages As String = MyPath(Application.StartupPath) & "images"
    
51.             '// Initialize the ImageList objects with bitmaps.
    
52.             With imgList.Images
    
53.                 .Add(Bitmap.FromFile(strPathImages & "table-icon-green.png"))
    
54.                 .Add(Bitmap.FromFile(strPathImages & "table-icon-red.png"))
    
55.             End With
    
56.             '// Assign the ImageList objects to the ListView.
    
57.             listView1.LargeImageList = imgList
    
58. 
    
59.             '// Add the ListView to the control collection.
    
60.             Me.Controls.Add(listView1)
    
61.             '// start event handling at any time during program execution.
    
62.             AddHandler listView1.Click, AddressOf listView1_Click
    
63.         Catch ex As Exception
    
64.             MessageBox.Show(ex.Message)
    
65.         End Try
    
66.     End Sub 'CreateMyListView
    
67. 
    
68.     '// Event Handler.
    
69.     Private Sub listView1_Click(sender As System.Object, e As EventArgs)
    
70.         MsgBox("ListView Index = " & listView1.SelectedIndices(0).ToString() & vbCrLf & "ListView Caption = " & listView1.SelectedItems.Item(0).Text)
    
71.     End Sub
    
72. 
    
73.     ' / --------------------------------------------------------------------------------
    
74.     ' / Get my project path
    
75.     ' / AppPath = C:\My Project\bin\debug
    
76.     ' / Replace "\bin\debug" with ""
    
77.     ' / Return : C:\My Project\
    
78.     Function MyPath(AppPath As String) As String
    
79.         '/ Return Value
    
80.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
81.         '// Put the BackSlash "" or ASCII Code = 92 at the end.
    
82.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
83.     End Function
    
84. 
    
85. End Class

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

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