如何用VB编写一个播放器？

要代码！小妹在此先行道谢！！

2025-01-09 16:51:26

推荐回答（1个）

回答（1）：

从菜单：工程-部件里选用Windows media player 控件，是system32下的wmp.dll文件。下面我命名为wmp1.

再选用Microsoft Common Dialog control 6.0控件

3个command，表示打开，播放/暂停，和停止

Private Sub OpenCmd_Click()
CommonDialog1.Action = 1
WMP1.URL = CommonDialog1.FileName
end sub

Private Sub PlayCmd_Click()
If PlayCmd.Caption = "播放" Then
PlayCmd.Caption = "暂停"
WMP1.Controls.play
elseif PlayCmd.Caption = "暂停" Then
PlayCmd.Caption = "播放"
WMP1.Controls.pause
End If
end sub

Private Sub stopCmd_Click()
WMP1.Controls.stop
end sub