PBO_1 "Pertemuan 2"

Tampilan Form !

Untuk mengisi Items pada Combox1. Gunakan Coding !

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

'mengisi Items pada Combo Box Status

cmbStatus.Items.Add("Belum Kawin")

cmbStatus.Items.Add("Kawin")

cmbStatus.Items.Add("Duda")

cmbStatus.Items.Add("Janda")

End Sub

Untuk mengisi menu pilihan pada Radio Button !

Private Sub rbLK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbLK.Click

txtJabatan.Focus()

End Sub

--------------

Private Sub rbP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbP.Click

txtJabatan.Focus()

End

Coding untuk Button Save !

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

lstSimpan.Items.Add(txtNIP.Text + " " + txtNama.Text + " " + txtGajiPokok.Text)

'Untuk mengosongkan text :

txtNIP.Text = ""

txtNama.Text = ""

rbLK.Checked = False

rbP.Checked = False

txtGajiPokok.Text = ""

txtJabatan.Text = ""

TxtTujangan.Text = ""

cmbStatus.Text = ""

txtNIP.Focus()

End Sub