怎么样?您的vcd播放器可以横空出世了吧!?如果您觉得意犹未尽的话,则还可以用windowsapi函数进行开发,只不过api所能控制的就简单多了(windowsapi函数也是借用mci驱动程序来实现的。)
windows中mciexecute函数支持wav、rmi、mid、avi(可以有声音)等文件。可在声明中加入如下代码:
private declare function mciexecute lib "winmmm.dll"(byval lpstrcommand as string)as long
private sub form-load ()
dim x
x=mciexecute ("play e:\mpegav\music01.dat")
’如果您的vcd中mpegav目录下的文件名不是music01.dat,则改为avseq01.dat (下同)
end sub
按f5运行程序即自动播放vcd。
windows中mcisendstring函数同样可以播放上述类型的文件。在声明中加入如下代码:
private declare function mcisendstring lib "winmmm.dll" alias "mcisendstringa"(byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long,byval hwndcallback as long) as long
private sub form-load ()
dim x
x= mcisendstring ("play e:\mpegav\music01.dat",0&,0,0)
end sub
按f5运行程序也自动播放vcd。
再给出一个小程序,运行时它能自动播放您的cd音乐,然后将控制权还给vb应用程序,但不影响计算机的其它操作(当然您的cd-rom中要有cd才行!)。在声明中加入如下代码:
private declare function mcisendstring lib "winmmm.dll" alias "mcisendstringa"(byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long, byval hwndcallback as long) as long
private sub form-load ()
s$="play cdaudioa’
x&= mcisendstring (s$,0&,0,0)
end sub
上述程序在中文windows 95 osr2、Visual Basic中文专业版下调试通过。
多媒体是明天计算机的核心。极好的声音效果和音乐、完全的运动视频和动画给我们所需的信息带来了生机和活力,很难相信没有图像、声音和动画的程序是完美的。通过上面的讨论,我们会由衷地叹服:在visual basic中控制各种多媒体设备是多么地轻而易举,简直是信手拈来!