Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Dim s As String = My.Resources.ExitHint
If (MsgBox(s, MsgBoxStyle.YesNo) = MsgBoxResult.No) Then e.Cancel = True End If End Sub
'更多vb.net源代码和实例,请关注乐博网lob.cn
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Icon = My.Resources.Icon1 End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.Audio.Play(My.Resources.ding, AudioPlayMode.Background) End Sub End Class