Why this code is going wrong
Hi, paste this code in Form1
This is the code:
VB Code:
Public Delegate Function MessageBoxShowHandler(ByVal test As String) As DialogResult
Dim del As New MessageBoxShowHandler(AddressOf MessageBox.Show)
Dim WithEvents clsOuterClass As OuterClass
Public Class OuterClass
Public OuterOutput0 As Short
Public Event ThrdCmplt0(ByVal OuterOutput0 As Short)
Dim WithEvents clsInnerClass As InnnerClass
Public Sub OuterProcedure()
clsInnerClass = New InnnerClass()
Dim Thread0 As New System.Threading.Thread(AddressOf clsInnerClass.InnerProcedure0)
clsInnerClass.InnerInput0 = 10000
Thread0.Start()
End Sub
Sub InnerProcedure0_EventHandler(ByVal InnerOutput0 As Short) Handles clsInnerClass.ThreadComplete0
OuterOutput0 = InnerOutput0
RaiseEvent ThrdCmplt0(OuterOutput0)
End Sub
End Class
Public Sub Outer_EventHandler(ByVal OuterOutput0 As Short) Handles clsOuterClass.ThrdCmplt0
del.BeginInvoke(CStr(OuterOutput0), Nothing, Nothing)
End Sub
Public Class InnnerClass
Public InnerInput0 As Short
Public InnerOutput0 As Short
Public Event ThreadComplete0(ByVal InnerOutput0 As Short)
Public Sub InnerProcedure0()
Dim iCtr0 As Short
For iCtr0 = 1 To InnerInput0
InnerOutput0 = InnerOutput0 + 1
Next
RaiseEvent ThreadComplete0(InnerOutput0)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Short
'
'-->> Why this code don't displays messagebox 5 times <<--
For i = 1 To 5
clsOuterClass = New OuterClass()
Dim Thrd0 As New System.Threading.Thread(AddressOf clsOuterClass.OuterProcedure)
Thrd0.Start()
Next
'^^^^^^^^^^^^^^^^^^^^^^^
End Sub
Please help me :(