利用VB手把手教你制作简易mp3播放器

答案：

 VB爱好者：http://vb.zzzyk.com





新建工程

添加控件：Microsoft Common Dialog Control 6.0 和   Windows Media Player

把那两个空间放到窗体上，再添加两个按钮，一个命名为播放，一个命名为打开

注意啊，

代码中的cmd就是Microsoft Common Dialog Control 6.0，你要把他改名为cmd哦。

WMP为Windows Media Player 你要把他改名为wmp哦。

Command2为打开按钮

接下来就是编写代码了：



Private Sub Command2_Click()

cmd.FileName = "" 

cmd.DialogTitle = "请选择你要播放的MP3"

cmd.Filter = "MP3|*.mp3|" 

cmd.ShowOpen

If Trim(cmd.FileName) = "" Then

                    Exit Sub

                Else

                 wmp.URL = Trim(cmd.FileName)

                End If

End Sub
Private Sub Form_Load()

If App.PrevInstance Then 

    End

End If
End Sub

上一个：SQLite研究之phpSQLiteAdmin
下一个：教你怎么制作一个摇奖系统