Saturday, June 23, 2012

Make Your Computer Beep With Visual Basic 2008

 Design
Testing Project

You will need the following:
* 1 Button (Button Has a Hover effect that changes "Click Me!!" to ": D " when hover mouse)


Program Codes :

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.Beep()
    End Sub

    Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
        Button1.Text = ":D"
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.Text = "Click Me!!"
    End Sub
End Class

1 comment: