segunda-feira, 2 de janeiro de 2012

on


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


Espero ter ajudado e até mais!

5 comentários:

  1. Sensacional, cara parabéns pelo trabalho!!!

    ResponderExcluir
  2. Olá Ney, boa noite!

    Muito obrigado pelo comentário! E quando tiver alguma dúvida me envie, talvez possa te ajudar...

    Atenciosamente,
    Carlos Henrique Pereira.

    ResponderExcluir
  3. como faço isso oq eu add e eu click onde pra por esse codigo ?

    ResponderExcluir
  4. Olá, bom dia!

    Sã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.

    ResponderExcluir
  5. Boa tarde, meu nome é Fernando , sou professor em uma escola técnica, gostaria de parabenizar pelo excelente Blog, Material muito bom ..

    ResponderExcluir