Membuat Aplikasi Teks Warna Secara Otomatis di VB.Net 2008

Hallo Para READER

Kali ini ane akan membuat sebuah Form Sederhana untuk membuat teks berwarna secara otomatis di VB.Net 2008

Yok Langsung aja kita beraksi

Langkah Pertama:
Buatlah Form Desing User Interface menggunakan Visual Basic 2008 seperti gambar di bawah ini
dan masukan atribut-atributnya seperti:
1. TEXTBOX
2. LABEL
3. BUTTON
4. RADIO BUTTON

Langkah Kedua:
Double klik pada textbox lalu ketikan script dibawah ini

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
            Label2.Text = TextBox1.Text
        End If
End Sub

Arti dari script diatas adalah teks masukan akan dibuat otomatis tanpa harus membuat button "Tampil" (Prosesnya masih Manual)

Langkah Ketiga:
Double klik pada button hapus lalu ketikan script dibawah ini

Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        TextBox1.Text = ""
        Label2.Text = ""
        TextBox1.Focus()
End Sub

Arti dari script diatas adalah fungsi dari tombol hapus dimana setelah inputan dari textbox sudah muncul di label maka akan dihapus semua melalui tombol hapus dan secara otomatis kursor sudah berada di textbox ketika proses hapus sudah dilakukan

Langkah Keempat:
Double klik pada radiobutton lalu ketikan script dibawah ini

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label2.ForeColor = Color.Red
End Sub

• Arti dari script diatas adalah untuk membuat teks label menjadi warna merah

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label2.ForeColor = Color.Blue
End Sub

• Arti dari script diatas adalah untuk membuat teks label menjadi warna biru

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Label2.ForeColor = Color.Green
End Sub

• Arti dari script diatas adalah untuk membuat teks label menjadi warna hijau

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Label2.ForeColor = Color.Yellow
End Sub

• Arti dari script diatas adalah untuk membuat teks label menjadi warna kuning

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        Label2.ForeColor = Color.Pink
End Sub

• Arti dari script diatas adalah untuk membuat teks label menjadi warna merah muda

Langkah Terakhir:
Double klik pada button keluar lalu ketikan script dibawah ini

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
End Sub

Arti dari script diatas adalah untuk mengeluarkan program secara otomatis

Sekian dari ane semoga bermanfaat 

Author: lubangkoyopanas