Вопрос новичка:звук при наведении курсора

[Yuri_S]

Как можно проигровать определённый звуковой файл(например wav), когда курсор мыши наводится на label? Я знаю единственный способ-использовать Mouse move, но тогда звук проигрывается не только при наводе на label, но и при дальнейшем передвижении курсора по ней, тоесть получается целая "симфония", а это меня не устраивает......

[Urvin]

dim a as boolean

onMouseMove
if a = false playsound(...)
a=true

onFormMouseMove
a=false

[FaKk2]

dim a as boolean

onMouseMove
if a = false playsound(...)
a=true

onFormMouseMove
a=false

Это вообще не в тему. Ему надо ОДИН раз проиграть при наведении
ИМХО надо static вроде использовать...

[MEMBER]

Почему не в тему? Если надо проигрывать звук при каждом наведении на лейбл, то очень даже в тему.

[GoGosha]

Код: Выделить всё


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PlaySound
    Dim cursor As POINTAPI
   
    Do
        DoEvents
        GetCursorPos cursor
        If cursor.X < Command1.Left + Me.Left And cursor.Y < Me.Top + Command1.Top Or _
           cursor.X > Command1.Left + Me.Left + Command1.Width And cursor.Y > Me.Top + Command1.Top + Command1.Height Then
            Exit Do
        End If
    Loop
   
    StopPlaySound
End Sub


Где PlaySound и StopPlaySound - это соответственно начало и конец проигрывания звука