Penggunaan ListBox1, MenuStrip dan FileIO (Lanjutan Input Gambar ke PictureBox di VB.NET)

Pada pembahasan kali ini, kita akan mempelajari komponen: ListBox, MenuStrip 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

MenuStrip

- Cara Membuat Menu Item

- Cara Memanggil Form pada Menu Item 

FileIO

- Cara mencari file tertentu

- Cara menemukan lokasi MyPictures yang aktif sekarang

Caranya yaitu:

1. Tambahkan pada form komponen berikut ini: ListBox1, MenuStrip1 dan Button2  (text= exit), Button3 (text= tampil list)

2. Klik MenuStrip untuk penamaan file seperti pada contoh gambar di atas, Untuk Codingan MenuStrip Double click. 

3. Tambahkan coding program berikut ini:

'button2

----------

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

        End

    End Sub

'MenuStrip

------------

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Form1.Show()

    End Sub

'listbox click

--------------

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click

        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1 dan pada label

        PictureBox1.ImageLocation = ListBox1.SelectedItem

        Call ListBox1_SelectedIndexChanged(sender, e)

        Label1.Text = "Nama file: " & ListBox1.SelectedItem

End Sub

'listbox selectedindexchanged

----------------------------------

    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

'button3 click

----------------

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.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 kalau tidak ada gambar di MyPictures

        If ListBox1.Items.Count < 1 Then

            MsgBox("Tidak ada gambar di file MyPictures", _

            MsgBoxStyle.Information, "Hasil Pencarian")

        End If

    End Sub