建站
咨詢
售后
建站咨詢
新聞中心
VB.NET 打包安裝到目標(biāo)機(jī)后為何沒(méi)有了聲音?
在目標(biāo)機(jī)器上查看一下winmm.dll是否正確注冊(cè)，如果沒(méi)問(wèn)題，那就是對(duì)方聲卡的問(wèn)題，再換臺(tái)機(jī)器試試。
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站設(shè)計(jì)制作、做網(wǎng)站、宜昌網(wǎng)絡(luò)推廣、微信平臺(tái)小程序開(kāi)發(fā)、宜昌網(wǎng)絡(luò)營(yíng)銷(xiāo)、宜昌企業(yè)策劃、宜昌品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供宜昌建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com
vb.net中如何播放聲音，是要什么控件嘛？
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的聲音文件的路徑
我用二進(jìn)制讀取了聲音文件，VB或VB.net如何播放二進(jìn)制聲音數(shù)據(jù)，請(qǐng)高手賜教！
不明白你為什么要二進(jìn)制讀取聲音文件，VB可以直接調(diào)用API播放聲音文件，不需要你二進(jìn)制來(lái)讀取聲音文件的。
Private
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放的文件名(帶路徑)
'playCount 播放的次數(shù)
'JianGe 多次播放時(shí),每次的時(shí)間間隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe 1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 16 + 1
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub
Private Sub Form_Click()
PlayWavFile "C:\aaa.wav", 1, 1000 '參數(shù)：播放文件，播放次數(shù)，播放間隔
End Sub
VB.net如何加載音效？
方法一：調(diào)用系統(tǒng)DLL（這個(gè)有點(diǎn)不完善，也就是播放聲音時(shí)窗體無(wú)法控制，效果相當(dāng)于Enabled=true，但音頻播放完畢后就沒(méi)事了）
Private?Declare?Function?sndPlaySound?Lib?"Winmm.dll"?Alias?"sndPlaySoundA"?(ByVal?lpszSoundName?As?String,?ByVal?uFlags?As?Long)?As?Long
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?SoundFile?As?String,?Result?As?Long
SoundFile?=?"D:\KuGou\Pianoboy?-?第105天.wav"?'此處為路徑
Result?=?sndPlaySound(SoundFile,?0)
End?Sub
方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可見(jiàn)為False）
先添加一個(gè)windowsmediaplayer控件（工具箱里沒(méi)有，需要手動(dòng)添加）
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
WindowsMediaPlayer1.visible=False
Me.WindowsMediaPlayer1.URL?=?"D:\KuGou\Pianoboy?-?第105天.mp3"
End?Sub
上面的都是點(diǎn)擊button1（按鈕1）后播放聲音，若是鼠標(biāo)移動(dòng)到某控件上發(fā)出聲音的話改一下觸發(fā)事件就OK了。
vb.net怎么編程實(shí)現(xiàn)從音頻輸出口輸出指定頻率指定時(shí)長(zhǎng)和占空比的單音信號(hào)。
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂(lè)。在VB.NET中調(diào)用跟VB6中差不多：
先聲明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具體還有很多常量，不一一列舉，下面是播放一個(gè)wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是說(shuō)它并不會(huì)播放完畢才結(jié)束。如果把上面的代碼寫(xiě)在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會(huì)打斷第一次的播放，重新開(kāi)始。
當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式調(diào)用系統(tǒng)啟動(dòng)時(shí)候的聲音。
2． 調(diào)用媒體播放器控件
VB.NET中并沒(méi)有提供媒體播放器的.NET組件，沒(méi)辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。
首先把媒體播放器控件加到工具欄中，調(diào)用還是簡(jiǎn)單的寫(xiě)一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\愛(ài)不愛(ài)我.mp3"
.Play()
End With
End Sub
vb.net 判斷聲卡是否驅(qū)動(dòng)
95%的電腦目前的聲卡是版載的, 所以首先確定自己已經(jīng)裝了原盤(pán)中的聲卡驅(qū)動(dòng).然后最簡(jiǎn)單的方法就是播放一個(gè)音頻文件, 有聲音自然就是驅(qū)動(dòng)已經(jīng)裝.再來(lái)就是在"我的電腦"上右鍵 - 硬件 - 硬件管理器 - 看看聲音一欄下有沒(méi)有黃色問(wèn)號(hào), 沒(méi)有的話證明一切正常
當(dāng)前名稱：包含vb.net讀取聲卡的詞條
文章地址：http://fisionsoft.com.cn/article/dodgpdo.html
