Hi All,
Thanks for all your suggestions.
I did implement a BackgroundWorde r solution and it wasn't that
complicated after all.
JB
davidkurniawan wrote:
Try Using BackgroundWorke r Component.:
>
Private Sub LoginBtn_Click( ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles LoginBtn.Click
ProgressBar.Sty le = ProgressBarStyl e.Marquee
BackWorker.RunW orkerAsync()
End Sub
>
Private Sub BackWorker_DoWo rk(ByVal sender As System.Object, ByVal
e As System.Componen tModel.DoWorkEv entArgs) Handles BackWorker.DoWo rk
>
doConnect()
>
End Sub
>
Private Sub BackWorker_RunW orkerCompleted( ByVal sender As Object,
ByVal e As System.Componen tModel.RunWorke rCompletedEvent Args) Handles
BackWorker.RunW orkerCompleted
ProgressBar.Sty le = ProgressBarStyl e.Blocks
If Koneksi.StatusK oneksi = "Terkoneksi " Then Connected()
End Sub
>
Private Sub LoginBtn_Click( ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles LoginBtn.Click
ProgressBar.Sty le = ProgressBarStyl e.Marquee
BackWorker.RunW orkerAsync()
End Sub
>
Private Sub BackWorker_DoWo rk(ByVal sender As System.Object, ByVal
e As System.Componen tModel.DoWorkEv entArgs) Handles BackWorker.DoWo rk
>
doConnect()
>
End Sub
>
Private Sub BackWorker_RunW orkerCompleted( ByVal sender As Object,
ByVal e As System.Componen tModel.RunWorke rCompletedEvent Args) Handles
BackWorker.RunW orkerCompleted
ProgressBar.Sty le = ProgressBarStyl e.Blocks
If Koneksi.StatusK oneksi = "Terkoneksi " Then Connected()
End Sub
Leave a comment: