Tugas_4 : ListBox, CheckBox

 

1.    LISTBOX

      a.  Pertama kita desain dulu tampilannya.
           Buat : textbox 1 buah, checkbox 2 buah, button 9 buah.
           lalu atur dan ganti nama sesuai tampilan berikut :

      b.  Lalu kita masukan codingnya :
         
     Double klik pada button isi masukan coding ini :

    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

       Double klik pada button 1-10 masukan coding ini :

    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


       Double klik pada button satu > masukan coding ini :

    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

       Double klik pada button Beberapa > masukan coding ini :

    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

        Double klik pada button Semua > masukan coding ini :

    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

         Double klik pada button Hapus Satu masukan coding ini :

    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

         Double klik pada button Hapus Beberapa masukan coding ini :

    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

          Double klik pada button Hapus Semua masukan coding ini :

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

          Double klik pada button Tutup masukan coding ini :

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()

    End Sub
End Class

       c.  Lalu Kita Run Pogramnya. Maka Hasilnya sebagai berikut :
         
            bila kita klik tombol 1-10 maka akan muncul tampilan angka 1 sampai 10
            tombol satu kita klik maka akan menginputkan angka yang kita pilih saja..
            tombol beberapa berarti untuk menginputkan lebih dari satu pilihan...
            tombol semua berarti akan menginputkan semua yang terdaftar...
            begitu juga dengan tombol hapus satu, beberapa, dan semua akan menghapus sesuai perintah...

            kita juga bisa menginputkan huruf contoh "komputer" dengan cara ketikan di textbox 1 dan
            klik tombol isi maka tampilanya sebagai berikut :

2. CHECKBOX

    a.  Pertama Kita desain dahulu tampilannya dengan menambahkan :
         Textbox 1 buah, Check Box 6 buah, button 3 buah GroupBox 1 buah. pada GroupBox kita
         gabungkan ke enam checkbox tersebut ke dalam groupbox.  lalu desain dan ganti nama sesuai
         tampilan berikut :

 
    b.  Selanjutnya masukan coding berikut:

         Double klik pada button Tampilkan masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End Sub

          Double klik pada button GroupBox masukan coding ini :

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
    End Sub

           Double klik pada button Keluar masukan coding ini :

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

    End Sub

           Double klik pada button Hapus masukan coding ini :

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

    End Sub
End Class





     c.  Lalu jalankan programnya. maka tampilanya sebagai berikut :

            Sumber :    http://www.gakbakalmati.blogspot.com