Stap 3: Code
Kopieer deze code en plak deze in de oplossing die kan worden gevonden door met de rechtermuisknop op Form1.vb en code weergeven te selecteren.
Public Class Form1
Private Sub cheese_Click (ByVal sender As System.Object, ByVal e als System.EventArgs) verwerkt PictureBox1.Click
PictureBox1.Load ("[waar het bestand cheese1 zich bevindt]")
My.Computer.Audio.Play ("[File waar nom.wav zich bevindt]", _
AudioPlayMode.Background)
End Sub
Einde klasse
Uw code ziet er nu als volgt uit:
