想请教一个任何打开现有的一些音乐,电影之类的文件(*.mp3,*.rmvb)

johson1982 2004-09-28 03:27:12
我做的数据库由于有影音资料这一部分,我按照做别的方法,也是把这些影音方面的文件以地址存放到数据库,再想按地址来调用和打开,但就是不知道怎么实现,我试了下但没成功,希望有人会的多帮忙。
textBox与我的数据库中存放地址的字段绑定
Option Explicit
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 command1_click()
Dim sFileName As String
sFileName = Text2.Text
If Err <> 0 Then Exit Sub
If sFileName = "" Then Exit Sub
ShellPlay (sFileName)
End Sub
Private Sub ShellPlay(ByVal sPath As String)
Dim lret As Long
Dim sText As String
sText = Trim$(sPath)
lret = ShellExecute(hwnd, "open", sText, vbNull, vbNull, SW_SHOWNORMAL)
If lret >= 0 And lret <= 32 Then
MsgBox "error opening viewer program"
End If
End Sub
另外,请尽可能把所有格式的文件都写下,
...全文
44 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
ryuginka 2004-09-28
up
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告