martes, 13 de abril de 2010

Control MovieBox

MovieBox

Free Image Hosting at www.ImageShack.us


Este control sirve para mostrar animaciones de tipo gif o mng !

Algunas de sus propiedades mas usadas son:

Border


Especifica si desea ponerle borde al control control escogiendo que tipo de borde desea, existen cuatro tipo de bordes las cuales son:
Etched
Plain
Raised
Sunken


Height


Contiene el alto del control es decir su tamaño vertical.

Mouse

Contiene una lista de tipos de punteros para que al estar arriba del control el puntero cambie según el puntero que elija.

Path

Define la ruta donde esta la animación gif o mng.

Playing

Define si la película se reproducirá automáticamente o no. El valor por defecto es FALSE “No se reproducirá automáticamente y TRUE “Significa que la animación se reproducirá automáticamente”

ToolTip

Se utiliza para mostrar un mensaje cuando el mouse este situado arriba del control.

Visible

Especifica si el control sera visible “true” o invisible “false”

Width

Especifica el Ancho del control

X

Posición en el eje de las X del formulario

Y

Posición en el eje de las Y del Formulario

Mas información sobre MovieBox

Ejemplo

1) Se creo un MovieBox y se le cargo una imagen gif “Path = imagen.gif” “Se puede buscar en google” y se le cambio la propiedad playing a TRUE. Quedando de esta manera

Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


Free Image Hosting at www.ImageShack.us


En realidad debería de haber quedado de esta manera


Ejemplo 2
Se creo una MovieBox y un Button y al pulsar el botón se le cargara la animación gif y reproducirá la animación.

Free Image Hosting at www.ImageShack.us

Código del Button

PUBLIC SUB Button1_Click()
'Ruta de la imagen Gif en este caso esta en el mismo directorio del proyecto
MovieBox1.Path = "2qkl3t5.gif"
'Cambia la propiedad Playing de False a True para que se reproduzca
MovieBox1.Playing = TRUE
END

Al pulsar el Botón se reproducirá la imagen gif

Descargar Ejemplo

4 comentarios:

Anónimo dijo...

hola eto esta muy bueno pero necesito los codigo de los botones para retroceder y adelantar videos

José A. Chen Tuñon dijo...

Este es el código para retroceder
MovieBox1.Rewind()

Y para adelantar te la debo..!! Creo que no existe la propiedad para adelantar el vídeo, solo para comenzar.

Saludos

Anónimo dijo...

xfa ayuda tengo 1 gif pequeño y al hacer l moviebox mas grande no encuentro como expandir el gif al tamaño del moviebox... help

Anónimo dijo...

Copia y pega de estos Blog... nada original ni complejo..

Publicar un comentario