Monday, June 9, 2008

Reader text program with VB 6.0

This program consist of a form, a text box and a command button only

---------start-----------------------------
Private Sub Command1_Click()
Call ReadText(Form1.Text1.Text)
End Sub

Public Sub ReadText(ByVal TextString As String)
Set Textsound = CreateObject("SAPI.SpVoice")
Call Textsound.Speak(TextString, SPF_DEFAULT)
End Sub

---------------end-------------------------



enjoy it...

source XCode magazine

No comments: