MEMBUAT LISTBOX

Belajar membuat LIST BOX di VB.net 2008
List box memiliki fungsi untuk menampilkan beberapa daftar pilihan. Kita tinggal memilih pilihan yang ada, atau list box juga dapat di gunakan untuk menampung data-data yang di input, untuk kemudian kita dapat gabungkan pada list box.
Tampilan list box :






Pembahasan kali ini, kita akan coba membuat program untuk menggabungkan data yang kita input, lalu akan kita gabungkan , dan akan ditampilkan melalui listbox…
Perintah sederhananya : ListBox1.Items.Add(TextBox.Text + " " + TextBox……..)
Pertama,,, buat form windows seperti tampilan di atas, lalu buat coding seperti dibawah ini :
Sub pros3()
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " _
+ TextBox6.Text + " " + TextBox7.Text)
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
TextBox5.Focus()
End If
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(13) Then
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then
TextBox7.Focus()
End If
End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If e.KeyChar = Chr(13) Then
Call pros3()
Call bersihpros()
TextBox3.Focus()
End If
End Sub
Sub bersihpros()
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
End Class
Lalu jalankan denga F5, isi kata untuk data 1 diakhiri dengan Enter, hingga data 7 :














Maka kumpulan kata-kata yang di input tadi akan tergabung di dalam List Box





Komentar

Postingan Populer