ResizeMovie

ResizeMovie

ResizeMovie(Movie,x,y,width,Height)

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

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

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

Пример:

#Include "window9.bi"
Dim As Integer Movie=LoadMovie(0,"Кин_дза_дза.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)

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease