Phiên bản: Alpha
Tác giả: truongphu
Chức năng: Đọc văn bản tiếng Anh
Mã: Chọn hết
- Dim objVoice As Object
-
- Private Sub Command1_Click()
- Text1.Text = ""
- End Sub
-
- Private Sub Command2_Click()
- Text1.Text = Clipboard.GetText
- End Sub
-
- Private Sub Command3_Click()
- For i = 1 To Text2
- objVoice.Speak Text1.Text
- Next
- End Sub
-
- Private Sub Command4_Click()
- For Each strVoice In objVoice.GetVoices
- Combo1.AddItem strVoice.GetDescription
- Next
- End Sub
-
- Private Sub Command5_Click()
- If Text1.Text = "" Then
- MsgBox "Chu'a có nôi dung Ðê Ðoc và thu âm"
- Exit Sub
- End If
- CommonDialog1.InitDir = "D:\"
- CommonDialog1.Filter = "*.WAV"
- CommonDialog1.ShowSave
- If CommonDialog1.FileName <> "" Then
- If Right(CommonDialog1.FileName, 4) <> ".wav" Then CommonDialog1.FileName = CommonDialog1.FileName & ".Wav"
- Set objFile = CreateObject("SAPI.SpFileStream.1")
- Const SSFMCreateForWrite = 3
- objFile.Open CommonDialog1.FileName, SSFMCreateForWrite
- Set objVoice.AudioOutputStream = objFile
- objVoice.Speak Text1.Text
- MsgBox "Ðã Xong!"
- End If
- End Sub
-
- Private Sub Form_Load()
- Set objVoice = CreateObject("SAPI.SpVoice")
- objVoice.Speak "Welcome to Visual Basic Club"
- End Sub
-
-----------------------------
gửi bởi truongphu » CN 12/07/2009 2:41 pm
Text to Speech phiên bản Alpha chỉ có một giọng là Sam
Để sản phẩm hoàn thiện hơn, mời các bạn ghé thăm:
http://www.microsoft.com/products/msage ... /user.aspx
Và download các phần bổ sung
viewtopic.php?f=52&t=8133&p=52450#p51548
download/file.php?id=6282
download/file.php?id=6283
-----------------
Hai file cài đặt của Microsoft
download/file.php?id=6295