vb點(diǎn)虐 中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到萬(wàn)安網(wǎng)站設(shè)計(jì)與萬(wàn)安網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊(cè)、網(wǎng)頁(yè)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋萬(wàn)安地區(qū)。

SoundFile.wav是你要播放的聲音文件的路徑

VB點(diǎn)虐 如何使用Microsoft Speech SDK5.1

安裝了sdk后應(yīng)該可以在控件箱單擊鼠標(biāo)右鍵，然后選擇部件，在彈出的列表中應(yīng)該可以找到microsoft tts engine或之類的東西，選擇后就可以吧tts engine作為控件放到窗體上。 調(diào)用貌似是用.speak(String)實(shí)現(xiàn)的。 由于我是很久以前用的，所以也記得不是很清楚了，你可以找找看。

vb點(diǎn)虐 怎么做中文語(yǔ)音識(shí)別程序

這就要調(diào)用API函數(shù)了

給你代碼吧

記得給點(diǎn)分啊

Private

Const

KeysM

=

H8000

Private

Declare

Function

GetAsyncKeyState

Lib

"user32"

(ByVal

vKey

As

Long)

As

Integer

Private

Sub

TextBox1_KeyDown(ByVal

sender

As

Object,

ByVal

e

As

System.Windows.Forms.KeyEventArgs)

Handles

TextBox1.KeyDown

Me.Text

=

e.KeyValue

If

e.KeyValue

=

Keys.ShiftKey

And

GetAsyncKeyState(160)

And

KeysM

Then

MsgBox("你按的是左SHIFT")

ElseIf

e.KeyValue

=

Keys.ShiftKey

And

GetAsyncKeyState(161)

And

KeysM

Then

MsgBox("你按的是右SHIFT")

End

If

End

Sub