Aplikasi ini dibuat untuk
bertujuan untuk memahami properties pada VB.NET. Dari teori Tutorial Lengkap
VB.NET - Object, Property, Method dan Event yang dibahas sebelumnya. Berikut
beberapa contoh aplikasi Test Properties pada VB.NET dibawah ini :
Contoh aplikasi 1
2. Lalu anda dapat
mengatur properties windows pada aplikasi anda, disini saya hanya mengatur
beberapa object saja.
3. Doubel click pada
button 1 (Proses) dan ketik ulang kode dibawah ini :
Label2.Text = TxtNama.Text
4. Setelah itu double
click juga pada button 2 (Selesai), dan copas script dibawah ini :
End
5. Maka tampilan semua
kode seperti gambar dibawah ini :
6. Tekan F5 untuk menjalankan aplikasi, maka setelah dijalankan seperti gambar dibawah ini.
Public Class FrmLat1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnProses.ClickLabel2.Text = TxtNama.TextEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickEndEnd SubEnd Class
Contoh aplikasi 2
2. Lalu anda dapat
mengatur properties windows pada aplikasi anda, disini saya hanya mengatur
beberapa object saja.
3. Doubel click pada
button 1 (Tambah) dan ketik ulang kode dibawah ini :
lsbKota.Items.Add(cboKota.Text)
4. Doubel click pada
button 2 (Hapus) dan ketik ulang kode dibawah ini :
lsbKota.Items.Remove(lsbKota.Text)
5. Doubel click pada
button 3 (Bersih) dan ketik ulang kode dibawah ini :
lsbKota.Items.Clear()
6. Doubel click pada
button 4 (Selesai) dan ketik ulang kode dibawah ini :
End
7. Maka tampilan semua
kode seperti gambar dibawah ini :
Public Class frmLat2Private Sub frm2_Load(sender As Object, e As EventArgs) Handles MyBase.LoadcboKota.Items.Add("Bandung")cboKota.Items.Add("Jakarta")cboKota.Items.Add("Medan")cboKota.Items.Add("Surabaya")End SubPrivate Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.ClicklsbKota.Items.Add(cboKota.Text)End SubPrivate Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.ClicklsbKota.Items.Remove(lsbKota.Text)End SubPrivate Sub btnBersih_Click(sender As Object, e As EventArgs) Handles btnBersih.ClicklsbKota.Items.Clear()End SubPrivate Sub btnSelesai_Click(sender As Object, e As EventArgs) Handles btnSelesai.ClickEndEnd SubEnd Class
1 komentar:
Click here for komentarNo more live link in this comments field
1. Tinggalkan Komentar Yang Positif, Kritik, dan Tidak Menjatuhkan!
2. Gunakan Emoticon yang sesuai dan tulis kode nya di kolom komentar!
3. Berkomentarlah sesuai dengan topik yang dibicarakan!
4. No SARA, kata - kata tidak sopan, berbau pornografi, LINK AKTIF tidak akan di approve !
5. Komentar anda akan di tampilkan setelah disetujui . ConversionConversion EmoticonEmoticon