[VB.NET] การใช้งาน ListView ของ MaterialSkin2

thongkorn

การใช้งาน ListView ของ MaterialSkin2 ซึ่งจะใช้งานได้สำหรับ .NET Framework 4.5 ขึ้นไป ...



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

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

1. '// Download packages.
   
2. '// https://www.nuget.org/packages/MaterialSkin.2/
   
3. 
   
4. Imports System.Data.OleDb
   
5. Imports MaterialSkin
   
6. Imports MaterialSkin.Controls
   
7. 
   
8. Public Class frmMaterialSkinListview
   
9. 
   
10.     Private Sub frmMaterialSkinListview_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
11.         If Not ConnectDataBase() Then
    
12.             MessageBox.Show("Can't connect Northwind.accdb MS Access DataBase.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
13.             Application.Exit()
    
14.         End If
    
15.         With cmbColorTheme
    
16.             .Items.Add("Orange")
    
17.             .Items.Add("Green")
    
18.             .Items.Add("Light Blue")
    
19.             .Items.Add("Cyan")
    
20.             .Items.Add("Gray")
    
21.         End With
    
22.         cmbColorTheme.SelectedIndex = 1
    
23.         lblRecordCount.Text = ""
    
24.         '// MaterialTextBox Properties. (Which you can customize at Design Time.)
    
25.         With txtSearch
    
26.             .Hint = "Type something to search and press Enter."
    
27.             .UseTallSize = True
    
28.             .UseAccent = True
    
29.             .Anchor = AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top + AnchorStyles.Bottom
    
30.         End With
    
31.         '// Show all data.
    
32.         Call RetrieveData(False)
    
33.     End Sub
    
34. 
    
35.     ' / --------------------------------------------------------------------------------
    
36.     ' / Collect all searches, come in the same place.
    
37.     ' / blnSearch = True, Show that the search results.
    
38.     ' / blnSearch is set default to False, for show all records.
    
39.     Sub RetrieveData(Optional ByVal blnSearch As Boolean = False)
    
40.         strSQL =
    
41.             " SELECT Orders.OrderID, Customers.CompanyName, Customers.ContactName, Customers.Address, Customers.City, " &
    
42.             " Customers.Region, Customers.PostalCode, Customers.Country, Orders.OrderDate, Orders.Freight, Orders.ShipName " &
    
43.             " FROM Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID "
    
44.         If blnSearch Then
    
45.             strSQL = strSQL &
    
46.                 " WHERE " &
    
47.                 " [OrderID] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
48.                 " [CompanyName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
49.                 " [ContactName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
50.                 " [Address] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
51.                 " [City] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
52.                 " [Region] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
53.                 " [PostalCode] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
54.                 " [Country] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
    
55.                 " [ShipName] " & " Like '%" & txtSearch.Text & "%'" &
    
56.                 " ORDER BY OrderID "
    
57.         Else
    
58.             strSQL = strSQL & " ORDER BY OrderID "
    
59.         End If
    
60.         '//
    
61.         Call SetupListView()
    
62.         Try
    
63.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
64.             Cmd = New OleDb.OleDbCommand(strSQL, Conn)
    
65.             DR = Cmd.ExecuteReader()
    
66.             Dim iRow As Integer = 1 '// Counter
    
67.             Do While DR.Read()
    
68.                 Dim NewItem As New ListViewItem(iRow)
    
69.                 With NewItem.SubItems
    
70.                     .Add(DR.Item("OrderID").ToString)
    
71.                     .Add(DR.Item("CompanyName").ToString)
    
72.                     .Add(DR.Item("ContactName").ToString)
    
73.                     .Add(Convert.ToDateTime(DR.Item("OrderDate").ToString))
    
74.                     .Add(DR.Item("Freight").ToString)
    
75.                     .Add(DR.Item("Country").ToString)
    
76.                 End With
    
77.                 lvwData.Items.Add(NewItem)
    
78.                 iRow += 1
    
79.             Loop
    
80.             lblRecordCount.Text = "Total: " & Format(lvwData.Items.Count, "#,##0") & " Records."
    
81.             DR.Close()
    
82.             Cmd.Dispose()
    
83.         Catch ex As Exception
    
84.             MessageBox.Show(ex.Message)
    
85.         End Try
    
86.         txtSearch.Text = String.Empty
    
87.         txtSearch.Focus()
    
88.     End Sub
    
89. 
    
90.     Private Sub txtSearch_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSearch.KeyPress
    
91.         If Trim(Me.txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Exit Sub
    
92.         If Asc(e.KeyChar) = 13 Then
    
93.             '// No beep.
    
94.             e.Handled = True
    
95.             '/ Retrieve Data(True) means that it is searching for information which user want.
    
96.             Call RetrieveData(True)
    
97.         End If
    
98.     End Sub
    
99. 
    
100.     ' / ----------------------------------------------------------------------------------------
     
101.     ' / Initailize MaterialListView Control
     
102.     Sub SetupListView()
     
103.         '// Properties of MaterialListView.
     
104.         With lvwData
     
105.             .Clear()
     
106.             .View = View.Details
     
107.             .GridLines = True
     
108.             .FullRowSelect = True
     
109.             .HideSelection = False
     
110.             .MultiSelect = False
     
111.             .GridLines = True
     
112.             .HoverSelection = True
     
113.             .OwnerDraw = True
     
114.             .Font = New Font("Roboto", 22, FontStyle.Regular)   '// Row height adjustment Use the font size instead.
     
115.             ' 1st Column Index = 0
     
116.             .Columns.Add("#Item", 75)
     
117.             .Columns.Add("OrderID", 100)
     
118.             .Columns.Add("CompanyName", lvwData.Width \ 6 - 5)
     
119.             .Columns.Add("ContactName", lvwData.Width \ 6 - 5)
     
120.             .Columns.Add("OrderDate", lvwData.Width \ 6 - 5)
     
121.             .Columns.Add("Freight", lvwData.Width \ 6 - 10)
     
122.             .Columns.Add("Country", lvwData.Width \ 6 - 10)
     
123.         End With
     
124.     End Sub
     
125. 
     
126.     '// Select Color Scheme
     
127.     Private Sub cmbColorTheme_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbColorTheme.SelectedIndexChanged
     
128.         Select Case cmbColorTheme.SelectedIndex
     
129.             Case 0
     
130.                 SkinManager.ColorScheme = New ColorScheme(Primary.Amber500, Primary.BlueGrey900, Primary.BlueGrey500, Accent.Red700, TextShade.WHITE)
     
131.             Case 1
     
132.                 SkinManager.ColorScheme = New ColorScheme(Primary.Green600, Primary.Green700, Primary.Green200, Accent.Orange700, TextShade.WHITE)
     
133.             Case 2
     
134.                 SkinManager.ColorScheme = New ColorScheme(Primary.LightBlue600, Primary.LightBlue700, Primary.Green200, Accent.Purple700, TextShade.WHITE)
     
135.             Case 3
     
136.                 SkinManager.ColorScheme = New ColorScheme(Primary.Cyan500, Primary.Cyan700, Primary.Cyan100, Accent.Blue700, TextShade.WHITE)
     
137.             Case 4
     
138.                 SkinManager.ColorScheme = New ColorScheme(Primary.Grey600, Primary.Grey700, Primary.Grey100, Accent.Teal700, TextShade.WHITE)
     
139.         End Select
     
140.         txtSearch.Focus()
     
141.     End Sub
     
142. 
     
143.     '// Doublick mouse event for show OrderID.
     
144.     Private Sub lvwData_DoubleClick(sender As Object, e As EventArgs) Handles lvwData.DoubleClick
     
145.         MsgBox("Order ID: " & lvwData.SelectedItems(0).SubItems(1).Text)
     
146.     End Sub
     
147. 
     
148.     Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
     
149.         Call RetrieveData(False)    '// Show all data.
     
150.     End Sub
     
151. 
     
152.     Private Sub frmMaterialSkinListview_Resize(sender As Object, e As EventArgs) Handles Me.Resize
     
153.         If lvwData.Items.Count = 0 Then Return
     
154.         With lvwData
     
155.             .Columns(0).Width = 75
     
156.             .Columns(1).Width = 100
     
157.             .Columns(2).Width = lvwData.Width \ 6 - 5
     
158.             .Columns(3).Width = lvwData.Width \ 6 - 5
     
159.             .Columns(4).Width = lvwData.Width \ 6 - 10
     
160.             .Columns(5).Width = lvwData.Width \ 6 - 10
     
161.             .Columns(6).Width = lvwData.Width \ 6 - 10
     
162.         End With
     
163.     End Sub
     
164. 
     
165.     Private Sub frmMaterialSkinListview_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
     
166.         Me.Dispose()
     
167.         GC.SuppressFinalize(Me)
     
168.         Application.Exit()
     
169.     End Sub
     
170. End Class

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