Membuat Button Perubahan Warna pada Satu Form

Membuat Form dengan Visual Basic sangat mudah dilakukan. Bahkan dalam pembuatan sebuah project sederhana, programmer hanya perlu melakukan drag - drop saja. Dengan sedikit penambahan atribut tentunya.  Di sinilah kelebihan bahasa pemrograman Visual Basic. Sekedar iseng- iseng mempelajari bahasa pemrograman ini, saya membuat sebuah aplikasi sederhana. Karena sederhana sekali, aplikasi ini hanya ditujukan sebagai media pembelajaran saja. Aplikasi ini berupa sebuah form dengan tiga tombol yang bertuliskan nama- nama warna, merah, biru, dan kuning. Apa yang akan dilakukan oleh Form ini? Form ini akan menangkap event yang terjadi ketika salah satu button diklik dengan menampilkan label button mana yang telah diklik saat itu dan perubahan warna form ketika button diklik.
Pembuatannya cukup mudah, yaitu dengan terlebih dahulu mendesain form menjadi seperti ini.

Desain Form Utama

Lalu set tiap- tiap properties dari komponen form menjadi seperti ini.

Steps:

Properties Form1

Properties Button1 (Merah)

Properties Button2 (Biru)

Properties Button3 (Kuning)

Properties Button4 (Close)

Properties Label1

Dan kemudian tambahkan beberapa event pada masing - masing button, label dan form.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "Anda Menekan tombol Merah"
        Me.BackColor = Color.Red
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = "Anda Menekan tombol Biru"
        Me.BackColor = Color.Blue
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "Anda Menekan tombol Kuning"
        Me.BackColor = Color.Yellow
    End Sub

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Label1.Text = ""
        Me.BackColor = Color.Empty
    End Sub

    Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = ""
        Me.BackColor = Color.Empty
    End Sub

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
End Class 

Dan hasil akhirnya seperti ini.

Steps:

Tampilan awal

Ketika Button2 diklik

Ketika Button1 diklik

Ketika Button3 diklik

Bagi teman- teman yang membutuhkan sourcecode project dalam ekstensi *.sln, dapat di download di sini:

• 2shared
• 4shared 
• Mediafire

by Fadly Ndowo 12.43 0 Comments