VB如何播放背景音乐.docxVIP

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 lt; File1.ListCount - 1 Then File1.ListIndex = File1.ListIndex + 1 ElseIf File1.ListIndex = File1.ListCount