PERTEMUAN KE TIGA DALAM VB.NET
kali ini membahas tentang penggunaan list box dengan combo box,
Contoh dalam sebuah kasus terdapat label1 sebagai “nama” label 2 sebagai “ alamat “ lalu ada 2 buah textbox di sebelah label Setelah di buat seperti tampilan berkut double klik pada text box1,dan ubah jenis yang di pojok kanan atas nya menjadi key pressed
Lalu akan muncul syntax sperti berikut “ Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
End Sub”
Lalu isi di dalam sub tersebut If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
Lakukan instruksi tersebut pada textbox2 juga
Selanjutnya kita kembali ke desain form awal,lalu lakukan double klik pada tombol button lalu kitaakan masuk kepada event pada sebuah button,lalu ketik perintah ini ListBox1.Items.Add(TextBox1.Text + "" + TextBox2.Text + "" + TextBox3.Text + "" + TextBox4.Text + "")
Coba jalankan program….
Jika sukses apa yang kita input pada pada text box 1 dan 2 akan tampil semua pada list box.(to be continued…...............)
Penggunaan combo box dari text box
coba buat pada desain form seperti berikut
(MOHON MAAF TERJADI KESALAHAN)coba buat pada desain form seperti berikut
lalu double klik pada button hingga ada scripT yang di garis bawahi
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Add(TextBox1.Text)
End Sub
End Class
cara ini berguna untuk memasukan inputan ke dalam combo box secara berurutan. penambahan dapat ditentukan sesuai keinginan baik dilakukan di paling atas, paling bawah, atau di index yang diinginkan dengan cara :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Items.Insert(index ke berapa, TextBox1.Text)
End Sub
UNTUK HASIL LEBIH JELAS YANG DISERTAI DENGAN GAMBAR SILAHKAN KLIK DISINI
semoga bermanfaat
0 komentar:
Posting Komentar