[Source Code] Multithreading example
I'm not going to make a tutorial about it, but I attached an example program that uses multithreading to show you how useful it is. 
Virusscan:
Virus total
Jotti
Source code:
[php]
Public Class frmMain
#Region "All the code used Without multithreading"
Private Sub btnFreezeWithoutMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFreezeWithoutMultithreading.Click
Dim MsgBoxAnswer As String = MsgBox("Freezing the thread will make the application freeze for 5 seconds." & vbCrLf & "Do you wish to continue?", MsgBoxStyle.YesNo, "Freeze Thread")
If MsgBoxAnswer = vbYes Then
btnClickMe.Enabled = True
Threading.Thread.Sleep(5000)
btnClickMe.Enabled = False
MsgBox("Thread is back and running!", vbInformation, "Back")
End If
End Sub
Private Sub btnClickMeWithoutMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickMe.Click
MsgBox("Wow, good job!", vbExclamation, "")
End Sub
#End Region
#Region "This is all the code used for Multithreading"
Dim threadFreeze As System.Threading.Thread
Dim WithEvents threadFreezeMe As cFreezeME
Private Sub btnClickMeWithMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClick.Click
MsgBox("Meh, that was easy." & vbCrLf & "Thread status: " & threadFreeze.ThreadState.ToString, , "")
End Sub
Private Sub btnFreezeWithMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFreezeWithMultithreading.Click
Dim MsgBoxAnswer As String = MsgBox("Freezing the thread will NOT make the application freeze for 5 seconds." & vbCrLf & "Do you wish to continue?", MsgBoxStyle.YesNo, "Freeze Thread")
Dim threadFreezeMe As New cFreezeME
threadFreeze = New Threading.Thread(AddressOf threadFreezeMe.FreezeME)
If MsgBoxAnswer = vbYes Then
btnClick.Enabled = True
threadFreeze.Start()
End If
End Sub
'Create a new class so we can do cross-class calls.
Public Class cFreezeME
Public Function FreezeME()
Threading.Thread.Sleep(5000)
Return MsgBox("Thread woke up!", vbInformation, "Ooh noes!")
End Function
End Class
#End Region
End Class
[/php]
Virusscan:
Virus total
Jotti
Source code:
[php]
Public Class frmMain
#Region "All the code used Without multithreading"
Private Sub btnFreezeWithoutMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFreezeWithoutMultithreading.Click
Dim MsgBoxAnswer As String = MsgBox("Freezing the thread will make the application freeze for 5 seconds." & vbCrLf & "Do you wish to continue?", MsgBoxStyle.YesNo, "Freeze Thread")
If MsgBoxAnswer = vbYes Then
btnClickMe.Enabled = True
Threading.Thread.Sleep(5000)
btnClickMe.Enabled = False
MsgBox("Thread is back and running!", vbInformation, "Back")
End If
End Sub
Private Sub btnClickMeWithoutMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickMe.Click
MsgBox("Wow, good job!", vbExclamation, "")
End Sub
#End Region
#Region "This is all the code used for Multithreading"
Dim threadFreeze As System.Threading.Thread
Dim WithEvents threadFreezeMe As cFreezeME
Private Sub btnClickMeWithMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClick.Click
MsgBox("Meh, that was easy." & vbCrLf & "Thread status: " & threadFreeze.ThreadState.ToString, , "")
End Sub
Private Sub btnFreezeWithMultithreading_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFreezeWithMultithreading.Click
Dim MsgBoxAnswer As String = MsgBox("Freezing the thread will NOT make the application freeze for 5 seconds." & vbCrLf & "Do you wish to continue?", MsgBoxStyle.YesNo, "Freeze Thread")
Dim threadFreezeMe As New cFreezeME
threadFreeze = New Threading.Thread(AddressOf threadFreezeMe.FreezeME)
If MsgBoxAnswer = vbYes Then
btnClick.Enabled = True
threadFreeze.Start()
End If
End Sub
'Create a new class so we can do cross-class calls.
Public Class cFreezeME
Public Function FreezeME()
Threading.Thread.Sleep(5000)
Return MsgBox("Thread woke up!", vbInformation, "Ooh noes!")
End Function
End Class
#End Region
End Class
[/php]
Multithreading.rar
Originally Posted by dudezone2
. I highly doubt NextGen would have said that about any member, doesn't strike me as the type to bitch about people behind their backs /
