Sonido al Pasar el Mouse

[Cj2009z]

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.

[~~]

utiliza una variable booleana.

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

Código [Seleccionar] Expandir

if bool = true then ...

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

[ranslsad]

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

[WHK]

ole1.action = 7

talves pueda servir.

[Cj2009z]

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.

[ranslsad]

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

En el Modulo:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

[Cj2009z]

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

[ranslsad]

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

Salu2

Ranslsad