play.Enabled = True

stop1.Enabled = True

'设置按钮的状态

str1 = mciSendString("info avi product", returnstr, 128, 0)

'取得播放视频的设备名称

Label1.Caption = returnstr

'显示播放视频的设备名称

Label2.Caption = CommonDialog1.FileName

'显示文件的路径和文件名

mciExecute ("cue avi to 0")

'显示视频的静桢画面

flag = True

'设置标志

End Sub

Private Sub play_Click()

mciExecute "play avi"

'播放AVI视频

End Sub

Private Sub stop1_Click()

mciExecute "pause avi"

'暂停播放

End Sub

9.4  小  结

本章着重介绍了在Visual Basic 中对Windows的API函数进行调用的方法。重点是介绍API函数对图像、声音以及视频的处理方法，虽然不必调用Windows的API函数也可以实现一些多媒体程序，但是还是有一些功能单凭Visual Basic 的内部控件是办不到的，这就需要调用API函数来实现。所以说，API函数实际上是对Visual Basic 内部功能的一种完善。

最后需要说明的是，API函数的领域实际是比较广的，它可以应用于各种Windows程序开发软件中，比如Visual C++、Borland Dephi等。本章所介绍的API知识仅局限于Visual Basic中最常用的一些领域，其实API的使用还是非常值得研究的，在这方面有兴趣的读者可以参考有关API函数专用开发手册。