Demo PictureBox, ListBox, dan FileIO

Assalamu’alaikum Wr.Wb.

Pada demo kali ini, kita akan mempelajari komponen: ListBox, PictureBox, dan sedikit mengenai FileIO. Berikut detail pengetahuan tentang komponen yang digunakan:

ListBox1

- Cara menghapus items

- Cara mengetahui item apa yang dipilih dalam string

- Cara mengetahui apakah Item terpilih atau indexnya berubah

PictureBox

- Cara menghapus gambar di PictureBox

- Cara mengubah gambar

- Cara menampilkan gambar dengan Stretch

FileIO

- Cara mencari file tertentu

- Cara menemukan lokasi MyPictures yang aktif sekarang

Caranya yaitu:

1. Buat project baru dengan menu File -> New Project

2. Pilih icon Windows Forms Application, dan ketikkan di kotak Name “DemoPict” dan klik OK

3. Tambahkan pada form komponen berikut ini: ListBox1, PictureBox1, dan Button1 (Name = “btnCari”)

4. Ketikkan program berikut ini:

Public Class Form1
    Private Sub btnCari_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCari.Click
        ' menghapus items
        ListBox1.Items.Clear()
        ' menghapus gambar yang sudah di load
        PictureBox1.ImageLocation = ""

        ' mencari gambar jpg, gif dan bmp di folder MyPictures
        For Each Gambar As String In _
            My.Computer.FileSystem.GetFiles( _
            My.Computer.FileSystem.SpecialDirectories.MyPictures, _
            FileIO.SearchOption.SearchAllSubDirectories, _
            "*.jpg*", "*.gif", "*.bmp*")

            ' menambah path gambar yang ketemu di ListBox
            ListBox1.Items.Add(Gambar)
        Next

        ' Beritahu kalo tidak ada gambar di MyPictures
        If ListBox1.Items.Count < 1 Then
            MsgBox("Tidak ada gambar di fole MyPictures", _
            MsgBoxStyle.Information, "Hasil Pencarian")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1
        PictureBox1.ImageLocation = ListBox1.SelectedItem
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        ' mengubah mode ukuran PictureBox menjadi StretchImage
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub
End Class

5. Tekan tombol F5. Selesai

Wassalamu’alaikum Wr.Wb