| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 847 人关注过本帖
标题:小弟刚学VB照书上编的一个播放器
只看楼主 加入收藏
郑振
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-10-21
收藏
 问题点数:0 回复次数:5 
小弟刚学VB照书上编的一个播放器
大家看看,给点意见。

快进件不能用,

还有很多问题大家看看就知道了。

书上说可以看电影的,我怎么也看不了。。。

郁闷了!!!!







搜索更多相关主题的帖子: 上编 播放器 
2005-10-24 12:31
郑振
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-10-21
收藏
得分:0 
怎么大于300K就传不上来啊!!!

署往寒来春夏秋,夕阳西下水东流。 时来富贵皆因命,远去贫穷亦有由。
2005-10-24 12:33
郑振
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2005-10-21
收藏
得分:0 

Private Sub Form_Load() With MMControl1 '设备Picture1为视频回放的窗体 .hWndDisplay = Picture1.hWnd '设置通知和非阻塞状态 .Notify = True .Wait = False End With End Sub

Private Sub MMControl1_Done(NotifyCode As Integer) With MMControl1 If .Error <> 0 Then MsgBox "Error#" & .Error & ":" & .ErrorMessage End If End With End Sub

Private Sub MMControl1_StatusUpdate() With MMControl1 If .DeviceID <> 0 Then If Slider1.Value <> .Position Then Slider1.Value = .Position End If End If End With End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If MMControl1.Command = "play" Then MMControl1.Command = "stop" Else MMControl1.Command = "play" End If End Sub

Private Sub 打开_Click() CommonDialog1.FileName = "" CommonDialog1.Flags = &H800 CommonDialog1.Filter = "All files(*.*)|*.*" + "|MPEG Video Files(*.mpg;*.mpeg)|*.mpg;*.mpeg;" + "|Audio files(.wav)|*.wav" + "|Video for Windows files(.avi)|*.avi" + "|MIDI sequencs(.mid)|*.mid" CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "打开文件" CommonDialog1.Action = 1 If CommonDialog1.FileName <> "" Then '如果选择了文件,把文件传递给MMControl1控件 MMControl1.FileName = CommonDialog1.FileName '打开这个设备 MMControl1.Command = "open" '根据媒体文件的长度,设置滑杆的参数 Slider1.Max = MMControl1.Length Slider1.SmallChange = 1 Slider1.LargeChange = Slider1.Max / 10 End If End Sub

Private Sub 关闭_Click() If MMControl1.Mode <> micModeNotOpen Then '首先停止MCI设备的运行,然后关闭之 MMControl1.Command = "stop" MMControl1.Command = "close" End If Unload Me End Sub

Private Sub 结束_Click() If MMControl1.Mode <> mciModeNotOpen Then '首先停止MCI设备的运行,然后关闭之 MMControl1.Command = "stop" MMControl1.Command = "close" End If End Sub 这是源代码 小弟还不知道怎么把播放器样子发上来。。 各位大侠不要笑偶哦!!


署往寒来春夏秋,夕阳西下水东流。 时来富贵皆因命,远去贫穷亦有由。
2005-10-24 12:44
wtoo2
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-2-12
收藏
得分:0 
哈哈播放器好像行

2006-03-11 10:23
wtoo2
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-2-12
收藏
得分:0 

2006-03-11 10:24
vbahz
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2006-3-10
收藏
得分:0 
有兴趣大家一起合作,来完善播放器吗?
2006-03-11 13:48
快速回复:小弟刚学VB照书上编的一个播放器
数据加载中...
 
   



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

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