| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 807 人关注过本帖
标题:[下载]我编译了一个播放器
只看楼主 加入收藏
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
 问题点数:0 回复次数:6 
[下载]我编译了一个播放器
我编译了一个播放器,各位不妨试一试,功能还是挺不错的,还有标签循环功能!!!(虽然外观不很美丽)
但是有时会出错,晕!!!(当我没说过,哈)
当然,要有MCI32控件,MSCOMCTL控件才可以
只有152KB的绿色软件,谢谢!!!

6l641jQ4.rar (52 KB) [下载]我编译了一个播放器



小弟会继续努力的......

[此贴子已经被作者于2005-9-10 16:26:55编辑过]




grmIYtxJ.rar (152.38 KB) 我编译了一个播放器



Heolbtob.rar (38.59 KB) 我编译了一个播放器



MGJLTUwf.rar (40.7 KB) [下载]我编译了一个播放器

搜索更多相关主题的帖子: 绿色软件 播放器 编译 下载 控件 
2005-08-25 16:48
刘志强
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-8-22
收藏
得分:0 
靠,佩服!
2005-08-25 18:08
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
没控件怎么办?

快上课了……
2005-08-25 21:47
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
可以到www.2ocx.com下载

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2005-08-26 08:50
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
顶上去
支持一下

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2005-09-10 22:58
cbhwsl
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2005-9-30
收藏
得分:0 
你好楼主。有些问题想问一下你
如何实现 两个窗体,当 一个拉动的时候,另外一个也会随着跟动
如何实现自动装载上次的播放列表
等等
谢谢
很佩服你的成果
我的QQ是284005038,有机会加我啊,一起探讨VB

[此贴子已经被作者于2005-9-30 17:13:24编辑过]


2005-09-30 17:12
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 
对于"如何实现 两个窗体,当 一个拉动的时候,另外一个也会随着跟动"这个问题,小弟用了比较陈旧的方法,就是利用了Timer控件实现的
设Form1为主窗体form2为跟随窗体
Private Sub Timer1_Timer()
form2.left=form1.left+form1.width
form2.top=form1.top
End Sub
当timer的interval的值越小其精确度越大,这样看起来越舒服,越流畅;当然这样占用CPU越大

至于"如何实现自动装载上次的播放列表",只要用读写文件就可以了
在确定选择了这个功能的时候,可以在退出时实现
下面只是一个例子:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
on error resume next
if 选择了这个功能 then
  open "c:\autoload.txt" for output as #1
  print #1,"true"
  print #1,列表路径(在此就省略了)
  close #1'写入文件
    else kill "c:\autoload.txt" '没有选择进行删除
end if
End Sub
接着就在启动窗体的时候读取文件就大功告成了
Private Sub Form_Load()
on error goto 1'出错时忽略
dim a as string
dim b(1000) as string
dim i as integer
open "c:\autoload.txt" for input as #2
line input #2,a
if a<>"true"then close #2:goto 1'如果不等于true,就退出
while not eof(2)
  line input b(i)'读取文件名
  combo1.additem b(i)'装入列表
  i=i+1
wend
......
1:
End Sub

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2005-10-01 09:34
快速回复:[下载]我编译了一个播放器
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053563 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved