当前位置:编程学习 > VB >>

利用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
下一个:教你怎么制作一个摇奖系统

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,