TGS VB 4

Btt isi

 Private Sub btsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsi.Click
        If TextBox1.Text <> “” Then
            ListBox1.Items.Add(TextBox1.Text)
        Else
        End If
    End Sub

Btt nmr 1-10

Private Sub bt10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt10.Click
        Dim nomor As Integer
        For nomor = 1 To 10
            ListBox1.Items.Add(nomor)
        Next
    End Sub

Btt1

  Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End Sub

Btt isi beberapa

  Private Sub btsibbp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsibbp.Click
        Dim cek As Object
        For Each cek In ListBox1.SelectedItems
            ListBox2.Items.Add(cek)
        Next
    End Sub

Btt semua

Private Sub btsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsm.Click
        ListBox2.Items.AddRange(ListBox1.Items)
    End Sub

Btt hapus1

Private Sub bthps1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthps1.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

Btt hapus beberapa

Private Sub bthpsbbp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpsbbp.Click
        Dim n As Integer
        For n = 0 To ListBox2.SelectedIndices.Count – 1
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
        Next
    End Sub

Btt hapus semua

Private Sub bthpssm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpssm.Click
        ListBox2.Items.Clear()
    End Sub

Btt tutup

 Private Sub btttp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btttp.Click
        Me.Close()
    End Sub
End Class