用Visual Basic实现多画面播放功能
cord、save、resume、seek、set等等。)
怎么样？您的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中控制各种多媒体设备是多么地轻而易举，简直是信手拈来！
怎么样？您的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中控制各种多媒体设备是多么地轻而易举，简直是信手拈来！