Question

VB设计窗体里有一个WindowsMediaPlayer，和一个命令按钮单击命令按钮音乐播放，在单击一次音乐关闭

Answer 1

'放在按钮里.控件名为WindowsMediaPlayer1
Private Sub Command1_Click()
If WindowsMediaPlayer1.playState <> 1 Then
WindowsMediaPlayer1.controls.stop
Else
WindowsMediaPlayer1.url = "音乐的地址"
WindowsMediaPlayer1.controls.play
End If
End Sub

Answer 2

路径写什么？

追问

音乐要相对路径，你举个例子就行

追答

'本机测试通过

Private Sub Command1_Click()
If Command1.Caption = "播放" Then
WindowsMediaPlayer1.URL = App.Path & "\幸福的苦.wma"
Command1.Caption = "停止"
ElseIf Command1.Caption = "停止" Then
WindowsMediaPlayer1.Controls.stop
Command1.Caption = "播放"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "播放"
End Sub

Answer 3

引用控件

Answer 4

需添加引用

追问

能不能给写一下代码，谢谢了

Answer 5

uiooo