Public
Class Form1
Private Sub btnFalar_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
btnFalar.Click
Dim
SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak(Me.TextBox1.Text)
End Sub
End Class
Sensacional, cara parabéns pelo trabalho!!!
ResponderExcluirOlá Ney, boa noite!
ResponderExcluirMuito obrigado pelo comentário! E quando tiver alguma dúvida me envie, talvez possa te ajudar...
Atenciosamente,
Carlos Henrique Pereira.
como faço isso oq eu add e eu click onde pra por esse codigo ?
ResponderExcluirOlá, bom dia!
ResponderExcluirSão os seguintes componentes:
* 1 TextBox;
* 1 Button.
Renomeie o button para btnFalar e na propriedade text do button você coloca Falar, depois dê dois cliques no button e dentro do procedimento do btnFalar você insere o seguinte código:
Dim SAPI
SAPI = CreateObject("SAPI.spvoice")
SAPI.Speak(Me.TextBox1.Text)
Desta forma basta você rodar a sua aplicação, assim você digita o que desejar na TextBox e clica no botão.
Caso não conseguir peço que entre em contato comigo!
Atenciosamente,
Carlos Henrique Pereira.
Boa tarde, meu nome é Fernando , sou professor em uma escola técnica, gostaria de parabenizar pelo excelente Blog, Material muito bom ..
ResponderExcluirClick to see the code!
To insert emoticon you must added at least one space before the code.