หน้าแรก › 2002C › Example with MS Agent, text-to-speech
Advertisement
2002C OLE/ COM/ DCOM/ Active-X #9463

Example with MS Agent, text-to-speech

Amir Malik
★★★★★
4.8 · ดาวน์โหลด: 2,341

Microsoft Agent will speak (computerized voice) the contents of a textbox or richtextbox to you!

AI

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด
original-source 
' MSAGENT example by Amir Malik
' website: http://amir142.cjb.net
' e-mail : [email protected]

Private Sub cmdPaste_Click()
  TextData.Text = Clipboard.GetText
End Sub
Private Sub cmdPauseR_Click()
  If cmdPauseR.Caption = "&Pause / Stop" Then
    sp.AudioPause
    cmdPauseR.Caption = "&Resume"
  ElseIf cmdPauseR.Caption = "&Resume" Then
    sp.AudioResume
    cmdPauseR.Caption = "&Pause / Stop"
  End If
End Sub
Private Sub cmdSpeak_Click()
  sp.Speak TextData.Text
  sp.Speed = txtSpeed.Text
  Sspeak = True
End Sub
Private Sub txtSpeed_LostFocus()
  If txtSpeed.Text < 50 Then
    MsgBox "Speed is too low."
    txtSpeed.Text = "150"
  End If
  If txtSpeed.Text > 250 Then
    MsgBox "Speed is too high."
    txtSpeed.Text = "150"
  End If
End Sub

Upload
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine