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

这是一个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
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
得分:0 

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


生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。
2006-04-01 09:49
红影
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.619695 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved