锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net加载资源音乐 vbs播放音乐

IT技术加载

怎么在vb.net程序里添加背景音乐？推荐到一个人的百度空间里去看，
里面有DirectSound的教程
还有DirectInput、DirectDraw的教程
但是DirectSound只能播放wav
如果想播放像mp3、ogg之类的音乐，你可以使用AudioVideoPlayback
VB.net里面怎么添加音乐给vb.net加载资源音乐你个 很简单vb.net加载资源音乐的
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
‘声明函数mciexcute加入库winmm.all
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play E:\music\music\单身情歌.wma ")
'在 formload过程中调用函数mciexcute里面 是文件 路径
End Sub
End Class
VB.net如何加载音效？方法一：调用系统DLL（这个有点不完善vb.net加载资源音乐，也就是播放声音时窗体无法控制vb.net加载资源音乐，效果相当于Enabled=truevb.net加载资源音乐，但音频播放完毕后就没事了）
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的可见为False）
先添加一个windowsmediaplayer控件（工具箱里没有，需要手动添加）
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
上面的都是点击button1（按钮1）后播放声音 ， 若是鼠标移动到某控件上发出声音的话改一下触发事件就OK了 。
【vb.net加载资源音乐 vbs播放音乐】vb.net加载资源音乐的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs播放音乐、vb.net加载资源音乐的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：爬虫改变js变量，js写爬虫

    下一篇：手机钉钉直播屏幕共享变暗，钉钉手机直播屏幕共享在哪里