blueye89 Ответов: 0

Звук щелчка мыши и наведения курсора мыши

Привет всем,
У меня есть две кнопки:
1. Запустите кнопку System Asterisk Sound, которая воспроизводит звук system asterisk:
Private Sub btnSystemAsteriskSound_Click(sender As Object, e As EventArgs) Handles btnSystemAsteriskSound.Click
        My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Asterisk)
    End Sub

2. MyButton-это кнопка, которая имеет два события:
Private Sub btnMyButton_MouseEnter(sender As Object, e As EventArgs) Handles btnMyButton.MouseEnter
        My.Computer.Audio.Play(My.Resources.High1, AudioPlayMode.Background)
    End Sub

    Private Sub btnMyButton_MouseDown(sender As Object, e As MouseEventArgs) Handles btnMyButton.MouseDown
        If e.Button = MouseButtons.Left Then
            My.Computer.Audio.Play(My.Resources.Click1, AudioPlayMode.Background)
        Else
        End If
    End Sub

Если я нажимаю на кнопку Asterisk непосредственно перед наведением мыши и щелчком MyButton, я отчетливо слышу наведение мыши и щелчок, но в конце воспроизведения звука кнопки Asterisk я слышу что-то, но в фоновом режиме, и это слишком тихо, даже если мои звуковые динамики включены на 100%. Я понимаю, что мои события работают только в том случае, если есть фоновый звук, который стоит за нажатием кнопки Asterisk.
Если я просто нажму или наведу курсор мыши на кнопку MyButton, не нажимая предварительно на кнопку Asterisk, она не будет работать правильно-звук слишком тихий.

Как решить эту проблему, даже если нет фонового звука или музыки, наведение курсора мыши и щелчки по кнопке MyButton должны испускать определенный звук, который я установил.

Предварительный просмотр моей формы:
https://s2.postimg.org/im0k27zrt/Capture.png

Что я уже пробовал:

Private Sub btnMyButton_MouseEnter(sender As Object, e As EventArgs) Handles btnMyButton.MouseEnter
    My.Computer.Audio.Play(My.Resources.High1, AudioPlayMode.Background)
End Sub

Private Sub btnMyButton_MouseDown(sender As Object, e As MouseEventArgs) Handles btnMyButton.MouseDown
    If e.Button = MouseButtons.Left Then
        My.Computer.Audio.Play(My.Resources.Click1, AudioPlayMode.Background)
    Else
    End If
End Sub

Private Sub btnSystemAsteriskSound_Click(sender As Object, e As EventArgs) Handles btnSystemAsteriskSound.Click
    My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Asterisk)
End Sub

0 Ответов