Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Synthese vocale

Synthese vocale

3 réponses
Avatar
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.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ferprod
"Ferprod" a écrit dans le message de
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.
Avatar
Gilles TOURREAU [MVP]
"Ferprod" a écrit dans le message de
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
Avatar
Ferprod
"Gilles TOURREAU [MVP]" a écrit dans le message de
news:
"Ferprod" a écrit dans le message de
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.