关于mediaplay播放全屏播放的问题

[chaoren119119]

为什么老是出现
实时错误‘-2147467259（80004005）’
对象'FullScreen'的方法‘IWMPPLayer4’失败

但有时候又是好的，为什么

[BlueBeer]

只有在播放时才能全屏，否则出错

[goodname008]

用 mciSendScreen 函数加MCI指令集。
在用play指令播放时加上fullscreen。

[chaoren119119]

我用的MEDIAPLAY9
没有PLAY的指令
而且我是在播放时出现的错误

[BlueBeer]

我说过啦，WMP控件只能在播放时设置全屏，否则就会出你那种错

[goodname008]

' 全屏播放 c:\123.avi
' 文件名楼主可以改一下。

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
mciSendString "close avi", 0, 0, 0
mciSendString "open c:\123.avi alias avi", 0, 0, 0
mciSendString "play avi fullscreen", 0, 0, 0
End Sub

[BlueBeer]

或者你帖点代码出来吧，尤其是出错的地方

[goodname008]

你是用控件播放吗？

[starsoulxp]

使用Windows 应用程序编程接口（API）的mciSendString函数可以实现

对AVI文件的播放。

样例程序

下面的样例程序将满屏播放位于C盘根目录下的test.avi文件。你可以

将你的Windows 95 CDROM中的某些AVI文件改名并拷贝到C盘根目录下以

播放它。


1.在Visual Basic中开始一个新的项目，采用缺省的方法建立Form1。


2.将如下的声明语句添加到Form1的通用声明部分中（注意每个声明语句

?需要被书写在一行内）：

Private Declare Function mciSendString Lib "winmm.dll" Alias _

"mciSendStringA" (ByVal lpstrCommand As String, ByVal _

lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _

hwndCallback As Long) As Long


3.在Form1上添加一个命令按钮控件，采用缺省的方法建立Command1。

将它的Caption属性设置为“播放文件”。


4.将如下的代码添加到Command1的单击事件中：


Private Sub Command1_Click()

CmdStr$ = "play c:\test.avi fullscreen "

ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)

End Sub
通过按下F5键来执行样例程序。单击播放命令按钮，可以在满屏方式下播放AVI文件。