Imprimir Página - Sonido al Pasar el Mouse

Título: Sonido al Pasar el Mouse
Publicado por: Cj2009z en 22 Junio 2007, 05:46 am

Hola como estan, tengo una aplicación que al pasar el mouse por los determinados label, me reproduce un sonido en el evento "mousemove", pero el problema es que cada vez que lo muevo es decir, por una milesima que lo mueva, me reproduce el sonido y yo quisiera que solo una vez me lo reproduciera, espero que me puedan ayudar.

Título: Re: Sonido al Pasar el Mouse
Publicado por: ~~ en 22 Junio 2007, 13:08 pm

utiliza una variable booleana.

Me explico. Al pasar el mouse por encima del label haces una comprobacion:

Código:

if bool = true then ...

Ahora tienes q calcular cuanto tiempo dura el sonido. Cuando ese tiempo se acabe pones bool = false y ya esa :P
Si no te sale te pongo un source, pero vamos es muy simple...

Título: Re: Sonido al Pasar el Mouse
Publicado por: ranslsad en 22 Junio 2007, 18:28 pm

Yo aria lo siguiente:

aris lo mismo con el bolearn y cuando mueva el mouse por encima del form o otra cosa la musica se pare, es decir que solo suene cuando este encima del Label :)

Espero que te sirva la idea..

Salu2

Ranslsad

Título: Re: Sonido al Pasar el Mouse
Publicado por: WHK en 22 Junio 2007, 18:29 pm

Citar

ole1.action = 7

talves pueda servir.

Título: Re: Sonido al Pasar el Mouse
Publicado por: Cj2009z en 23 Junio 2007, 00:59 am

Pues veran que la cosa yo la tengo asi:

en un modulo tengo declarado esto:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

y para reproducir el sonido esto, en el evento mousemove del label:

dim a as long
a = sndPlaySound("C:\Sonidos\clic.wav", 1)

esperoque sirva de algo..... gracias por responder.

Título: Re: Sonido al Pasar el Mouse
Publicado por: ranslsad en 23 Junio 2007, 15:38 pm

Pues ya que as puesto el codigo que usas, te pongo como "podrias" usarlo:

En el Modulo:

Código:

Public musiconoff As Boolean
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

En el Form:

Código:

Private Sub Form_Load()
musiconoff = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
musiconoff = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If musiconoff = False Then
Dim a As Long
a = sndPlaySound("C:\Sonidos\clic.wav", 1)
musiconoff = True
Else
musiconoff = False
End If
End Sub

Bueno creo que ya sabes que lleva un label :)

Salu2

Ranslsad

Título: Re: Sonido al Pasar el Mouse
Publicado por: Cj2009z en 2 Agosto 2007, 06:05 am

Gracias por respondes, funciono a la perfección gracias.

Título: Re: Sonido al Pasar el Mouse
Publicado por: ranslsad en 2 Agosto 2007, 13:05 pm

De nada para eso estamos :D
haber si algun dia tu alludas a otro.

Salu2

Ranslsad

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Cj2009z en 22 Junio 2007, 05:46 am