SetRateMovie

Синтаксис

Function SetRateMovie(ByVal Movie As Integer,ByVal Rate As Double) As bool

Описание

Изменяет скорость воспроизведения видео

Параметры

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

Rate - новая скорость воспроизведения

Платформы

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
 SetRateMovie(Movie,GetRateMovie(Movie)+0.5)'если  клавиша ПРОБЕЛ нажата,меняем скорость
EndIf
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation