MovieAudioSetVolume

Синтаксис

Function MovieAudioSetVolume(ByVal Movie As Integer,ByVal Volume As Integer) As Integer

Описание

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

Параметры

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

Volume - Значение громкости может быть ( от -10000 до 0)

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer full,Volume,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 'если клавиша Пробел нажата,уменьшаем громкость
     Volume=MovieAudioGetVolume(Movie)
     If Volume>-10000 Then 'если будет меньше -10000 или больше 0 будет ошибка!
        MovieAudioSetVolume(Movie,Volume-1000)
        Sleep(200)
     endif
  EndIf
Loop
FreeMovie(Movie)

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