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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 

Public Class Form1
    Private _lv As ListView

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New Func(Of DataTable)(AddressOf LoadData)

        _lv = New ListView With {.Name = "Listview1", .View = View.Details, .Dock = DockStyle.Fill, .GridLines = True}

        _lv.Columns.Add("ID")
        Me.Controls.Add(_lv)

        Me.SetText("Retrieving Data")

        _lv.BeginUpdate()

        ' Ο κώδικας του method LoadData θα τρέξει σε άλλο thread
        ' δεν είναι απαραίτητο το AddressOf CallBack.
        a.BeginInvoke(AddressOf CallBack, Nothing)

        MessageBox.Show("Do something else while retrieving data.")
    End Sub

    ' αυτό το function δεν τρέχει στο κύριο thread αλλά σε νέο.
    Private Function LoadData() As DataTable
        Dim r As DataRow
        Dim dt As DataTable = New DataTable("BigTable")

        dt.Columns.Add("ID", GetType(Integer))

        For i As Integer = 1 To 1000000
            r = dt.NewRow : r.Item("ID") = i : dt.Rows.Add(r)
            If i Mod 100 = 0 Then
                Me.SetText("Retrieving " + i.ToString + " records.")
            End If
        Next

        Return dt
    End Function

    ' Όταν τελειώσει το Async καλεί αυτό το function (δεν τρέχει στο κυρίως thread).
    ' Δεν είναι απαραίτητο να το κάνεις αυτό απλά να ξέρεις ότι υπάρχει.
    Private Sub CallBack(ByVal IAsync As IAsyncResult)
        Dim result As Runtime.Remoting.Messaging.AsyncResult = CType(IAsync, Runtime.Remoting.Messaging.AsyncResult)
        Dim func As Func(Of DataTable) = CType(result.AsyncDelegate, Func(Of DataTable))
        Dim dt As DataTable = func.EndInvoke(result)
        Dim i As Integer

        For Each r As DataRow In dt.Rows
            i += 1

            If i Mod 100 = 0 Then ' κάθε 100 εγγραφές γέμιζε το listview.
                _lv.Invoke(New Action(Of String)(AddressOf fillRow), CType(r.Item("ID"), String))
            End If
        Next

        _lv.Invoke(New Action(AddressOf EndUpdate))
    End Sub

    ' Μπες στο κύριο thread.
    Sub fillRow(ByVal text As String)
        _lv.Items.Add(text)

        Me.SetText("Filling Listview with a sample of " + _lv.Items.Count.ToString + " records.")
    End Sub

    ' Έλεγξε αν χρειάζεται invoke ή όχι.
    ' Δηλαδή είμαι στο thread που πρέπει να καλέσω απλά σαν function ή πρέπει να "πάω" εκεί;
    Private Sub SetText(ByVal text As String)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of String)(AddressOf SetText), text)
        Else
            Me.Text = text
        End If
    End Sub

    Private Sub EndUpdate()
        _lv.EndUpdate()
        MessageBox.Show("Finished.")
    End Sub
End Class