如何全屏播放avi动画文件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 16 行

使 用 下 面 的 语 句 ： 
    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 
<END>