Synthese vocale

Le
Ferprod
Bonjour,
J'utilise vb express 2008 (mais je sais que mon prg fonctionne aussi avec vb
express 2005 )
J' ai fait un tout petit prg qui me permet de lire tout ce qui est dans le
presse-papier.
Tout fonctionne bien, sauf que j' aimerais pouvoir arrêter une lecture en
cours et ne pas la reprendre, mais lire autre chose
qui aura été mis dans le presse-papier, par exemple à la place de
application.exit() dans Form1_DoubleClick
pour mieux me faire comprendre, voici mon code :

Imports System.Speech.Synthesis
Imports System.Collections.ObjectModel

Public Class Form1
Dim Parle As New SpeechSynthesizer

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.DoubleClick
Parle.Dispose()
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Parle.Volume = 100
End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
TextBox1.Text = ""
If My.Computer.Clipboard.ContainsText = True Then
TextBox1.Paste()
Parle.SpeakAsync(TextBox1.Text)
My.Computer.Clipboard.Clear()
Else
End If
End Sub

End Class

J' espère ne pas avoir été trop confus.

Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ferprod
Le #12214241
"Ferprod" news:%
Bonjour,
J'utilise vb express 2008 (mais je sais que mon prg fonctionne aussi avec
vb express 2005 )
J' ai fait un tout petit prg qui me permet de lire tout ce qui est dans le
presse-papier.
Tout fonctionne bien, sauf que j' aimerais pouvoir arrêter une lecture en
cours et ne pas la reprendre, mais lire autre chose
qui aura été mis dans le presse-papier, par exemple à la place de
application.exit() dans Form1_DoubleClick
pour mieux me faire comprendre, voici mon code :

Imports System.Speech.Synthesis
Imports System.Collections.ObjectModel

Public Class Form1
Dim Parle As New SpeechSynthesizer

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.DoubleClick
Parle.Dispose()
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Parle.Volume = 100
End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
TextBox1.Text = ""
If My.Computer.Clipboard.ContainsText = True Then
TextBox1.Paste()
Parle.SpeakAsync(TextBox1.Text)
My.Computer.Clipboard.Clear()
Else
End If
End Sub

End Class

J' espère ne pas avoir été trop confus.

Merci.


Re Bonjour.

J' ai fini par trouver.

il suffit d' écrire SpeechSynthesizer.SpeakAsyncCancelAll() ou
SpeechSynthesizer.SpeakAsyncCancel()

Ferprod.
Gilles TOURREAU [MVP]
Le #12214231
"Ferprod" news:%
Bonjour,
J'utilise vb express 2008 (mais je sais que mon prg fonctionne aussi avec
vb express 2005 )
J' ai fait un tout petit prg qui me permet de lire tout ce qui est dans le
presse-papier.
Tout fonctionne bien, sauf que j' aimerais pouvoir arrêter une lecture en
cours et ne pas la reprendre, mais lire autre chose
qui aura été mis dans le presse-papier, par exemple à la place de
application.exit() dans Form1_DoubleClick
pour mieux me faire comprendre, voici mon code :

Imports System.Speech.Synthesis
Imports System.Collections.ObjectModel

Public Class Form1
Dim Parle As New SpeechSynthesizer

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.DoubleClick
Parle.Dispose()
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Parle.Volume = 100
End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
TextBox1.Text = ""
If My.Computer.Clipboard.ContainsText = True Then
TextBox1.Paste()
Parle.SpeakAsync(TextBox1.Text)
My.Computer.Clipboard.Clear()
Else
End If
End Sub

End Class

J' espère ne pas avoir été trop confus.

Merci.




Bonjour,

Si vous souhaitez interrompre tout simplement la synthèse vocales, appelez
tout simplement la méthode SpeakAsyncCancelAll() dans votre cas.

Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Ferprod
Le #12214211
"Gilles TOURREAU [MVP]" news:
"Ferprod" news:%
Bonjour,
J'utilise vb express 2008 (mais je sais que mon prg fonctionne aussi avec
vb express 2005 )
J' ai fait un tout petit prg qui me permet de lire tout ce qui est dans
le presse-papier.
Tout fonctionne bien, sauf que j' aimerais pouvoir arrêter une lecture en
cours et ne pas la reprendre, mais lire autre chose
qui aura été mis dans le presse-papier, par exemple à la place de
application.exit() dans Form1_DoubleClick
pour mieux me faire comprendre, voici mon code :

Imports System.Speech.Synthesis
Imports System.Collections.ObjectModel

Public Class Form1
Dim Parle As New SpeechSynthesizer

Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.DoubleClick
Parle.Dispose()
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Parle.Volume = 100
End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
TextBox1.Text = ""
If My.Computer.Clipboard.ContainsText = True Then
TextBox1.Paste()
Parle.SpeakAsync(TextBox1.Text)
My.Computer.Clipboard.Clear()
Else
End If
End Sub

End Class

J' espère ne pas avoir été trop confus.

Merci.




Bonjour,

Si vous souhaitez interrompre tout simplement la synthèse vocales, appelez
tout simplement la méthode SpeakAsyncCancelAll() dans votre cas.

Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr




Merci M. Tourreau.

Cela fonctionne maintenant parfaitement.

Ferprod.
Publicité
Poster une réponse
Anonyme