Bei Mausklick Ton

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von jann1k.

    Bei Mausklick Ton

    Hallo,

    ich suche einen Code dafür das wenn ich auf die Rechtemaustaste drücke ein Ton abgespielt wird, den Ton hab ich schon als Ressource hinzugefügt nun weiß ich aber nicht wie der Code dafür ist... Wäre nett wenn ihr mir helfen könnt.

    MFG

    Jannik


    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1Dim x, y, a, b, Zahl, Zhler As Integer
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. a += 0
    7. b += 0Me.SetBounds(x, y, 700, 700)Label3.Location = New Point(a, b)
    8. Zhler = 0
    9. Randomize()
    10. Timer1.Enabled = True
    11. Timer2.Enabled = True
    12. Timer1.Interval = 1000
    13. Timer2.Interval = 1000
    14. Zahl = 0
    15. Label1.Visible = True
    16. Label1.Enabled = True
    17. Label2.Visible = False
    18. Button1.Visible = False
    19. Button2.Visible = False
    20. Button3.Visible = False
    21. Button4.Visible = False
    22. End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    23. Timer1.Enabled = False
    24. Timer2.Enabled = False
    25. Label1.Visible = False
    26. Label1.Enabled = False
    27. End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    28. End
    29. End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    30. Form2.Visible = True
    31. End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    32. x = Int(Rnd() * 500)
    33. y = Int(Rnd() * 500)
    34. Label1.SetBounds(x, y, 100, 100)
    35. End SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    36. Zhler = Zhler + 1
    37. If Zhler = 10 Then
    38. Timer1.Enabled = False
    39. Label2.Visible = True
    40. Label1.Enabled = False
    41. Label1.Visible = False
    42. Button1.Visible = True
    43. Button2.Visible = True
    44. Button3.Visible = True
    45. Button4.Visible = True
    46. End If
    47. End SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    48. Zahl = Zahl + 1
    49. Label3.Text = Zahl
    51. End SubPrivate Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    52. End SubPrivate Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
    53. End SubPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    54. If Me.Enabled ThenMy.Computer.Audio.Play(My.Resources.WR_fire, AudioPlayMode.Background)
    55. End If
    56. End SubPrivate Sub Label1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
    57. If Label1.Enabled = True ThenMy.Computer.Audio.Play(My.Resources.WR_fire, AudioPlayMode.Background)
    58. My.Computer.Audio.Play(My.Resources.WR_f_hit01, AudioPlayMode.Background)
    59. End IfEnd Sub
    60. End Class


    ^
    dass war jetzt der Code vom ganzen (was nicht heisen soll das das Programm schon fertig ist) Programm
    unten steht der Code mit Mouseklick.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jann1k“ ()