DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Mouse Over Sound Event

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jul 2008

Posts: 5

Reputation: splitfinity is an unknown quantity at this point

Solved Threads: 0

splitfinity splitfinity is offline

Offline

Newbie Poster

Mouse Over Sound Event

Jul 23rd, 2008

Hi guys.

Im trying to get a wav file to play on a mouse over event.
I want a wavefile to play when the mouse pointer moves over a label and stop wen it is moved off the label.

I believe this can be done using the sndPlaySound, i have tried and the wav does play, but i need it to stop if the mouse is not on the label.

Thanks in advance.

•

Join Date: Jan 2008

Posts: 65

Reputation: bushman_222 is an unknown quantity at this point

Solved Threads: 4

bushman_222 bushman_222 is offline

Offline

Junior Poster in Training

Re: Mouse Over Sound Event

Jul 23rd, 2008

I don't know if this is very effective.

My theory is that if the label detects a mouse_move event then it starts playing. when the mouse moves anywhere else on the form, then stops playing.

So maybe add a mouse_move event on the form it self to stop the music playing

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print "stop playing"
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print "play"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print "stop playing"
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print "play"
End Sub

Last edited by bushman_222; Jul 23rd, 2008 at 11:03 am.

•

Join Date: Jul 2008

Posts: 5

Reputation: splitfinity is an unknown quantity at this point

Solved Threads: 0

splitfinity splitfinity is offline

Offline

Newbie Poster

Re: Mouse Over Sound Event

Jul 23rd, 2008

Hi, thanks for reply, but it seems to be working when i added the ffg:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sndPlaySound vbNullString, SND_NODEFAULT
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sndPlaySound vbNullString, SND_NODEFAULT
End Sub