MovieSetPositions

Синтаксис

Function MovieSetPositions(ByVal Movie As Integer,ByVal Rnew As LongInt,ByVal Rend As LongInt,ByVal flagNew As Integer=1,ByVal flagEnd As Integer=1) As Integer

Описание

Устанавливает текущую и конечную позицию проигрываемого видео

Параметры

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

Rnew - новая стартовая позиция

Rend - новая конечная позиция

flagNew и flagEnd - флаг, (по умолчанию AM_SEEKING_AbsolutePositioning= 1). Не думаю, что кому-то понадобится менять флаги, но на всякий случай внес их в параметры, все флаги описаны ЗДЕСЬ

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"C:\Users\Public\Videos\Sample Videos\Wildlife.wmv",100,100,320,240)
PlayMovie(Movie)
Do
If GetAsyncKeyState(&h1B)<0 Then Exit do
'если клавиша ESC нажата, то конец программы
If GetAsyncKeyState(&h20)<0 Then MovieSetPositions(Movie,0,20000000)
'если клавиша ПРОБЕЛ нажата, то устанавливам диапазон проигрывания
If GetEndPosMovie(Movie)=MovieGetCurrentPosition(Movie) Then
Exit do
EndIf
Loop
FreeMovie(Movie)