vb.net 控件添加聲音

建一個窗體，里面添加一個按鈕，代碼里拷入下面的代碼，運行后，單擊按鈕

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序開發(fā)、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了雨山免費建站歡迎大家使用！

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = H1 '異步播放

Private Const SND_SYNC = H0 '同步播放 （缺省）

Private Sub Command1_Click()

Dim SoundFile As String, Result As Long

SoundFile = "c:\Windows\Media\chord.wav"

Result = sndPlaySound(SoundFile, SND_ASYNC)

End Sub

說明：

要播放不同的聲音，例如0-9，你找到相應(yīng)的wav文件，編程實現(xiàn)就可以了。

PS:沒注意到你是VB.NET,上面的代碼是VB6的，生成工程文件，直接用.NET打開并自動轉(zhuǎn)換，也可以使用。

想在vb.net的程序中有一個語音提示，該怎么寫

首先添加一個系統(tǒng)的語音COM組件的引用microsoft speech object library然后在程序中聲明一個語音類dim RC As SpeechLib.SpSharedRecoContext這個類有一些事件,如果你要處理它的一些事件,可以用withevent來聲明然后在窗體LOAD事件或你需要的地方先創(chuàng)建一個實例RC = New SpeechLib.SpSharedRecoContext當(dāng)一個RC被實例化后,系統(tǒng)就會運行語音識別程序.前提是你的系統(tǒng)已經(jīng)正確安裝這個功能.一般默認就已經(jīng)安裝好的.其次提醒一下,WIN7的語音識別比XP的好N倍.從閱讀到偵聽都好很多.然后就可以在你需要閱讀的地方使用RC.Voice.Speak("hello 我", 11)11那里是一些枚舉,用來標(biāo)識系統(tǒng)用前臺還是后臺或其他方式來閱讀文字,簡單的來說就是閱讀的時候不會卡住你的程序.你可以選其他的枚舉來試試作用.以上為閱讀部分.如果需要程序聽你說話,則需要聲明一個偵聽類dim RG As SpeechLib.ISpeechRecoGrammar在初始化時將之與上面的RC建立關(guān)系,此時則必須要用withevent來聲明上面的RC,因為涉及電腦聽到你的語音后,會觸發(fā)一個事件,并將聽到的內(nèi)容傳遞到該事件.其次,要讓系統(tǒng)聽到的解析為命令,就必須準備一個XML結(jié)構(gòu)的文件來保存那些固定的命令.如果電腦在XML文件中找不到那些固定命令或同時不屬于系統(tǒng)命令,電腦將會將其解釋為聽寫.RG = RC.CreateGrammar '(0)

RG.CmdLoadFromFile("聽到.xml", SpeechLib.SpeechLoadOption.SLODynamic)

RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后寫一個過程來處理聽到的事件Private Sub 聽到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 話語 As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我聽到了" 話語.PhraseInfo.GetText, 11)End Sub以上為偵聽部分.下面列一個XML的例文?xml version="1.0" encoding="gb2312"?

GRAMMAR LANGID="804"

RULE NAME="命令" TOPLEVEL="ACTIVE"

L

P打開播放器

P上我的QQ

P關(guān)閉你自己 /L

/RULE

/GRAMMAR要讓系統(tǒng)正確地偵聽到你說的話,前提你必須運行語音識別程序并讓其激活到"正在聆聽"狀態(tài).并且你必須有一個能正常使用的話筒而且保證話筒已經(jīng)打開.(廢話-_-|||)以上就是用VB.NET語音識別的最基本的一些操作.希望對你有幫助.更深入的內(nèi)容有興趣的話可以和我一起研究.

VB.NET中怎么實現(xiàn)當(dāng)時間達到設(shè)定時間時響鈴？？急急急。。在線等！謝謝了，大神幫忙啊

首先在form1上建立三個命令按鈕,分別為command1(打開預(yù)啟動的文件);command2(設(shè)定時間的按鈕);第三個command3(即可啟動)按鈕可有可無;一個label1用來顯示你預(yù)打開的文件名的路徑；一個lbltime用來顯示現(xiàn)在的時間；還有一個commondialog,它在工程菜單的部件中，你可把它加到工具箱中再開始使用;關(guān)于對話框你不必自己建，只要從應(yīng)用程序向?qū)е刑砑蛹纯?一個timer,它的interval=500。 其次在form1的屬性中設(shè)置為:startupposition=2－centerscreen和maxbutton=false;label1的屬性中設(shè)置為：alignment=2－center。 外觀大致是如圖所示： 下面我們開始編程： OptionExplicit DimAlarmTime '申明變量 －－－－－－－－－ PrivateSubCommand1_Click() Calldialog '調(diào)用dialog子程序 EndSub －－－－－－－－ PrivateSubCommand2_Click() AlarmTime=InputBox(“請輸入你想設(shè)定的時間,例如(19:12:00)",“小鬧鐘") IfAlarmTime=“"ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox“你所輸入的不是時間格式,請重試!",,“Wrong" Else AlarmTime=CDate(AlarmTime) EndIf '判斷輸入的是否可轉(zhuǎn)換成time格式 'isdate函數(shù)是判斷輸入的是否可轉(zhuǎn)換成date格式 EndSub －－－－－－－－－－－－－－ PrivateSubCommand3_Click() Calldeng '調(diào)用deng子程序 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Click() frmAbout.Show '顯示關(guān)于對話框 EndSub －－－－－－－－－－－－－ PrivateSubForm_Load() Command3.Enabled=0 AlarmTime=“" '初始化時command3為不可用的 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=“小鬧鐘" EndIf '如果窗口被最小化,則調(diào)用mintime程序 EndSub －－－－－－－－－－－－－－－ PrivateSubmintime() Caption=Format(Time,“l(fā)ongTime") '使用長時間格式來顯示時間 EndSub －－－－－－－－－－－－－－－ PrivateSubTimer1_Timer() IflblTime.CaptionCStr(Time)Then lblTime.Caption=Time EndIf '顯示時間每秒鐘的變化 IfTime=AlarmTimeThen Calldeng EndIf '判斷如果現(xiàn)在的時間超過了設(shè)定的時間,則調(diào)用deng子程序 IfWindowState=1Then IfMinute(CDate(Caption))Minute(Time)Then mintime EndIf EndIf '最小化時顯示時間每分鐘的變化 EndSub －－－－－－－－－－－－－ Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1“"Then Command3.Enabled=－1 Else ExitSub EndIf '把打開的文件名給于label1 '如果label1不為空時,則command3即可用 EndSub －－－－－－－－－－－－－－ Subdeng() Dimss ss=Shell(Label1.Caption,1) End '啟動指定的文件,并且結(jié)束小鬧鐘程序 EndSub 最后在about對話框中要提的是：在form_load中app.title表示你的應(yīng)用程序的名字；app.major、minor、revision是關(guān)于應(yīng)用程序的版本信息；lblDescription.Caption用于對本程序的一些說明描述之類的話；lblDisclaimer.Caption用于版權(quán)信息或警告等。 好了，至此我們已完成了一個簡單的VB程序的編寫，希望你能設(shè)計出更好的鬧鐘程序來！

網(wǎng)頁標(biāo)題：vb.net聲音提醒 vb播放聲音
分享URL：http://www.chinadenli.net/article0/doogeio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、企業(yè)網(wǎng)站制作、App設(shè)計、搜索引擎優(yōu)化、小程序開發(fā)、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)