Error en tiempo de ejecución 438
Publicado por Xavi (19 intervenciones) el 02/02/2019 12:02:40
Buenos días,
me da este error cuando intento que un objeto mediaplayer (en este caso una pequeña ventana que muestra un video de un trailer de una película) no sea visible.
El código es el siguiente:
Alguna sugerencia para que el objeo player2 no sea visible, Como curiosidad os digo que el comando
sí que lo hace visible sin ningún error.
Gracias
Xavi
me da este error cuando intento que un objeto mediaplayer (en este caso una pequeña ventana que muestra un video de un trailer de una película) no sea visible.
El código es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Player2.Object.Controls.Stop
Etiqueta47.Visible = False
Etiqueta46.Visible = True
Player3.Object.Controls.Play
directori_mp3 = "C:\Cine\Mp3\"
fitxer_mp3 = directori_mp3 & Limpiar(DVD.Value) & ".*"
valor_fitxer_mp3 = Dir(fitxer_mp3)
If valor_fitxer_mp3 <> "" Then
Etiqueta48.Visible = True
Else
Etiqueta48.Visible = False
End If
Etiqueta49.Visible = False
Player2.Visible = False --> Aquí es donde da el error!!!!!
Alguna sugerencia para que el objeo player2 no sea visible, Como curiosidad os digo que el comando
1
Player2.Visible = Visible
Gracias
Xavi
Valora esta pregunta
0