10/09/2009, 07:31
|
 | | | 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
Se me está ocurriendo una razón para un error. Division by 0.
Si CurrentPosition es = 0 o la duración es menor que 10000, esta línea genera un error:
ActiveMovie1.CurrentPosition/int(Activemovie1.Duration/10000)
Ya que dividimos 0 entre un número en un caso y dividimos un número entre 0 en el segundo.
La solución sería en el primer caso, meter delante un "on error resume next" y al acabar "on error goto 0"
En el segundo caso tendrías que mirar primero si la duración es un valor menor de 10000 y usar ese valor como Slider.Max y haces que pase por las 2 líneas que escribí en primer lugar, y en caso de ser mayor de 10000, usas el "Slider.Max=10000" y le obligas a pasar por las 2 líneas más largas con los on error de antes y de después para el caso de position 0.
Creo que me he explicado. |