10/09/2009, 05:45
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
| Respuesta: Controlar slider y actualizar listbox
Los controles de un form se pueden usar desde otro form añadiendo delante el nombre del form del control:
List1.Additem Form1.Cadena
Si la cadena no es un control, debes declararla cono Public en el form1
Por otro lado, lo que tienes que hacer es poner en el evento Change del Slider:
ActiveMovie1.CurrentPosition=Slider1.Value
Y en el evento ActiveMovie1_PositionChange lo contrario:
Slider1.Value=ActiveMovie1.CurrentPosition
Pero lo primero es que tienes que cambiar el Max del Slider según la longitud del vídeo cargado, Activemovie1.Duration. Si Max no admite un valor tan alto, puedes ponerlo por ejemplo en 10000 y cambiar las líneas por algo como:
ActiveMovie1.CurrentPosition=Slider1.Value*int(Act ivemovie1.Duration/10000)
y
Slider1.Value=ActiveMovie1.CurrentPosition/int(Activemovie1.Duration/10000)
Creo que algo así debería servir.
Espero haber solucionado tus dudas.
Saludos |