在用户窗体中播放视频
使用Windows Media Player控件可以在用户窗体中播放视频。
“Windows Media Player控件”并不是标准的ActiveX控件，使用时需要将其添加到控件工具箱中，即在控件工具箱中右击，从菜单中选择“附加控件”，在“附加控件”对话框中找到“Windows Media Player控件”并选中其前面的复选框，此时可以看到“Windows Media Player控件”已添加到控件工具箱中。
1、在用户窗体中添加一个“Windows Media Player控件”、一个“标签”控件、一个“文字框”控件和两个“按钮”控件，如图1所示。
图1
2、命名各控件：将“Windows Media Player控件”命名为player，文字框控件命名为“playfilename”，两个按钮分别命名为“play”和“btnclose”，并将用户窗体标题改为“视频播放”。
3、在用户窗体代码模块中，输入下面的代码：
Private Sub play_Click()
With Application.FileDialog(msoFileDialogOpen)
.Show
If .SelectedItems.Count = 0 Then
MsgBox “没有选取任何文件.”
Else
playfilename.Text = .SelectedItems(1)
End If
End With
Player.URL = playfilename.Text
End Sub
Private Sub btnclose_Click()
Unload Me
End Sub
4、运行后，单击“播放”按钮，将弹出“打开文件”对话框，选择想要播放的视频文件后，该文件完整的路径和文件名将显示在文字框中，同时开始播放视频。
发表您的评论