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:
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...
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
Citarole1.action = 7
talves pueda servir.
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.
Pues ya que as puesto el codigo que usas, te pongo como "podrias" usarlo:
En el Modulo:
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:
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
Gracias por respondes, funciono a la perfección gracias.
De nada para eso estamos :D
haber si algun dia tu alludas a otro.
Salu2
Ranslsad