1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim result As IEnumerable(Of Tuple(Of String, Integer, Integer))

        result = SearchWords("SELECT * FROM MyTable", New String() {"SELECT", "FROM"})

        For Each r As Tuple(Of String, Integer, Integer) In result
            Console.WriteLine("Value: {0} Index: {1} Length: {2}", r.Item1, r.Item2, r.Item3)
        Next
    End Sub

    Function SearchWords(input As String, words As String()) As IEnumerable(Of Tuple(Of String, Integer, Integer))
        Dim pattern As String = String.Join("|", words)
        Dim matches As MatchCollection = Regex.Matches(input, pattern)

        Dim indexes As IEnumerable(Of Tuple(Of String, Integer, Integer)) =
            From m As Match In matches.Cast(Of Match)()
            Select Tuple.Create(m.Value, m.Index, m.Length)

        Return indexes
    End Function

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
 

Option Strict On
Option Infer Off

Imports System.Reflection

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim oResult As Object
            Dim div As New Division

            oResult = div.GetType.InvokeMember(
                "Divide",
                BindingFlags.InvokeMethod Or
                    BindingFlags.NonPublic Or
                    BindingFlags.Instance,
                Type.DefaultBinder,
                div,
                {10, 0})

            MessageBox.Show(oResult.ToString)
        Catch ex As Exception
            If ex.InnerException IsNot Nothing Then
                MessageBox.Show(ex.InnerException.ToString) ' Το exception που προκάλεσε το Invocation exception.
            End If

            MessageBox.Show(ex.ToString) ' Όλο το μύνημα.
        End Try
    End Sub
End Class

Public Class Division
    ' Μήπως παρατηρείς τίποτα "παράξενο"
    ' εδώ;
    Private _
    Function Divide(x As Integer, y As Integer) As Integer
        Return x \ y
    End Function
End Class

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
 

Option Strict On
Option Infer Off

Imports System.Threading.Tasks

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Me.Text = "Start"
            Dim t As New NotifyTask(AddressOf DoSomething, AddressOf TaskFinished)

            Me.Button1.Enabled = False
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

    Private Sub DoSomething()
        Threading.Thread.Sleep(3000)
    End Sub

    Private Sub TaskFinished(sender As System.Object, e As System.EventArgs)
        Try
            Me.Text = "Done"
            Me.Button1.Enabled = True ' Δεν χρειάζεται να κάνεις invoke δες παρακάτω γιατί.
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
End Class

' -------------------------------------------------------------------------------------

Public Class NotifyTask
    ' Θα μπορούσες να κληρονομήσεις το EventArgs και να φτιάξεις δικό σου, 
    ' π.χ. TaskEventArgs γιά να σου γυρίζει και το Task με τα όποια λάθη έχει και, 
    ' να το περάσεις σαν παράμετρο στην WhenFinished As EventHandler(Of TaskEventArgs).
    Public Sub New(SubToCall As Action, WhenFinished As EventHandler(Of EventArgs))
        Try
            If SubToCall Is Nothing Then Throw New ArgumentNullException("SubToCall")

            AddHandler Me.TaskEnd, WhenFinished

            Task.Factory.StartNew(SubToCall).
                ContinueWith(AddressOf EndTask, TaskScheduler.FromCurrentSynchronizationContext)

            ' Αν σε δυσκολεύει η παραπάνω σύνταξη δες αυτήν.
            ''Dim tsk As Task = Task.Factory.StartNew(SubToCall)
            ''Dim tsk2 As Task = tsk.ContinueWith(AddressOf EndTask, TaskScheduler.FromCurrentSynchronizationContext)

            ' Οι παραπάνω 2 γραμμές λένε:
            ' 1. Ξεκίνα ένα task που θα τρέξει σε νέο thread και
            ' 2. μόλις τελειώσει, συνέχισε (ContinueWith) με ένα άλλο Task που θα τρέξει στο thread από το οποίο φτιάχτηκε το Class NotifyTask.
            '    (Στην δική μας περίπτωση στο κυρίως Thread).

            ' Γιά αυτόν τον λόγο βάλαμε το "μυστήριο" TaskScheduler.FromCurrentSynchronizationContext σαν παράμετρο στο 2ο Task.
            ' Με αυτόν τον τρόπο όταν κληθεί το Sub TaskFinished από το TaskEnd event, δεν χρειάζεται να κάνεις Me.InvokeRequired και invoke,
            ' γιατί θα τρέξει στο thread που φτιάξαμε το UI (User Interface).
        Catch
            Throw
        End Try
    End Sub

    Private Event TaskEnd As EventHandler(Of EventArgs)

    Private Sub EndTask(ByVal task As Task)
        RaiseEvent TaskEnd(Me, New EventArgs)
    End Sub
End Class