日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
VB.NET聲音播放三點(diǎn)要素概述

自從VB.NET推出后，其功能特點(diǎn)極大的吸引了廣發(fā)開發(fā)人員的眼球。我們可以在實(shí)際應(yīng)用中去發(fā)現(xiàn)其的好處。下面就先來從VB.NET聲音播放來體驗(yàn)期功能的強(qiáng)大。由VB6升級(jí)為.NET后，有些人不清楚聲音的處理，比如程序出錯(cuò)的時(shí)候，自定義一個(gè)聲音播放，或者程序的背景音樂、包括游戲音樂等等。下面介紹幾種在VB.NET中計(jì)較簡(jiǎn)單可以實(shí)現(xiàn)的方案：#t#

成都創(chuàng)新互聯(lián)公司技術(shù)團(tuán)隊(duì)十載來致力于為客戶提供網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、高端網(wǎng)站設(shè)計(jì)、成都營(yíng)銷網(wǎng)站建設(shè)、搜索引擎SEO優(yōu)化等服務(wù)。經(jīng)過多年發(fā)展，公司擁有經(jīng)驗(yàn)豐富的技術(shù)團(tuán)隊(duì)，先后服務(wù)、推廣了1000+網(wǎng)站，包括各類中小企業(yè)、企事單位、高校等機(jī)構(gòu)單位。

VB.NET聲音播放1． Beep

最簡(jiǎn)單的一種方法，通過計(jì)算機(jī)的揚(yáng)聲器發(fā)出聲響， 聲響的音高與持續(xù)時(shí)間取決于硬件和系統(tǒng)軟件，從而隨計(jì)算機(jī)不同而不同。

Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默認(rèn)系統(tǒng)會(huì)自動(dòng)加載。調(diào)用很簡(jiǎn)單，看下面的例子。

  1. Dim I As IntegerFor I = 1 To 100
  2. ' Loop 100 times. Beep()
  3. ' Sound a tone.Next I 

VB.NET聲音播放2． 用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂。在VB.NET中調(diào)用跟VB6中差不多：

先聲明：

 
 
 
    
  
  
  
  1. Private Declare Auto Function 
    PlaySound Lib "winmm.dll" 
    (ByVal lpszSoundName As String, 
    ByVal hModule As Integer, ByVal 
    dwFlags As Integer) As Integer
    2. 
  
  
  
  2. Const SND_FILENAME As Integer = 
    &H20000Const
    3. 
  
  
  
  3. SND_ALIAS As Integer = &H10000
    4. 
  
  
  
  4. Const SND_SYNC As Integer = &H0
    5.

具體還有很多常量，不一一列舉，下面是播放一個(gè)wav文件的例子

 
 
 
    
  
  
  
  1. Dim mstrfileName As 
    String = "c:\eagle2.wav"
    2. 
  
  
  
  2. PlaySound(mstrfileName, 
    0, SND_FILENAME)
    3.

注意上面的播放是非同步的，就是說它并不會(huì)播放完畢才結(jié)束。如果把上面的代碼寫在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會(huì)打斷第一次的播放，重新開始。

當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：

 
 
 
    
  
  
  
  1. PlaySound("SystemStart", 
    0, SND_ALIAS Or SND_SYNC) 
    2. 
  
  
  
  2. ' 以同步的方式調(diào)用系統(tǒng)
    啟動(dòng)時(shí)候的聲音
    3.

VB.NET聲音播放3． 調(diào)用媒體播放器控件

VB.NET中并沒有提供媒體播放器的.NET組件，沒辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。

首先把媒體播放器控件加到工具欄中，調(diào)用還是簡(jiǎn)單的寫一下吧：）

 
 
 
    
  
  
  
  1. Private Sub playMediaFile
    (ByVal mediaFileName As String) 
    2. 
  
  
  
  2. With MediaPlayer1  
    3. 
  
  
  
  3. .Stop()  
    4. 
  
  
  
  4. .FileName = "c:\mp3\愛不愛我.mp3"  
    5. 
  
  
  
  5. .Play()  
    6. 
  
  
  
  6. End With 
    7. 
  
  
  
  7. End Sub
    8.

總結(jié)：雖然VB.NET比VB6改變了很多，包括真正的OOP，多線程等等，但是總歸還是跟VB有很多聯(lián)系，建議大家碰到難于解決的問題的時(shí)候，試一下以前的處理方式，一般都能奏效


分享名稱：VB.NET聲音播放三點(diǎn)要素概述
URL分享：http://www.dlmjj.cn/article/ccidojg.html