【 tulaoshi.com - 编程语言 】
                             
                            声明:
  DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength
  AsLong,ByValhwndCallbackAsLong)AsLong
  代码:
  DimreturnstringAsString
  FileNameAsString
  returnstring=Space(127)
  FileName="C:A1.avi"
  erg=mciSendString("open"&Chr$(34)&FileName&Chr$(34)&"typeavivideoaliasvideo",returnstring,127,0)
  erg=mciSendString("setvideotimeformatms",returnstring,127,0)
  erg=mciSendString("playvideofrom0",returnstring,127,0)
  '记着关闭!
  erg=mciSendString("closevideo",returnstring,127,0)->