VB中多媒体五种控制手段
单的操作特点，而又可以进行较细致的操作控制和较高的运行速度，适合于大部分场合的多媒体程序设计。
---- 三、API函数控制方法
---- 在VB中要实现更复杂的控制则必须依靠WINDOWS的API 函数,高级的多媒体程序设计同样也离不开WINDOWS API函数的参与,调用API函数之前必须对所要用的函数进行说明, 可通过"API TEXTVIEWER"程序直接拷贝。在多媒体程序设计中常用的API函数如下:
---- mciExecute():这是一个最简单的函数,只有一个参数即MCI指令字符串, 当出现错误时将自动弹出对话框;
---- mciSendString():功能上与上面的函数相同, 但它可以传送相应的信息给应用程序, 使用时需要四个参数, 第一个是MCI命令字符串, 第二个是缓冲区,第三个是缓冲区长度, 第四个在VB中可恒置为0;
---- mciGetErrorString():说明上一个命令所传回的错误代码所表示的意义;
---- Parse():处理所传送回来的文字信息, 一般可通过VB 的instr函数配合搜索指定的字符串;
---- 下面的代码对TEST.WAV文件分别进行打开、播放、停止、关闭等控制:
i=mciExecute("open "test.wav" alias sound")
i=mciExecute("play sound")
i=mciExecute("stop sound")
i=mciExecute("close sound")
---- 还存在一个专用的多媒体控制函数,就是SndPlaySound(), 此函数是一个可独立播放WAV 语音文件的函数, 使用相对来说较为简单,下面的例子可直接播放TEST.WAV文件:
i=SndPlaySound("test.wav",1)
---- 在实际应用中, 还涉及很多具体的编程细节, 比如播放进度的显示、播放进度的改变、视频播放的窗口控制、播放界面的设计等等，由于API 函数具有VB本身所不具有的优越性, 所以用此方法可编制出具有高水准的多媒体控制程序及专业程序。
---- 四、MCIWnd控件方法
---- 在VB5.0中还存在一个MCIWnd控件,此控件也可实现多媒体的简单控制, 使用很方便, 具体方法, 通过"工程"菜单的"部件"项打开选择窗口, 选中其中的"MCIWndX Control" 项, 之后在部件箱中即出现一个电影胶片式的图标, 在窗体中安放此控件, 之后可通过属性窗口指定媒体对象, 也可用程序代码实现, 比如在下面的事件中输入如下代码:
Private Sub Form_Load()
MCIWnd1.filename = "d:\mpg\98.mpg"
MCIWnd1.Command = "open"
MCIWnd1.Command = "play"
End Sub
---- 程序运行之后即可直接播放98.MPG文件, 如果省略其中的 "PLAY"命令, 则运行之后不播放但可通过下面的控制按钮进行播放, 并且可通过进度条调整进度, 此控件还有一些常用属性可用, 比如:
Volume:控制声音输出的音量;
AutosizeWindow:是否自动调整窗口大小;
AutosizeMovie:是否自动调整播放图像的大小;
repeat :是否重绕;
playbar:是否显示控制条;
---- 此方法具有操作简单、运行速度快的特点, 但其控制手段太少, 不适合编制专用的多媒体播放程序, 但对于一些要求不高的场合, 比如在程序嵌入活动图像等非常适合。
---- 五、ActiveMovie控件方法
---- ActiveMovie是微软公司开发的活动图像播放程序,如果系统中正确安装了此程序, 则即提供ActiveMovie控件, 使用前也必须通过"部件"选择窗口选定此控件, 此控件的使用更为简单, 只要在窗体中安放一个此控件, 然后通过属性窗口或程序代码指定一个移动图像文件, 比如:
Private Sub Form_Load()
ActiveMovie1.filename = "d:\mpg\98.mpg"
End Sub
---- 运行程序之后即可通过其控制条进行播放控制, 其使用方法就和使用其原来的ActiveMovie一样,如果想使其运行之后自动播放, 则需要使用置其ActiveMovie1.AutoStart属性为"True", 但此属性只能在窗口中进行调整, 不能
---- 三、API函数控制方法
---- 在VB中要实现更复杂的控制则必须依靠WINDOWS的API 函数,高级的多媒体程序设计同样也离不开WINDOWS API函数的参与,调用API函数之前必须对所要用的函数进行说明, 可通过"API TEXTVIEWER"程序直接拷贝。在多媒体程序设计中常用的API函数如下:
---- mciExecute():这是一个最简单的函数,只有一个参数即MCI指令字符串, 当出现错误时将自动弹出对话框;
---- mciSendString():功能上与上面的函数相同, 但它可以传送相应的信息给应用程序, 使用时需要四个参数, 第一个是MCI命令字符串, 第二个是缓冲区,第三个是缓冲区长度, 第四个在VB中可恒置为0;
---- mciGetErrorString():说明上一个命令所传回的错误代码所表示的意义;
---- Parse():处理所传送回来的文字信息, 一般可通过VB 的instr函数配合搜索指定的字符串;
---- 下面的代码对TEST.WAV文件分别进行打开、播放、停止、关闭等控制:
i=mciExecute("open "test.wav" alias sound")
i=mciExecute("play sound")
i=mciExecute("stop sound")
i=mciExecute("close sound")
---- 还存在一个专用的多媒体控制函数,就是SndPlaySound(), 此函数是一个可独立播放WAV 语音文件的函数, 使用相对来说较为简单,下面的例子可直接播放TEST.WAV文件:
i=SndPlaySound("test.wav",1)
---- 在实际应用中, 还涉及很多具体的编程细节, 比如播放进度的显示、播放进度的改变、视频播放的窗口控制、播放界面的设计等等，由于API 函数具有VB本身所不具有的优越性, 所以用此方法可编制出具有高水准的多媒体控制程序及专业程序。
---- 四、MCIWnd控件方法
---- 在VB5.0中还存在一个MCIWnd控件,此控件也可实现多媒体的简单控制, 使用很方便, 具体方法, 通过"工程"菜单的"部件"项打开选择窗口, 选中其中的"MCIWndX Control" 项, 之后在部件箱中即出现一个电影胶片式的图标, 在窗体中安放此控件, 之后可通过属性窗口指定媒体对象, 也可用程序代码实现, 比如在下面的事件中输入如下代码:
Private Sub Form_Load()
MCIWnd1.filename = "d:\mpg\98.mpg"
MCIWnd1.Command = "open"
MCIWnd1.Command = "play"
End Sub
---- 程序运行之后即可直接播放98.MPG文件, 如果省略其中的 "PLAY"命令, 则运行之后不播放但可通过下面的控制按钮进行播放, 并且可通过进度条调整进度, 此控件还有一些常用属性可用, 比如:
Volume:控制声音输出的音量;
AutosizeWindow:是否自动调整窗口大小;
AutosizeMovie:是否自动调整播放图像的大小;
repeat :是否重绕;
playbar:是否显示控制条;
---- 此方法具有操作简单、运行速度快的特点, 但其控制手段太少, 不适合编制专用的多媒体播放程序, 但对于一些要求不高的场合, 比如在程序嵌入活动图像等非常适合。
---- 五、ActiveMovie控件方法
---- ActiveMovie是微软公司开发的活动图像播放程序,如果系统中正确安装了此程序, 则即提供ActiveMovie控件, 使用前也必须通过"部件"选择窗口选定此控件, 此控件的使用更为简单, 只要在窗体中安放一个此控件, 然后通过属性窗口或程序代码指定一个移动图像文件, 比如:
Private Sub Form_Load()
ActiveMovie1.filename = "d:\mpg\98.mpg"
End Sub
---- 运行程序之后即可通过其控制条进行播放控制, 其使用方法就和使用其原来的ActiveMovie一样,如果想使其运行之后自动播放, 则需要使用置其ActiveMovie1.AutoStart属性为"True", 但此属性只能在窗口中进行调整, 不能