Tugas Visual Studio ke - 4

Latian Listbox

Public Class Form1

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

        Dim control As Windows.Forms.ListBox

        TextBox1.Text = TextBox1.Text

        TextBox1.Text = ListBox2.Items.Add(TextBox1.Text)

    End Sub

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

        For bil = 1 To 10

            ListBox2.Items.Add(bil)

        Next

    End Sub

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

        ListBox2.Text = ListBox3.Items.Add(ListBox2.Text)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox2.Items.Count

        For i = 0 To j - 1

            Try

                ListBox3.Items.Add(ListBox2.Items(ListBox2.SelectedIndices(i)))

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox2.Items.Count

        For i = 0 To Jumlah - 1

            ListBox3.Items.Add(ListBox2.Items(i))

        Next

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        ListBox3.SelectionMode = SelectionMode.One

        ListBox3.Items.Remove(ListBox3.SelectedItem)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        ListBox3.SelectionMode = SelectionMode.MultiExtended

        Dim i, j As Integer

        j = ListBox3.Items.Count

        For i = 0 To j - 1

            Try

                ListBox3.Items.RemoveAt(ListBox3.SelectedIndex)

            Catch ex As Exception

                j -= 1

            End Try

        Next

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        ListBox3.Items.Clear()

    End Sub

End Class