Click here to Skip to main content
11,409,138 members (64,515 online)
Click here to Skip to main content


, 27 Nov 2001
Rate this:
Please Sign up or sign in to vote.
This is a tutorial which shows you how to create a simple program that will speak anything!


This tutorial will show you how to create a very simple program that will actually speak! You will need to download the text-to-speech control if you have not already downloaded it.

Step 1 - Adding the controls

Firstly add a new Standard EXE project. Then change the projects name to TextToSpeech. Change the forms name to frmSpeak. Add the Direct Text-to-Speech control to the form by right clicking on the toolbox and then selecting components. Click on the Microsoft Direct Text-to-Speech item and then click OK.

Draw the Text-to-speech control on the form and set its name property to spkSpeak and its visible property to false. Next add 10 buttons. Set their names to btnNumbers and their captions to one greater than their index. Then add a text box and change its name to txtText, its text property to nothing and its multiline property to true. Add a button below the text box. Set its name to btnSpeak and its caption to Speak.

Step 2 - Declaring the constants

The next step is to add the code. This code will say the caption of the button and then run a program depending on which button you clicked. Add this code to the general declarations:

Const Notepad = "c:\windows\notepad.exe"
Const Wordpad = "C:\program files\accessories\Wordpad.exe"
Const Paint = "c:\windows\Pbrush.exe"
Const Calculator = "c:\windows\Calc.exe"
Const Volume = "c:\windows\Sndvol32.exe"
Const InternetExplorer = "C:\Program Files\Internet Explorer\Iexplore.exe"
Const SoundRecorder = "c:\windows\Sndrec32.exe"
Const Clipboard = "c:\windows\Clipbrd.exe"
Const Dialer = "c:\windows\Dialer.exe"
Const Solitaire = "c:\windows\Sol.exe"

Step 3 - The code

Now add this code under the click event of btnNumbers:

spkSpeak.Speak "You clicked button number " & btnNumbers(Index).Caption & "."

Select Case Index + 1
  Case Is = 1
    Shell Notepad, vbNormalNoFocus
  Case Is = 2
    Shell Wordpad, vbNormalNoFocus
  Case Is = 3
    Shell Paint, vbNormalNoFocus
  Case Is = 4
    Shell Calculator, vbNormalNoFocus
  Case Is = 5
    Shell Volume, vbNormalNoFocus
  Case Is = 6
    Shell InternetExplorer, vbNormalNoFocus
  Case Is = 7
    Shell SoundRecorder, vbNormalNoFocus
  Case Is = 8
    Shell Clipboard, vbNormalNoFocus
  Case Is = 9
    Shell Dialer, vbNormalNoFocus
  Case Is = 10
    Shell Solitaire, vbNormalNoFocus
End Select

Then next piece of code will speak the text typed in the text box. Add this code to the btnSpeak click event:

spkSpeak.Speak txtText.Text

This is how it works: when the button is clicked it says, "You clicked button number" and then it says the caption of the button. It then runs a program depending on which button you clicked. Also, when you type something in the text box, it reads the text and speaks it out. Your form should look something like this:

If you run the program, it should speak the caption of the button you clicked and run a program and if you type something in the text box it should speak what you typed. Have fun!


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author


United Kingdom United Kingdom
No Biography provided

Comments and Discussions

