Latihan 2 pengenalan Combo Box Dan List Box

.Net Dekstop.Net

Public Class Form2

 

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = “pilih data yang akan dipilih”

‘cara memasukkan data ke combocox

With Me.ComboBox1

.Items.Add(“Gustian”)

.Items.Add(“Valerian”)

.Items.Add(“Rumah”)

.Items.Add(“Belajar”)

.Items.Add(“Harvest”)

.Items.Add(“City”)

End With

Button1.Text = “Masukkan Datanya”

ListBox1.Items.Add(“Nama Yang Akan Dimasukkan”)

ListBox1.Items.Add(“——————————-“)

Label2.Text = “Form untuk memasukkan data”

Button2.Text = “Hapus Data”

Button3.Text = “Hapus Semua”

End Sub

 

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

‘ membuat pesan

MsgBox(“anda akan memasukkan datanya”)

‘ memasukkan data combobox ke listbox

With ListBox1

.Items.Add(ComboBox1.Text)

End With

End Sub

 

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)

 

End Sub

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

MsgBox(“Anda akan menghapus datanya”)

‘cara menghapus satu persatu data, dengan cara mengarahkan cursor ke data yang akan dihapus

ListBox1.Items.Remove(ListBox1.SelectedItem)

End Sub

 

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

MsgBox(“anda akan menghapus data semuanya”)

ListBox1.Items.Clear()

ListBox1.Items.Add(“Nama Yang Akan Dimasukkan”)

ListBox1.Items.Add(“——————————-“)

End Sub

 

End Class

Leave a Reply

Your email address will not be published. Required fields are marked *

4 × three =