在VB编程中，如何实现加入声音

Posted 2023-01-19 NCTU_to_prove_safety

添加一个WindowsMediaPlayer控件放到窗体里，然后写代码：

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "123.mp3" '这句代码的意思是播放程序所在文件夹中的123.mp3

'URL后面添地址,可以是网址

第一种Private Sub Form_Load() 

Set a = CreateObject("wmplayer.ocx") 
a.url = "E:\\mp3\\花好月圆.mp3" '你可在此改成你的乐曲 
a.settings.playCount = 99999 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
a.Controls.stop 
a.Close 
Set a = Nothing 
End Sub

第二种 加个Windows Media Player控件