如何全屏播放avi动画文件
编号：QA001084
建立日期: 1999年5月30日 最后修改日期：1999年5月30日
所属类别：
lauyh:
VB
Win98
如何用Mci或api全屏播放avi动画文件？
回答:
使用下面的语句：
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
Sub Command1_Click()
'// --- Modify FILE_TO_OPEN constant as appropriate ---
Const FILE_TO_OPEN = "C:\winnt\clock.avi"
Dim strCmdStr As String
Dim lngReturnVal As Long
strCmdStr = "play " & FILE_TO_OPEN & " fullscreen "
lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)
End Sub
此问题由李海回答。
| |
|
|
| |
|
|
