如何在VB中插入音频、视频

工程→控件→WindowsMediaPlayer
引用后左边控件列表中会多出一个东西，点它，在屏幕上画个框，MediaPlayer就到屏幕上啦
接下来，制作文件打开工具
放置
drive1
dir1
file1
三个控件。把file1的pattern属性设为*.wma
然后写入如下代码
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
End Sub

URL是文件的路径，你也可以抛弃那三个控件，直接指定一个文件
至于视频嘛，也一样，可以放一个command1 caption属性设为"视频"
Private Sub Command1_Click()
File1.pattern="*.avi"
End Sub
为了能改回来，放一个command2 caption属性设为"音频"
Private Sub Command2_Click()
File1.pattern="*.wma"
End Sub
附加：全屏法：
放一个command3 caption属性设为"全屏"
Private Sub Command3_Click()
WindowsMediaPlayer1.FullScreen
End Sub

插入WindowsMediaPlayer控件可以播放电影之类的

部件-》可插入对象中有

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "功夫无敌A.rmvb"
End Sub

可以使用windows media player 控件，通过这个控件就可以插入你要播放的视频、音频