VB如何播放背景音乐
如何在VB中播放音乐
Private Sub Command1_Click()'添加 Microsoft Windows Common Controls 部件'第一次播放= + "\"= "open"= "play"End SubPrivate Sub Command2_Click()'重新播放= "close"= "open"= "play"End SubPrivate Sub Command3_Click()'添加 Microsoft Media Player部件点击一次播放一次 = + "\"End Sub不用ActiveX控件也能播放声音文件讲一下代码保存至moduleOption ExplicitPublic Declare Function sndPlaySound Lib "" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ByVal uFlags As Long) As LongConst SND_SYNC = &H0Const SND_ASYNC = &H1Const SND_NODEFAULT = &H2Const SND_LOOP = &H8Const SND_NOSTOP = &H10接下来把下面的代码粘贴到你想播放声音文件的地方，比如放在命令按钮的Click事件中Dim sFlags As LongsFlags = SND_ASYNC Or SND_NODEFAULTsndPlaySound "", sFlags把上面的换成你想要播放的声音文件的完整路径及文件名就行了。
VB如何播放背景音乐
VB如何播放背景音乐弟代码较多你可以给出邮箱吗？我直接发给你源码。
不过如果你不需要所有的功能你可以参考下面的代码。
只是部分，因为还有一个模块没有。
Dim ier As BooleanPrivate Sub Command1_Click()If Command1.Caption = "暂停播放" Then WindowsMediaPlayer1.Controls.pauseCommand1.Caption = "接着播放"ipause.Caption = "接着播放"ElseIf Command1.Caption = "接着播放" Then WindowsMediaPlayer1.Controls.playCommand1.Caption = "暂停播放"ipause.Caption = "暂停播放"End IfEnd SubPrivate Sub Command2_Click()Call rPlayMusicEnd SubPrivate Sub Command3_Click()'播放下一首If File1.ListIndex < File1.ListCount - 1 ThenFile1.ListIndex = File1.ListIndex + 1ElseIf File1.ListIndex = File1.ListCount - 1 ThenFile1.ListIndex = 0End IfCall play(File1.Path & "\" & File1.FileName)End SubPrivate Sub Command4_Click()Me.HideEnd SubPrivate Sub File1_DblClick()Call play(App.Path & "\music\" & File1.FileName) End SubPrivate Sub Form_Load()'添加托盘图标Call AddIcon'label1动态初始化ier = True'播放器处理WindowsMediaPlayer1.uiMode = "invisible"WindowsMediaPlayer1.Controls.stop'播放文件夹处理On Error Resume Next '避开错误处理直接生成music文件甲MkDir (App.Path & "\music")'定义当前音乐文件播放地址用filelist直接取得File1.Path = App.Path & "\music"'随机播放音乐Call rPlayMusicEnd SubPrivate Sub rPlayMusic()Dim i As IntegerRandomizei = Int(Rnd * File1.ListCount) '取得一个属于音乐文件的标识File1.ListIndex = iCall play(File1.Path & "\" & File1.FileName) '播放路径名中音乐文件End SubPrivate Sub play(mPlay As String)WindowsMediaPlayer1.Controls.stop WindowsMediaPlayer1.URL = mPlay WindowsMediaPlayer1.Controls.playa = Split(mPlay, "\")a = a(UBound(a))Label1.Caption = "现在正在播放:" & a ier = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer) Call DelIcon '删除托盘图标WindowsMediaPlayer1.Controls.stop Unload MeEnd SubPrivate Sub iend_Click()Unload MeEnd SubPrivate Sub inext_Click()Call Command3_ClickEnd SubPrivate Sub ipause_Click()Call Command1_ClickEnd SubPrivate Sub irplaymusic_Click()Call Command2_ClickEnd SubPrivate Sub ishowme_Click()Me.ShowEnd SubPrivate Sub Timer1_Timer()'用于进行动态状态栏If ier = True ThenLabel1.Caption = " " & Label1.Captionier = FalseElseIf er = False ThenLabel1.Caption = Right$(Label1.Caption,Len(Label1.Caption) - 3)ier = TrueEnd If'用于判断是否已经播放完成播放完成就随机播放一首If WindowsMediaPlayer1.playState = 1 Then Call rPlayMusic '也可以播放下一首if WindowsMediaPlayer1.playstate=1 then call command3_clickEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)'气泡单击时的鼠标事件Dim cEvent As SinglecEvent = X / Screen.TwipsPerPixelXSelect Case cEventCase MouseMove'Debug.Print "MouseMove"Case LeftUp' Debug.Print "左键放开"Case LeftDown' Debug.Print "左键按下"Case LeftDbClick' Debug.Print "左键双击"Form1.WindowState = 0Form1.ShowCase MiddleUp' Debug.Print "中间键放开"Case MiddleDown' Debug.Print "中间键按下"Case MiddleDbClick' Debug.Print "中间键单击"Case RightUp' Debug.Print "右健放开"Case RightDown' Debug.Print "右健按下"Me.PopupMenu Me.MenuCase RightDbClick' Debug.Print "右健双击"Case BalloonClick' Debug.Print "单击气泡"' End SelectEnd Sub ''。
VB中播放WavMidi声音代码
VB中播放WavMidi声音代码在某些情况下，例如程序员正在编写一个游戏，或是将要进行一项非常冗长无聊的过程，可以通过播放音乐来增加游戏的声光效果或是减少漫长的等待所带来的困倦。
本文介绍如何在microsoft visual basic 中对声音文件进行播放。
播放声音文件---- 在microsoft visual basic 中进行多媒体音乐的播放是一件非常轻松的事情。
在microsoft windows 系统中支持的声音文件有wav 文件和midi 文件，通常使用windows 应用程序编程接口（api）函数mciexecute 函数可以对midi 文件进行播放。
而使用api函数sndplaysound 则可以对wav 播放文件进行播放，当然，你也可以使用mciexecute 函数来播放wav 文件。
---- 为了播放wav 文件，你需要在你的程序窗体的通用声明部分中，或是标准模块中添加如下的声明语句：---- private declare function sndplaysound lib "winmm.dll" alias "sndplaysounda" (byval lpszsoundname as string, byval uflags as long) as long---- 以及如下的标识常量：---- public const snd_sync = &h0---- public const snd_async = &h1---- public const snd_nodefault = &h2---- public const snd_memory = &h4---- public const snd_alias = &h10000---- public const snd_filename = &h20000---- public const snd_resource = &h40004---- public const snd_alias_id = &h110000---- public const snd_alias_start = 0---- public const snd_loop = &h8---- public const snd_nostop = &h10---- public const snd_valid = &h1f---- public const snd_nowait = &h2000---- public const snd_validflags = &h17201f---- public const snd_reserved = &hff000000---- public const snd_type_mask = &h170007---- sndplaysound 函数需要两个参数，第一个参数soundfilename是要播放的wav 文件的名称。
歌曲播放VB
“歌曲播放”程序设计文档一、程序名称：歌曲播放二、程序功能1：实现了可通过不同倍速度播放音乐，如1倍速度、1.5倍速度2：实现了全部播放音乐，选中乐曲中的部分音乐播放选中部分以及停止等等三、程序设计1：按钮控件：Command1；Command2；Command32：文本控件：Text13：组合框：Combol四、程序实现1：定义音名频率：Call SetPName2：播放速度组合框及实现：Combo1_Click() ctV = 1 / Val(Combo1.Text)3：播放全部按钮及实现：Command1_Click() Call Paly4：播放选中部分按钮及实现：Command2_Click() Call Paly(True)5：停止播放按钮及实现：Command3_Click() ctEsc = True 五、程序运行六、程序代码Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongDim ctEsc As Boolean, ctExit As Boolean, ctV As Single, ctP() As Single, ctPs As LongPrivate Sub Form_Load()Dim I As LongMe.Caption = "让主板播放乐曲": Command3.Caption = "停止(&S)"Command1.Caption = "全部播放(&A)": Command2.Caption = "播放选中部分(&P)" = "宋体": Text1.Font.Size = 9Call SetPName '定义音名频率Combo1.AddItem " 0.25倍速度"Combo1.AddItem " 0.4 倍速度"Combo1.AddItem " 0.5 倍速度"Combo1.AddItem " 0.6 倍速度"Combo1.AddItem " 0.7 倍速度"Combo1.AddItem " 0.8 倍速度"Combo1.AddItem " 0.9 倍速度"Combo1.AddItem " 1 倍速度"Combo1.AddItem " 1.25倍速度"Combo1.AddItem " 1.5 倍速度"Combo1.AddItem " 1.75倍速度"Combo1.AddItem " 2 倍速度"Combo1.AddItem " 3 倍速度"Combo1.AddItem " 4 倍速度"Combo1.Text = " 1 倍速度"'例子乐曲Text1.Text = " 粉刷匠" & vbCrLf & _" 5 3 5 3 | 5 3 1- |2 4 3 2 | 5---|" & vbCrLf & _" 我是一个粉刷匠，粉刷本能强，" & vbCrLf & _" 5 3 5 3 | 5 3 1- |2 4 3 2 | 1---|" & vbCrLf & _" 我要把那新房子，刷得很漂亮。
VB?在资源文件中自定义了一WAV文件，要在form中调用这个资源实现背景音乐
VB 在资源文件中自定义了一WAV文件，要在form中调用这个资源实现背景音乐播放2首曲子的源代码这个例子好像只能播放WAV文件，将两个WAV文件添加到资源文件里，分别命名为101 和 102添加两个command控件！然后在form窗体中添加如下代码：Option ExplicitPrivate Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As LongPrivate Const SND_ASYNC& = &H1Private Const SND_NODEFAULT& = &H2Private Const SND_RESOURCE& = &H40004Dim hInst As LongDim sSoundName As StringDim lFlags As LongDim lRet As LongPrivate Sub Command1_Click() '播放第一首sSoundName = "101"lRet = PlaySound(sSoundName, hInst, lFlags)End SubPrivate Sub Command2_Click() ‘播放第二首sSoundName = "102"lRet = PlaySound(sSoundName, hInst, lFlags)End SubPrivate Sub Form_Load()hInst = App.hInstancelFlags = SND_RESOURCE + SND_ASYNC + SND_NODEFAULT End Sub代码编辑完成，保存生成可执行程序后，运行点击窗体中相应的按钮就能听到声音了！。
vba触发正确声
vba触发正确声
对于VBA触发正确声音（即播放音频）的方法，可以使用以下代码：
```vb
Sub PlaySound()
' 导入必要的库
Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim soundFilePath As String
Dim result As Long
' 设置音频文件的路径
soundFilePath = "C:\Path\To\Your\Sound\File.wav"
' 播放音频文件
result = PlaySound(soundFilePath, 0&, 1)
' 检查播放结果
If result = 0 Then
MsgBox "无法播放音频文件。
"
End If
End Sub
```
请将代码中的 `soundFilePath` 替换为您的音频文件的实际路径。
此代码将调用 `winmm.dll` 库中的 `PlaySound` 函数，实现播放指定音频文件的功能。
请确保您的电脑支持并已安装相应的音频文件解码器。
此代码仅供参考，如有其他需求或问题，请告诉我。
VB制作简单的MP3播放器
简单的MP3播放器一、系统完成功能及框图系统完成功能：用户进入打开播放器，选取文件就可播放了！二、核心算法及说明1. 添加mediaplayer1及CommonDialog1控件右击工具箱的空白处，选择“部件”，然后选取控件，如下图：把相关控件添加到窗体上；在windows media player的属性窗口中把windows media player1名称改为media player1 2.动态链接文件Private Sub Command1_Click()CommonDialog1.Action = 1MediaPlayer1.URL = CommonDialog1.FileNameIf CommonDialog1.FileName <> "" ThenCaption = "正在播放：" & CommonDialog1.FileNameCommand3.Enabled = TrueCommand4.Enabled = TrueEnd IfEnd Sub三、界面设计程序代码如下：Private Sub Command1_Click()CommonDialog1.Action = 1MediaPlayer1.URL = CommonDialog1.FileNameIf CommonDialog1.FileName <> "" ThenCaption = "正在播放：" & CommonDialog1.FileNameCommand3.Enabled = TrueCommand4.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()Caption = "正在播放：" & CommonDialog1.FileNameMediaPlayer1.Controls.playCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = True End SubPrivate Sub Command3_Click()MediaPlayer1.Controls.pauseCommand3.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command4_Click() MediaPlayer1.CloseCommand4.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Load()Caption = "正在播放："Command1.Caption = "打开"Command2.Caption = "播放"Command3.Caption = "暂停"Command4.Caption = "停止"Command5.Caption = "退出"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseEnd Sub。
如何在VB中播放音乐
如何在VB中播放音乐Private Sub Command1_Click()'添加 Microsoft Windows Common Controls 部件'第一次播放= + "\"= "open"= "play"End SubPrivate Sub Command2_Click()'重新播放= "close"= "open"= "play"End SubPrivate Sub Command3_Click()'添加 Microsoft Media Player部件点击一次播放一次 = + "\"End Sub不用ActiveX控件也能播放声音文件讲一下代码保存至moduleOption ExplicitPublic Declare Function sndPlaySound Lib "" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As LongConst SND_SYNC = &H0Const SND_ASYNC = &H1Const SND_NODEFAULT = &H2Const SND_LOOP = &H8Const SND_NOSTOP = &H10接下来把下面的代码粘贴到你想播放声音文件的地方，比如放在命令按钮的Click事件中Dim sFlags As LongsFlags = SND_ASYNC Or SND_NODEFAULTsndPlaySound "", sFlags把上面的换成你想要播放的声音文件的完整路径及文件名就行了。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB如何播放背景音乐
弟代码较多你可以给出邮箱吗？我直接发给你源码。
不过如果你不需要所有的功能你可以参考下面的代码。
只是部分，因为还有一个模块没有。
Dim ier As Boolean
Private Sub Command1_Click()
If Command1.Caption = "暂停播放" Then WindowsMediaPlayer1.Controls.pause
Command1.Caption = "接着播放"
ipause.Caption = "接着播放"
ElseIf Command1.Caption = "接着播放" Then WindowsMediaPlayer1.Controls.play
Command1.Caption = "暂停播放"
ipause.Caption = "暂停播放"
End If
End Sub
Private Sub Command2_Click()
Call rPlayMusic
End Sub
Private Sub Command3_Click()
'播放下一首
If File1.ListIndex < File1.ListCount - 1 Then
File1.ListIndex = File1.ListIndex + 1
ElseIf File1.ListIndex = File1.ListCount - 1 Then
File1.ListIndex = 0
End If
Call play(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Command4_Click()
Me.Hide
End Sub
Private Sub File1_DblClick()
Call play(App.Path & "\music\" & File1.FileName) End Sub
Private Sub Form_Load()
'添加托盘图标
Call AddIcon
'label1动态初始化
ier = True
'播放器处理
WindowsMediaPlayer1.uiMode = "invisible"
WindowsMediaPlayer1.Controls.stop
'播放文件夹处理
On Error Resume Next '避开错误处理直接生成music文件甲MkDir (App.Path & "\music")
'定义当前音乐文件播放地址用filelist直接取得
File1.Path = App.Path & "\music"
'随机播放音乐
Call rPlayMusic
End Sub
Private Sub rPlayMusic()
Dim i As Integer
Randomize
i = Int(Rnd * File1.ListCount) '取得一个属于音乐文件的标识File1.ListIndex = i
Call play(File1.Path & "\" & File1.FileName) '播放路径名中音乐文件
End Sub
Private Sub play(mPlay As String)
WindowsMediaPlayer1.Controls.stop WindowsMediaPlayer1.URL = mPlay WindowsMediaPlayer1.Controls.play
a = Split(mPlay, "\")
a = a(UBound(a))
Label1.Caption = "现在正在播放:" & a ier = True
End Sub
Private Sub Form_Unload(Cancel As Integer) Call DelIcon '删除托盘图标WindowsMediaPlayer1.Controls.stop Unload Me
End Sub
Private Sub iend_Click()
Unload Me
End Sub
Private Sub inext_Click()
Call Command3_Click
End Sub
Private Sub ipause_Click()
Call Command1_Click
End Sub
Private Sub irplaymusic_Click()
Call Command2_Click
End Sub
Private Sub ishowme_Click()
Me.Show
End Sub
Private Sub Timer1_Timer()
'用于进行动态状态栏
If ier = True Then
Label1.Caption = " " & Label1.Caption
ier = False
ElseIf er = False Then
Label1.Caption = Right$(Label1.Caption,
Len(Label1.Caption) - 3)
ier = True
End If
'用于判断是否已经播放完成播放完成就随机播放一首
If WindowsMediaPlayer1.playState = 1 Then Call rPlayMusic '也可以播放下一首if WindowsMediaPlayer1.playstate=1 then call command3_click
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'气泡单击时的鼠标事件
Dim cEvent As Single
cEvent = X / Screen.TwipsPerPixelX
Select Case cEvent
Case MouseMove
'Debug.Print "MouseMove"
Case LeftUp
' Debug.Print "左键放开"
Case LeftDown
' Debug.Print "左键按下"
Case LeftDbClick
' Debug.Print "左键双击"
Form1.WindowState = 0
Form1.Show
Case MiddleUp
' Debug.Print "中间键放开"
Case MiddleDown
' Debug.Print "中间键按下"
Case MiddleDbClick
' Debug.Print "中间键单击"
Case RightUp
' Debug.Print "右健放开"
Case RightDown
' Debug.Print "右健按下"
Me.PopupMenu Me.Menu
Case RightDbClick
' Debug.Print "右健双击"
Case BalloonClick
' Debug.Print "单击气泡"' End Select
End Sub ''。