VB WMP控件 如何获取正在播放的视频的大小

来源：百度知道 编辑：UC知道 时间：2024/06/15 02:10:49
VB的WINDOWS MEDIA PLAYER控件,如何侦测正在播放的视频文件的尺寸?(也可以是获取指定地址的视频文件的尺寸)
为什么说
Dim W As Integer
W = WindowsMediaPlayer1.currentMedia.imageSourceWidth
最后一句"对象变量或WITH变量未设置"

答案补充：在我这里没有出现这种情况。你把全部代码发上来看一下。“最后一句”指那一句？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
文件名自己修改。建一个WindowsMediaPlayer1,Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
MsgBox "高度为：" & WindowsMediaPlayer1.currentMedia.imageSourceHeight & vbCrLf & "宽度为：" & WindowsMediaPlayer1.currentMedia.imageSourceWidth
End Sub

Private Sub Form_Load()
WindowsMediaPlayer1.URL = "D:\a.wmv"
End Sub