ResizeMovie

Синтаксис

Function ResizeMovie(ByVal Movie As Integer,ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As integer) As Integer

Описание

Изменяет расположение и(или) размеры видеоокна ( НЕ ОКНА_РОДИТЕЛЯ! )

Параметры

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

x,y,w,h - новое расположение и размеры

Платформы

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 ResizeMovie(Movie,0,0,640,480)'если  клавиша ПРОБЕЛ нажата,меняем размеры окна
Loop
FreeMovie(Movie)

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle