标题:[求助]两句代码有问题
只看楼主
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
结帖率:66.67%
 问题点数:0 回复次数:4 
[求助]两句代码有问题

这是一个MP3播放器.其中有两句代码有错
,我已经标出,希望得到指点!


Private Sub CmdExit_Click(Index As Integer)
End
End Sub

Private Sub CmdOpen_Click(Index As Integer)
Dim stFileName As String
CdlGetFile.Filter = "MP3 Files|*.mp3"
CdlGetFile.Flags = cdlOFNHideReadOnly '打开文件属性
CdlGetFile.InitDir = "E:\娱乐地带\流行音乐\" '打开文件初始目录
CdlGetFile.ShowOpen
stFileName = CdlGetFile.FileName
Player.Open stFileName
End Sub

Private Sub CmdPlay_Click(Index As Integer)
Player.play
End Sub

Private Sub CmdStop_Click(Index As Integer)
Player.Close
End Sub

搜索更多相关主题的帖子: 播放器 娱乐 流行音乐 style 
2006-03-31 14:22
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
请问player是个什么东东??

我的msn: myfend@
2006-03-31 16:54
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
得分:0 

Player是控件WINDOWS MEDIA PLAYER的名称,在我编写的这段代码中,就是要调用该控件来实现播放MP3文件的功能.


生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。
2006-04-01 09:49
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 
如果你用的是 WindowsMediaPlayer 10,就要这样调用:

Player.URL = stFileName
Player.Play
2006-04-01 14:52
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
得分:0 
谢谢四楼leon2的热心帮助,我照你说的改过之后还有点小问题,不过现在已经顺利解决了.
我是VB新手,以后还有很多地方要麻烦大家帮忙!

生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。
2006-04-01 21:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-54128-1-1.html




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

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