Public Class Form1
Dim SAPI
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SAPI = CreateObject("sapi.spvoice")
SAPI.speak(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SAPI = CreateObject("sapi.spvoice")
SAPI.speak("Are you sure want to exit")
MsgBox("Are you sure want to exit")
Me.Close()
End Sub
End Class
Friday, July 30, 2010
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment