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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

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