Tutorial Menampilkan beberapa Foto pada Microsoft Visual Studio 2012

Disini saya akan membahas tentang bagaimana menampilkan bebebrapa foto dengan memilih kriteria yang kita inginkan.

Berikut adalah Langkah-langkahnya :

buka visual studio anda dengan meng-klik icon yang terdapat di desktop anda atau program file anda. Setelah terbuka maka tampilan akan tampak seperti di bawah ini :

Kemudian anda membuat project baru dengan cara klik file -> new -> project maka akan tampak kurang lebih seperti di bawah ini

Setelah itu pilih Windows Form Application dan isi nama project yang anda buat atau dalam posisi default-nya nama akan menyesuaikan dengan jenis aplikasi. Pastikan juga lokasi penyimpanan project sesuai dengan apa yang anda inginkan. Kemudian klik tombol OK maka akan tampak windows seperti di bawah ini :

Designlah Form seperti pada gambar dibawah ini

Pada gambar diatas tambahkan tiga buah PictureBox untuk menampilkan foto, satu buah GroupBox, dua buah RadioButton yang diletakkan didalam GroupBox untuk kriteria yang kita pilih, dan dua buah Button untuk tombol Bersih dan Selesai.kemudian atur masing-masing text pada properties.

Double klik pada RadioButton1 kemudian isi program berikut ini.

Public Class Form1

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked = True Then

If RadioButton1.Text = "Bunga" Then

PictureBox1.Image = Image.FromFile("D:\1.jpg")

PictureBox2.Image = Image.FromFile("D:\2.jpg")

PictureBox3.Image = Image.FromFile("D:\3.jpg")

End If

End Sub

Double klik pada RadioButton2 dan isikan listing program berikut.

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked = True Then

If RadioButton2.Text = "Hewan" Then

PictureBox1.Image = Image.FromFile("D:\Penguins.jpg")

PictureBox2.Image = Image.FromFile("D:\Koala.jpg")

PictureBox3.Image = Image.FromFile("D:\kucing.jpg")

End If

End Sub

Double klik pada Button1, isi program berikut.

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

If sender.tag = 1 Then

PictureBox1.Image = Nothing

PictureBox2.Image = Nothing

PictureBox3.Image = Nothing

RadioButton1.Checked = False

RadioButton2.Checked = False

Else

PictureBox1.Image = Nothing

PictureBox2.Image = Nothing

PictureBox3.Image = Nothing

End If

End Sub

Terakhir double klik pada Button2 , isi listing programnya.

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

End

End Sub

End Class

Seperti gambar di bawah ini ,jika semua program digabungkan.

Simpan programnya dengan ctrl+s,kemudian jalankan. Dan jika program yang kita buat tidak terjadi kesalahan maka hasilnya akan keluar seperti dibawah ini.

Gambar jika kita klik RadioButton “Bunga”.