VB.NET如何實(shí)現(xiàn)播放聲音編程

這篇文章給大家分享的是有關(guān)VB.NET如何實(shí)現(xiàn)播放聲音編程的內(nèi)容。小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，一起跟隨小編過來看看吧。

添加三個(gè)button控件，寫代碼如下：

1. Imports System.ComponentModel 

2. '引用 族名 System.ComponentModel   

3. Imports System.Drawing 

4. '引用族名 System.Drawing   

5. Imports System.WinForms 

6. '引用族名 System.WinForms  

在VB.NET播放聲音中引用族名的目的是在調(diào)用他的子類時(shí)不需要寫出族名,如

system.drawing.color寫成color

Public Class Form1   
Inherits System.WinForms.Form 
' Inherits是從已有的一個(gè)類繼承，
得到這個(gè)類已定義的方法   
Public Sub New()   
MyBase.New() 'mybase是指代父類 mybase.new
是調(diào)用父類的new過程，new是新建一個(gè)對(duì)象，
對(duì)象是存在內(nèi)存的，類是并不存在內(nèi)存的   
Form1 = Me '這樣，下面的me關(guān)鍵字 就被認(rèn)定為form1   
InitializeComponent() '這下面的代碼
是在新建一個(gè)form1的實(shí)例時(shí)執(zhí)行的初始化動(dòng)作   
Call me_load() '這是自定義的一個(gè)子過程   
End Sub   
'Form overrides dispose to clean 
up the component list.   
Overrides Public Sub Dispose()   
AxMMControl1.Command = "close" 
'關(guān)閉聲音資源，這個(gè)代碼一定要放在dispose過程的前面   
MyBase.Dispose() 'dispose是清除對(duì)象   
components.Dispose() '清空組件   
End Sub  

感謝各位的閱讀！關(guān)于“VB.NET如何實(shí)現(xiàn)播放聲音編程”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！