-
Notifications
You must be signed in to change notification settings - Fork 6
/
Form1.vb
26 lines (20 loc) · 806 Bytes
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Play_Music()
End Sub
Private Sub Play_Music()
' Dim a As New Media.SoundPlayer
' a.SoundLocation = My.Resources.bgm
' a.PlayLooping()
My.Computer.Audio.Play(My.Resources.Resource1.bgm, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("现在才后悔?", 16, "哼")
MsgBox("为时已晚,亲!", 16, "哼")
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
End Class