MovieGetState

Синтаксис

Function MovieGetState(ByVal Movie As Integer,ByVal msTimeout As Integer=-1) As Integer

Описание

Получает , определенное пользователем, состояние работы видео: ПАУЗА, СТОП, ИГРА Важно! При достижении последнего кадра видео, видео не переходит автоматически в состояние СТОП Поэтому возвращаемое значение будет ИГРА . Функция возвращает эти положения в виде трех цифр:
0 - СТОП
1 - ПАУЗА
2 - ИГРА

Параметры

Movie - хендл видео, загруженный с помощью LoadMovie

msTimeout - время ожидания для получения состояния работы видео. По умолчанию бесконечно

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"1.avi",100,100,320,240)
PlayMovie(Movie)
Do
  If GetAsyncKeyState(&h1B)<0 Then Exit do
  'если клавиша ESC нажата, то конец программы
  If GetAsyncKeyState(&h20)<0 Then 'если  клавиша ПРОБЕЛ нажата
     If MovieGetState(Movie)=2 Then
        PauseMovie(Movie): Sleep(500)  'Пауза
     ElseIf MovieGetState(Movie)=1 Then PlayMovie(Movie): Sleep(500)  'Играть
     EndIf
  EndIf
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Easy EPub and documentation editor