Eigenschappen , " klik " Referenties , " en selecteer" toevoegen . " Klik op het tabblad "COM" en klik op " Microsoft Speech Object Library " . Klik op "OK . "
Dubbelklik op " Button1 " 4 op de Form code module te openen . Typ het volgende in de eerste rij van de code -module om de naamruimte importeren :
Imports
SpeechLib
Kopieer 5 en plak de onderstaande code om twee variabelen te maken , een om de tekst te houden doos string en de andere aan de SpeechLib object houden :
Dim outputVoice als Nieuwe SpeechLib.SpVoice
Dim textString als Koord
Copy 6
en plak de volgende code om de tekst te krijgen in in het tekstvak ingevuld :
textString = Me.TextBox1.Text.Trim.ToString
Copy
7 en plak de volgende om de tekst opgeslagen in het spreken de " textString " variable :
outputVoice.Speak
( textString )
Druk op "F5 " 8 om uw programma uit te voeren en typ een zin in het tekstvak . Druk op " Button1 " te horen van de computer spreken de zin aan u .