BugxVoice.dll is missing PinmemberFarid Alkorashy23-May-14 6:53 
Questionitalian language PinmemberMember 1001284430-Apr-13 5:36 
GeneralMy vote of 5 PinmemberFABUS2712-Jun-12 4:36 
QuestionNot working PinmemberSjnilan13-Mar-12 8:27 
QuestionPlease, send me source too PinmemberRaimond S30-Nov-11 0:05 
QuestionABOUT THE TEXT TO SPEECH PROJECT Pinmembermadhuramanojjoshi14-Jul-11 20:59 
Generalsend me the source code Pinmemberchintan27907-Mar-11 1:56 
GeneralRe: send me the source code Pinmembersrikantharumilli8-Sep-11 8:04 
GeneralMy vote of 1 PinmemberNaren83.Freak21-Oct-10 7:41 
GeneralMy vote of 1 Pinmemberrahuluttarkar11-Oct-10 2:19 
GeneralMy vote of 5 Pinmemberwalter galotta18-Jul-10 21:47 
Generaltext to speech PinmemberMember 373269320-May-10 23:28 
GeneralNice Tutorial Pinmembersankaranandan6-Mar-10 21:57 
Generalsir i am geting compiler error : method or data member not found Pinmemberchistiforu_2k516-Dec-09 15:57 
GeneralNo Voice PinmemberGurinder Pal15-Dec-09 22:48 
GeneralMy vote of 1 PinmemberKumar Umang Gupta21-Oct-09 3:17 
AnswerRe: My vote of 1 PinmemberMember 415612718-Nov-09 5:23 
QuestionWhat's true? Pinmemberbeibut17-Oct-09 8:01 
GeneralProblem solved. Thank you Pinmemberjohnius17-Mar-09 2:57 
GeneralHELP PLEASE.... PinmemberMary May26-Sep-08 20:20 
Generalnot responding well Pinmemberramcse8-May-08 7:02 
GeneralNo sound PinmemberBrunoCoimbra15-Apr-08 9:34 
Questionno sound appear Pinmemberkimodiab6-Apr-08 11:11 
QuestionText to Speech converter(olife) Pinmemberolyad25-Mar-08 4:48 
Generalhelp: Changing voice Pinmembercraver064-Oct-07 17:54 
GeneralRe: help: Changing voice Pinmemberkiller angelo17-Oct-07 7:34 
Generaltts for malay language Pinmemberzuwie28-Aug-07 8:12 
GeneralHelp Me.......... Pinmembernay3315520-Jun-07 19:20 
GeneralHele Me ..................... Pinmembernay3315520-Jun-07 18:59 
GeneralPashto text speech PinmemberWahab Banusey17-Jun-07 22:53 
NewsVB6 Application Terminates on Win2K3 Pinmembermeaningoflights23-May-07 16:58 
Generalarabic text to speech PinmemberMember #382346912-Feb-07 22:33 
GeneralRe: arabic text to speech [modified] PinmemberWahab Banusey17-Jun-07 22:38 
GeneralRe: arabic text to speech Pinmemberjatin288227-Jun-07 6:52 
QuestionHow can I create a package for install Pinmembersoloc20-Oct-06 9:52 
GeneralTyping contents of letter Pinmembervbone29-Sep-06 21:23 
Generaltext to speach Pinmembervbone29-Sep-06 20:36 
GeneralRe: text to speach Pinmemberrakesh saklecha21-Feb-07 2:42 
GeneralText to speech Pinmemberrohit_srms28-Aug-06 21:49 
Questiontext to speech in hindi language Pinmemberdeepaksahdev7-Aug-06 4:37 
QuestionRe: text to speech in sinhala language PinmemberS_JAYASURIYA8-Feb-07 7:26 
Generalhi!!! PinmemberAinJheL_mi28-Jun-06 1:03 
GeneralThank You. Pinmemberpianoabby14-Apr-06 14:29 
QuestionMoving the lips? PinmemberJeppeGHJHGJGJhg5-Mar-06 3:44 
Generalvoice recogntion Pinmembermegace13-Dec-05 16:31 
Generalanother help Pinmembersweetaple27-Oct-05 19:13 
GeneralTHE TEXT-TO-SPEECH VB SAMPLE PinmemberLiveson22-Oct-05 5:44 
GeneralRe: THE TEXT-TO-SPEECH VB SAMPLE PinmemberPeter Carnegie10-Nov-05 0:05 
GeneralRe: THE TEXT-TO-SPEECH VB SAMPLE Pinmembertivr1-Feb-06 9:00 
GeneralRe: THE TEXT-TO-SPEECH VB SAMPLE PinmemberPeter Carnegie2-Feb-06 8:22 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.150414.5 | Last Updated 28 Nov 2001
Article Copyright 2001 by AlexanderRegueiro
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid