引用:voice text 1.0 type lebraryDim vText As New VTxtAuto.VTxtAuto Private Sub Command1_Click() Dim astr As String Command1.Enabled = False vText.Register vbNullString, "Speech" 'vtext.Register astr = "speech" vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION End SubPrivate Sub Form_Unload(Cancel As Integer) Set vText = Nothing End Sub
Private Sub Command1_Click()
Dim astr As String
Command1.Enabled = False
vText.Register vbNullString, "Speech"
'vtext.Register
astr = "speech"
vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION
End SubPrivate Sub Form_Unload(Cancel As Integer)
Set vText = Nothing
End Sub