-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
64 lines (44 loc) · 2.06 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.Reflection
Imports WindowsApp1.Classes
Imports WindowsApp1.LanguageExtensions
Imports Equin.ApplicationFramework
Public Class Form1
Private CustomerView As BindingListView(Of CustomerItem)
Private operations As New Operations
Private Async Sub LoadCustomersButton_Click(sender As Object, e As EventArgs) _
Handles LoadCustomersButton.Click
Dim customers As List(Of CustomerItem)
Dim PropertyName = ColumnNameListBox.Text.Replace(" "c, "")
If Not DescendingOrderCheckBox.Checked Then
customers = Await operations.CustomerSort(PropertyName)
Else
customers = Await operations.CustomerSort(PropertyName, SortDirection.Descending)
End If
CustomerView = New BindingListView(Of CustomerItem)(customers)
DataGridView1.DataSource = CustomerView
DataGridView1.ExpandColumns()
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
'
' Get property names for CustomerItem
'
ColumnNameListBox.DataSource = operations.CustomerItemPropertyNames()
End Sub
Private Async Sub ConventionalSortOnePropertyButton_Click(sender As Object, e As EventArgs) Handles ConventionalSortOnePropertyButton.Click
Dim conventionalSort = Await operations.ConventionalOrderBy()
CustomerView = New BindingListView(Of CustomerItem)(conventionalSort)
DataGridView1.DataSource = CustomerView
DataGridView1.ExpandColumns()
End Sub
Private Async Sub UnusualSortButton_Click(sender As Object, e As EventArgs) Handles UnusualSortButton.Click
Dim results = Await operations.DemonstrationCustomOrdering()
CustomerView = New BindingListView(Of CustomerItem)(results)
DataGridView1.DataSource = CustomerView
DataGridView1.ExpandColumns()
End Sub
Private Sub TwoColumnOrderByButton_Click(sender As Object, e As EventArgs) Handles TwoColumnOrderByButton.Click
Dim form As New MultiColumnSortForm
form.ShowDialog()
End Sub
End Class