📄 ch20.htm
字号:
<p>After handling the registration of SR services, the routine adds TTS services to the
project. After initializing the <tt><font FACE="Courier">Voice Text</font></tt> object,
registering the application, and enabling TTS, the <tt><font FACE="Courier">InitVText</font></tt>
routine is called to build the menu and button options on the forms. You'll see this code
later. </p>
<p>The next set of code to add is the <tt><font FACE="Courier">UnInitSAPI</font></tt>
routine. This routine will be called at the end of the program. The <tt><font
FACE="Courier">UnInitSAPI</font></tt> routine deactivates all SAPI objects and releases
all links to SAPI services. Add a new subroutine to the <tt><font FACE="Courier">modSpeech</font></tt>
module and enter the code shown in Listing 20.3. </p>
<hr>
<blockquote>
<b><p>Listing 20.3. Adding the <font SIZE="1" FACE="MCPdigital-B">UnInitSAPI</font> code.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub UnInitSAPI()<br>
'<br>
' remove sapi services<br>
'<br>
objVMenu.Active = False ' stop menu<br>
Set objVMenu = Nothing ' remove link<br>
objVCmd.Awake = False ' close down SR<br>
Set objVCmd = Nothing ' remove link<br>
'<br>
objVText.Enabled = False ' stop TTS<br>
Set objVText = Nothing ' remove link<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<h3>Coding the <tt><font SIZE="4" FACE="Courier"><a NAME="CodingtheInitVoiceRoutine">InitVoice</a></font></tt><font
SIZE="4"> Routine</font></h3>
<p>The <tt><font FACE="Courier">InitVoice</font></tt> routine adds all the new custom
commands to the menu object declared in the <tt><font FACE="Courier">InitSAPI</font></tt>
routine. After it adds the new commands, a timer object is initialized and enabled. The
timer will be used to check for a valid voice command. Add a new subroutine called <tt><font
FACE="Courier">InitVoice</font></tt> and enter the code shown in Listing 20.4. </p>
<hr>
<blockquote>
<b><p>Listing 20.4. Adding the <font SIZE="1" FACE="MCPdigital-B">InitVoice</font>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub InitVoice()<br>
'<br>
' build added voice menu commands<br>
'<br>
Dim x As Integer<br>
ReDim Preserve cVCmdMenu(11) As String <br>
'<br>
cVCmdMenu(1) = "New"<br>
cVCmdMenu(2) = "Open"<br>
cVCmdMenu(3) = "Exit"<br>
cVCmdMenu(4) = "Toggle Toolbar" <br>
cVCmdMenu(5) = "Read"<br>
cVCmdMenu(6) = "Forward"<br>
cVCmdMenu(7) = "Rewind"<br>
cVCmdMenu(8) = "Stop"<br>
cVCmdMenu(9) = "Cut"<br>
cVCmdMenu(10) = "Copy"<br>
cVCmdMenu(11) = "Paste"<br>
'<br>
For x = 1 To 11<br>
objVMenu.Add 100 + x, cVCmdMenu(x),
"MDI Menu", cVCmdMenu(x)<br>
Next x<br>
objVMenu.Active = True<br>
'<br>
' start timer loop<br>
frmMDI!SRTimer.Interval = 500 ' every 1/2 second<br>
frmMDI!SRTimer.Enabled = True ' turn it on<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>As you can see, adding custom menu options involves adding the command strings to the
menu object and then activating the menu object. The code that sets the timer is needed to
poll the <tt><font FACE="Courier">SpokenCommand</font></tt> property every half second. </p>
<div align="center"><center>
<table BORDERCOLOR="#000000" BORDER="1" WIDTH="80%">
<tr>
<td><b>Tip</b></td>
</tr>
<tr>
<td><blockquote>
<p>You do not have to add custom commands to SAPI-enabled applications that have a
declared menu. All menu items are automatically registered as voice commands by the
operating system. The commands added here are really shortcuts to existing menu options.</p>
</blockquote>
</td>
</tr>
</table>
</center></div>
<h3><a NAME="CodingtheInitVTextRoutine">Coding the <tt><font SIZE="4" FACE="Courier">InitVText</font></tt><font
SIZE="4"> Routine</font></a></h3>
<p>When you add TTS services to the application, you need only to initialize the TTS
object and then "turn on" the menu and/or command buttons that allow users to
gain access to the TTS engine. In this application a set of buttons for the toolbar needs
initialization. The code in Listing 20.5 shows how this is done. </p>
<hr>
<blockquote>
<b><p>Listing 20.5. Adding the <font SIZE="1" FACE="MCPdigital-B">InitVText</font>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub InitVText()<br>
'<br>
' set up vText buttons and menu<br>
'<br>
Dim cDir As String<br>
Dim cPic(4) As String<br>
Dim x As Integer<br>
'<br>
cDir = "d:\sams\cdg\chap20\mdi\" <br>
cPic(0) = "arw01rt.ico" ' read <br>
cPic(1) = "arw01up.ico" ' forward <br>
cPic(2) = "arw01lt.ico" ' rewind <br>
cPic(3) = "arw01dn.ico" ' stop <br>
'<br>
For x = 0 To 3<br>
frmMDI.ImgVText(x).Picture =
LoadPicture(cDir & cPic(x))<br>
Next x<br>
'<br>
VTextAction vTxtStop ' force "stop" <br>
'<br>
' start timer loop<br>
frmMDI.TTSTimer.Interval = 500 ' every 1/2 second<br>
frmMDI.TTSTimer.Enabled = True ' turn it on<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>You'll notice a call to the <tt><font FACE="Courier">VTextAction</font></tt> routine.
This routine handles the TTS service requests (<tt><font FACE="Courier">Speak</font></tt>,
<tt><font FACE="Courier">FastForward</font></tt>, <tt><font FACE="Courier">Rewind</font></tt>,
and <tt><font FACE="Courier">StopSpeaking</font></tt>). A timer is also enabled in order
to track the active status of the TTS engine. </p>
<h3><a NAME="CodingtheVTextActionRoutine">Coding the <tt><font SIZE="4" FACE="Courier">VTextAction</font></tt><font
SIZE="4"> Routine</font></a></h3>
<p>The <tt><font FACE="Courier">VTextAction</font></tt> routine is the code that handles
the various TTS service requests made by the user. This one set of code can handle all of
the playback options for the program. It also handles the enabling of the toolbar buttons
and the menu options. Listing 20.6 shows the code needed for the <tt><font FACE="Courier">VTextAction</font></tt>
subroutine. </p>
<hr>
<blockquote>
<b><p>Listing 20.6. Adding the <font SIZE="1" FACE="MCPdigital-B">VTextAction</font>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub VTextAction(Index As Integer) <br>
'<br>
' handle request to start/stop reading <br>
'<br>
Static bVPause As Boolean<br>
'<br>
Screen.ActiveForm.MousePointer = vbHourglass <br>
'<br>
' handle service request<br>
Select Case Index<br>
Case vTxtSpeak ' speak=0<br>
If Not bVText Then<br>
If
Len(Trim(Screen.ActiveForm.Text1.Text)) <> 0 Then<br>
objVText.Speak
Screen.ActiveForm.Text1.Text, vtxtsp_NORMAL<br>
bVText
= True<br>
End
If<br>
End If<br>
Case vTxtForward ' fast forward=1<br>
If bVText Then<br>
objVText.AudioFastForward
<br>
End If<br>
Case vTxtRewind ' rewind=2<br>
If bVText Then<br>
objVText.AudioRewind
<br>
End If<br>
Case vTxtStop ' stop speaking=3<br>
If bVText Then<br>
objVText.StopSpeaking
<br>
bVText
= False<br>
bVPause
= False<br>
End If<br>
End Select<br>
'<br>
' update menu<br>
If bVText Then<br>
With Screen.ActiveForm <br>
.mnuVText(0).Enabled
= False<br>
.mnuVText(1).Visible
= True<br>
.mnuVText(2).Visible
= True<br>
.mnuVText(3).Visible
= True<br>
End With<br>
Else<br>
If Screen.ActiveForm.Caption <>
"MDI NotePad" Then<br>
With
Screen.ActiveForm<br>
.mnuVText(0).Enabled
= True<br>
.mnuVText(1).Visible
= False<br>
.mnuVText(2).Visible
= False<br>
.mnuVText(3).Visible
= False<br>
End With<br>
End If<br>
End If<br>
'<br>
' update buttons<br>
If bVText Then<br>
frmMDI.ImgVText(0).Visible = True<br>
frmMDI.ImgVText(1).Visible = True<br>
frmMDI.ImgVText(2).Visible = True<br>
frmMDI.ImgVText(3).Visible = True<br>
Else<br>
frmMDI.ImgVText(0).Visible = True<br>
frmMDI.ImgVText(1).Visible = False<br>
frmMDI.ImgVText(2).Visible = False<br>
frmMDI.ImgVText(3).Visible = False<br>
End If<br>
'<br>
' no open text pages<br>
If Not AnyPadsLeft() Then<br>
frmMDI.ImgVText(0).Visible = False<br>
End If<br>
'<br>
Screen.ActiveForm.MousePointer = vbNormal <br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -