求VB不拖放控件播放视频的方法（wmv格式）

来源：百度知道编辑：UC知道时间：2024/06/23 20:55:57

如题，需要用VB语言播放wmv格式的视频，但没有控件可用（在一个仿VB的IDE中），可以使用VB的所有关键字，没有Byte型数据，可以用API，就这样，高手帮忙，我的每个视频只有10S，多个视频循环播放，有小间隔，所以要精确控制视频启动和关闭，答案好再追加100分，多谢各位大侠
这些方法我都试过，不够精确，希望直接调用播放器的内核api进行播放，在代码中接收窗口句柄，播放缓冲，和播放结束的消息，自己处理这些消息

两种方法：
一、直接调用默认程序打开wmv文件进行播放：
1、声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
2、播放函数
'36-1 打开网页地址
Sub Openwmv(formhwnd As Long, Url As String)
ShellExecute formhwnd, vbNullString, Url, vbNullString, vbNullString, 1
End Sub

二、动态创建控件进行播放，比较简单
Private Sub Command1_Click()
Dim AoshiMP, MP
Set AoshiMP = Controls.Add("WMPlayer.OCX.7", "AoshiMP")
With AoshiMP
.Top = 20
.Left = 20
.Height = 300
.Width = 500
.Visible = True
End With
Set MP = AoshiMP.object
With MP
.uiMode = "none"
.stretchToFit = True
.Url = "在vb的控件拖放中的一句话的理解视频拖放的软件求VB中使PictureBox控件图像居中的方法 VB拖放事件的使用方法关于wmv格式不能拖放的疑问求VB 控件的使用求vb的文本控件求NOKIA7610,wmv视频播放软件 vb的Inet1控件的Openurl方法求视频WMV格式的.