Visual Basic - autoplay

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Julio Cesar

autoplay

Publicado por Julio Cesar (2 intervenciones) el 18/11/2016 23:52:33
Como hacer una lista de musica cargada en listbox y que se ejecute automaticamente al terminar de reproducir el anterior
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

autoplay

Publicado por Antoni Masana (190 intervenciones) el 21/11/2016 13:10:31
Con esto tienes la mitad del problema resuelto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Declare Function PlaySound Lib "winmm.dll" _
                Alias "PlaySoundA" (ByVal lpszName As String, _
                                    ByVal hModule As Long, _
                                    ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0        '(por defecto) Reproduce el sonido 'sincrónicamente
                            '.  Se interrumpe la ejecución de nuestro código hasta la finalización del sonido!!.
Const SND_ASYNC = &H1       ' Reproduce el sonido 'sincrónicamente'. El código continúa sin 
                            '   necesidad de que el sonido finalice.
Const SND_NODEFAULT = &H2   ' En caso no se encuntre el sonido determinado no reproduciría 
                            '   el sonido por defecto, es decir, no sonaría nada...
Const SND_LOOP = &H8        ' Se reproduce el sonido ininterrumpidamente hasta que se ejecute 
                            '   de nuevo la función.
Const SND_NOSTOP = &H10     ' El sonido no se para antes de reproducir el sonido especificado.
 
Const SND_APPLICATION = &H80
Const SND_ALIAS = &H10000
Const SND_ALIAS_ID = &H110000
Const SND_FILENAME As Long = &H20000
Const SND_MEMORY = &H4
Const SND_NOWAIT = &H2000
Const SND_PURGE = &H40
Const SND_RESOURCE = &H40004
 
Sub Beep()
    Call PlaySound("C:\Windows\Media\Tada.wav", SND_ASYNC, SND_ASYNC Or &H20000)
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar