Visual Basic.NET - Insertar Sonido en vb2003

 
Vista:

Insertar Sonido en vb2003

Publicado por tekos (1 intervención) el 10/10/2006 05:30:13
Hola a todos, ¿como inserto un sonido de cualquier formato a un formulario vb2003 y activarlo cuando de click en un boton? graciasss por cualquier colaboracion
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

RE:Insertar Sonido en vb2003

Publicado por Harold (411 intervenciones) el 10/10/2006 13:20:42
te permite reproducir un archivo wav

My.Computer.Audio.Play( _
"C:\WINDOWS\Media\Windows XP Logoff Sound.wav", _
AudioPlayMode.WaitToComplete)
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

RE:Insertar Sonido en vb2003

Publicado por Juan Luis (1 intervención) el 10/10/2006 18:44:32
En que parte del codigo de pone es que el my.computer no se reconoce....
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

Graciass por el codigo de Sonido

Publicado por tekos (411 intervenciones) el 11/10/2006 04:11:19
Gracias por el codigo para la inserccion de sonido en vb2003, pero no funciona.

Lo prove Asi:

Me.Computer.Audio.Play("c:\bateria.wav", AudioPlayMode.WaitToComplete)

pero de esta manera el control Computer no existe logicamente igual que AudioPlayMode, en ningun componenete esta. Lo que deseo es activar un sonido llamese el formato que sea que al dar click en un Boton se active.

si tenes el codigo el modo de hacerlo se le recomiendo graciassss,
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

RE:Insertar Sonido en vb2003

Publicado por QuetzaLNeT (41 intervenciones) el 20/11/2006 02:02:59
yo lo hice de esta manera y me funciono perfectamente espero sirva para alguien mas

Dim I As Integer
Dim exists As Boolean
exists = System.IO.File.Exists("aviso.wav")
If exists Then
Dim SoundInst As New sonidowav
For I = 1 To 100 ' Loop 100 times.
SoundInst.PlaySoundFile("aviso.wav")
Next I
End If
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