# 一个小疑问?

Posted by Weng on October 09, 1999 at 12:38:59:

请问有人教我放AVI的档案,他叫我在程式模组里设定
Public Const WS_CHILD = &H40000000
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
然后在按纽里设定
CmdString$ = ("open C:\1.avi type AVIVideo alias Animation parent" + Str$(Form1.hWnd) + "style" + Str$(WS_CHILD))
Ret& = mciSendString(CmdString$, 0&, 0, 0)
Ret& = mciSendString("put Animation window at 1 1 320 240", 0&, 0, 0)
Ret& = mciSendString("play Animation wait", 0&, 0, 0)
Ret& = mciSendString("close Animation", 0&, 0, 0)
可是我 run之后却什么东西都没有.....请问是为何?bow

Follow Ups: