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