16 Jun 2016

Memberikan warna pada Label dengan ColorDialog

Tutorial ini akan membahas cara bemberikan warna pada Label dan memberikan warna pada background dengan menggunakan ColorDialog.dengan mengklik tombol (Button)akan memilih warna sesuai yang di inginkan, warna teks pada label akan berubah dan background akan berubah sesuai dengan kemauan anda. jika diklik ikuti langkah-langkab berikut.

Toolbox yang di butuhkan :

Toolbox Propertis Value
Label1 Text Label 1 
 " -- " Font -> Size28
Button1 Text Warna Teks
Button2 Text Warna Teks Background
ColorDialog1 - -
Langkah 1.
Masuk ke Visual Basic 2010 pilih menu File kemudian New Project. jika sudah tampil form New Project pilih menu Installed Templates pilihlah Visual Basic kemudian pilih Windows Form Aplication, kalau perlu pada Name rubahlah nama projectnya sesuai apa yang akan di buat. jika sudah selesai  pilih tombol Ok jika batal pilih Cancel. jika sulit dan tidak paham mengikuti langkah-langkahnya maka akan ditampilan gambar seperti di bawah ini.

Exported from Notepad++


Atau bisa juga seperti dibawah ini


Tahapan berikutnya 


jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2
Buat seperti tampilan ini. ukuran Label1 di Propertis, Font Size : 28

Langkah Berikutnya merubah nama pada Button1 dan Button2. jangan lupa ColorDialog1 ditambahkan. hasilnya akan seperti ini.


Langkah 3
Sekarang tinggal masukan codingnya.

ini adalah codingnya


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ColorDialog1.ShowDialog()
        Label1.BackColor = ColorDialog1.Color
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
        Label1.ForeColor = ColorDialog1.Color
    End Sub
End Class

Langkah4
Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard.  maka tampilan akan seperti ini.
 

Sesudah memilih warna.

Sekian dan terimakasih Semoga bermanfaat


Key;
vb 2010, visual basic 2010

Menyisipkan dan Menghapus Text ke dalam CheckListBox

Tutorial ini akan membahas cara menyisipkan teks di Textbox ke dalam  ChekListBox, jika sudah disisipkan akan berubah menjadi data pada ChekListBox. selain menyisipkan teks akan di tambah menghapus data pada Cheklistbox. ikuti langkah-langkab berikut.

Toolbox yang di butuhkan :

Toolbox Propertis Value
TextBox1 - -
CheckedListBox1 - -
Button1 Text Tambahkan
Button2 Text Hapus dipilih
Button3 Text Hapus Semua
Langkah 1.
Masuk ke Visual Basic 2010 pilih menu File kemudian New Project. jika sudah tampil form New Project pilih menu Installed Templates pilihlah Visual Basic kemudian pilih Windows Form Aplication, kalau perlu pada Name rubahlah nama projectnya sesuai apa yang akan di buat. jika sudah selesai  pilih tombol Ok jika batal pilih Cancel. jika sulit dan tidak paham mengikuti langkah-langkahnya maka akan ditampilan gambar seperti di bawah ini.

Exported from Notepad++

Atau bisa juga seperti dibawah ini


Tahapan berikutnya 


jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2
Buat seperti tampilan ini.

Langkah 3
Beri nama kegunaan pada setiap Button.

Langkah 4
Double Clik pada Button1 lalu isikan source code seperti gambar di bawah ini.


Ini adalah source code atau saya menyebutnya dengan coding

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CheckedListBox1.Items.Add(TextBox1.Text) 
        'menambahkan teks ke dalam CheckListBox1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CheckedListBox1.Items.Remove(CheckedListBox1.SelectedItem)
        'menghapus teks yang dipilih pada Cheklistbox1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        CheckedListBox1.Items.Clear()
        'menghapus teks yang dipilih pada Cheklistbox1

End Sub
End Class

Langkah 5
Jalankan atau eksekusi program setelah anda mengisi codingnya dengan menekan F5 atau dengan cara Pilih menu Debug kemudian Start Debug (F5), dika running program akan seperti di bawah ini. anda bisa mengisi di Textbox kata-kata sesuai yang anda mau.


Oke sekian tutorial dari saya
Terimakasih



Key:
add text in ChekListBox
vb 2010, microsoft visual basic 2010.
Langganan: Komentar (Atom)