MovieFullScreen

Синтаксис

Function MovieFullScreen(ByVal Movie As Integer,ByVal Mode As Integer) As Integer

Описание

Устанавливает или отменяет полноэкранный режим видео

Параметры

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

Mode - Режим просмотра( -1 -полноэкранный, 0 - нормальный)

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer full,Movie=LoadMovie(0,"1.wmv",100,100,0,0)
ResizeMovie(Movie,100,100,MovieSourseWidth(Movie),MovieSourseHeight(Movie))
PlayMovie(Movie)
Do
  If GetAsyncKeyState(&h1B)<0 Then Exit Do  'если клавиша ESC нажата, то конец программы
  If GetAsyncKeyState(&h20)<0 Then 'если клавиша Пробел нажата, то изменяем режим просмотра
     full=Not full
     MovieFullScreen(Movie,full)
     Sleep(500)
  EndIf
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Full featured EPub generator