注册 登录
编程论坛 VB6论坛

[原创]刚做了个小播放器.回复多了放源码.

学习VB才2天 发布于 2006-11-23 16:40, 1649 次点击
VB6+XP测试通过.....需要安装WINdows media player




只有本站会员才能查看附件,请 登录

[此贴子已经被作者于2006-11-23 16:57:06编辑过]

17 回复
#2
dragonfly2006-11-23 16:43
好像有些简单呵呵,放源码吧,学习一下!
#3
学习VB才2天2006-11-23 16:50
做这个就是为了自动记录路径  ...刚更新了 为XP风格...
#4
purana2006-11-23 18:03
WindowsMediaPlayer1.URL = "你要播放的某文件" '这里指定你要播放的文件
WindowsMediaPlayer1.Controls.play '播放
WindowsMediaPlayer1.Controls.pause '暂停
WindowsMediaPlayer1.Controls.stop '停止


该程序...说老实的..没什么意思....
而且..我的系统是xp,,,为经典模式..没有xp效果...

......不建议使用该控件.....比MMControl控件...还要差..
#5
学习VB才2天2006-11-23 18:27
回复:(学习VB才2天)[原创]刚做了个小播放器.回复多...
源码..........

只有本站会员才能查看附件,请 登录

#6
jrs1232006-11-23 22:44
运行上面源码出错:未找到方法或数据成员,下面两句出错,无法进一步验证.
Private Sub Timer1_Timer()
If W1.URL = "" Then
#7
yeshirow2006-11-24 00:01

使用 VS2005 不必自畫控件, 就可以輕鬆得到 xp 風格的程式

#8
jrs1232006-11-24 22:13
请问楼主,你的小播放器源码如何做才能正常运行?
#9
学习VB才2天2006-11-24 22:34
出了什么问题?
#10
学习VB才2天2006-11-25 09:12
以下是引用jrs123在2006-11-23 22:44:50的发言:
运行上面源码出错:未找到方法或数据成员,下面两句出错,无法进一步验证.
Private Sub Timer1_Timer()
If W1.URL = "" Then

W1.URL=WINDOWS MEDIA PLAYER 你没有MEDIA PLAYER 控件
TIMER 你没加入TIMER控件

#11
jrs1232006-11-25 23:21

请问楼主:
1、能否循环播放?
2、能否设置为内定的曲目,不要弹出对话框,并能多首播放?
偶很需要这样的功能,请帮忙

#12
buxchang2006-11-26 09:52
我回复
#13
jrs1232006-11-26 22:31
?
#14
学习VB才2天2006-11-27 14:58
以下是引用jrs123在2006-11-25 23:21:05的发言:

请问楼主:
1、能否循环播放?
2、能否设置为内定的曲目,不要弹出对话框,并能多首播放?
偶很需要这样的功能,请帮忙

1 MediaPlayer1.PlayState = mpStopped
2 不知道你想怎样弄呢....

#15
flyly2006-11-27 15:00
頂!哈哈!
#16
jrs1232006-11-28 23:07

是这样的:
在窗体上有3个钮:播放、停止、自选曲
如果先点击播放,则播放内定的几个曲子,应该能循环播放这几首曲子
其二,如果点“自选曲”,则弹出对话框,选好曲(按对话框的“打开”),即直接播放。并能循环播放该曲。
希望能提供上面功能的源代码。会很难吗?
内定的曲子由编程者定,用户是不能改的。

#17
e3bnsd2012-12-08 22:19
学习。
#18
zq_8889992012-12-12 23:47
哈哈哈哈
1