播放不了歌曲 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 播放不了歌曲

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 589 人关注过本帖

标题：播放不了歌曲

取消只看楼主加入收藏

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7
结帖率：80%

楼主

问题点数：0 回复次数：4

播放不了歌曲

我将路径保存在SQL中类型是path varchar 100
这是其中一个保存在ＳＱＬ中的路径 D:\后来.mp3
可当我用windowsmedia 播放时他就会提示＂试图播放的文件的扩展名(.)与文件格式不匹配"
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
str2 = List1.Text
i = Len(str2)
For j = 1 To i
s = Mid(str2, j, 1)
str1 = str1 & s
If s = "#" Then
str1 = ""
End If
WP1.URL = str1＇就这里出现的错误，怎样改正呢?
Next
End If

搜索更多相关主题的帖子: 歌曲　播放　

2007-05-07 21:20

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7

第 2 楼

得分:0

用text1.text查看了是 D:\后来.mp3 他提示的是.这有错
是用shellexecute这语句执行吗?

2007-05-08 10:35

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7

第 3 楼

得分:0

我在几本书上都没找到shellexecute能给我个例子吗

2007-05-08 18:09

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7

第 4 楼

得分:0

以下是引用redice在2007-5-8 22:35:01的发言：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "http://www.bc-cn.net", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

'运行程序 IE浏览器(默认的浏览器)将自动打开“编程论坛”

我检查出来了,是SQL里的"D:\后来.mp3" 这个"."这有问题是不是SQL只能保存路径,不能保存文件名

2007-05-09 14:32

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7

第 5 楼

得分:0

我用这句可以播放ShellExecute Me.hwnd, vbNullString, "D:\后来.mp3", vbNullString, "C:\", SW_SHOWNORMAL
但他并没有用控件wp1,而是另外打开了windowsmedia播放
当我用ShellExecute Me.wp1, vbNullString, "D:\后来.mp3", vbNullString, "C:\", SW_SHOWNORMAL
他就提示"对象不支持该属性或方法"

2007-05-09 14:48

快速回复：播放不了歌曲