[RESOLVED] Thread, dispatcher - can't figure it out how to use it

[Salvadk]

Hi all

I'm learning how to start a new thread so my functions and GUI not freezing, but I don't understand how to use it.

I have made a small program that says what I put into the textbox, and while it's speaking, I want to be able to slide the slide bar or move the GUI around. Right now I can only do it when the speak stops.

Here is my code:

Imports System.Speech.Synthesis.SpeechSynthesizer
Public Class Form1
    Dim sig As New Speech.Synthesis.SpeechSynthesizer()
    Dim rate As Double
    Dim StartTekst As String = "This is a test on how it sounds when the speech synthesizer says"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtboxSigTekst.Text = StartTekst
    End Sub
    Private Sub btnSigTekst_Click(sender As Object, e As EventArgs) Handles btnSigTekst.Click
        SigTekst()
    End Sub
    Private Sub SigTekst()
        sig.Speak(txtboxSigTekst.Text)
    End Sub
End Class

I have tried to insert a "dispatch" in the sub SigTekst (Dispatcher.BeginInvoke(New Action(AddressOf SigTekst))) but non of the different metodes I have tried, is working.
What am I doing wrong? Do I insert Dispatcher in the sub SigTekst or should it be in another place?

Can anyone help me to understand this? I think I better understand this if you could insert the code, as simple as possible, to start the sub in ad new thread.

-Salva

[.paul.]

try this:

Imports System.Speech.Synthesis.SpeechSynthesizer

Public Class Form1

    Dim sig As New Speech.Synthesis.SpeechSynthesizer()
    Dim rate As Double
    Dim StartTekst As String = "This is a test on how it sounds when the speech synthesizer says"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtboxSigTekst.Text = StartTekst
    End Sub

    Private Sub btnSigTekst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSigTekst.Click
        Dim t As New Threading.Thread(AddressOf SigTekst)
        t.Start(txtboxSigTekst.Text)
    End Sub

    Private Sub SigTekst(ByVal sayWhat As Object)
        sig.Speak(sayWhat.ToString)
    End Sub

End Class

[szlamany]

Why do you have two threads going on this topic - that stinks!

http://www.vbforums.com/showthread.p...-how-to-use-it

[.paul.]

Why do you have two threads going on this topic - that stinks!

http://www.vbforums.com/showthread.p...-how-to-use-it

I prefer my solution

[Salvadk]

The other one is WPF code and not many people is active in WPF.
That why I created a form project

[Salvadk]

YES God damed! Its working. finally. Spend two days on this
Just had to remove the parameter in t.Start()

Thank you

[.paul.]

Not passing the parameter that way causes cross thread calls that will affect your UI thread...

Private Sub btnSigTekst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSigTekst.Click
    Dim t As New Threading.Thread(AddressOf SigTekst)
    t.Start(txtboxSigTekst.Text) 'this is the parameter that is passed to SigTekst
End Sub

Private Sub SigTekst(ByVal sayWhat As Object) 'this is the parameter that is sent in t.Start
    sig.Speak(sayWhat.ToString)
End Sub

[szlamany]

The TIMER in a regular WINFORM project is not the same as a WPF timer - which is the code I showed you - from a WPF program I have.