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 ..
ResponderExcluir