Source Code Menampilkan Gambar dengan Memilih Kategori pada Visual Basic

Untuk menampilkan gambar dengan memilih kategori pada Visual Basic dapat digunakan Toolbox “RadioButton”. Berikut adalah langkah-langkahnya :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih PictureBox, ComboBox, RadioButton, Label, GroupBox, dan Button.

Kemudian, gantikan nama GroupBox1 menjadi “Ketentuan Foto”, GroupBox2 menjadi “Proses”, Label1 menjadi “Orang : “, Label2 menjadi “Jenis : “, RadioButton1 menjadi “Pria”, RadioButton2 menjadi “Wanita”, Button1 menjadi “Bersih”, dan Button2 menjadi “Selesai”.

Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1, Button2, Form1, RadioButton1, dan RadioButton2. Kemudian isi listing program seperti dibawah ini :

Public Class Form1

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not ComboBox1.Text = “” Then
PictureBox1.Image = Nothing
ComboBox1.Text = “”
RadioButton1.Checked = False
RadioButton2.Checked = False
Else
End
End If
End Sub

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
If ComboBox1.Text = “Dewasa” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\1.jpg”)
‘Gambar pria dewasa’
ElseIf ComboBox1.Text = “Orang tua” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\8.jpg”)
‘Gambar orang tua’
ElseIf ComboBox1.Text = “Anak-anak” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\2.jpg”)
‘Gambar pria anak-anak’
End If
End If
End Sub

Private Sub RadioButton2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
If ComboBox1.Text = “Anak-anak” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\3.jpg”)
‘Gambar wanita dewasa’
ElseIf ComboBox1.Text = “Orang tua” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\6.jpg”)
‘Gambar orang tua’
ElseIf ComboBox1.Text = “Dewasa” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\4.jpg”)
‘Gambar wanita anak-anak’
End If
End If
End Sub

End Class

6. Lalu klik panah kecil pada PictureBox. Maka akan muncul PictureBox Tasks lalu pilih StrecthImage pada Size Mode.

7. Kemudian Save and Start Debugging.

8. Klik di ComboBox dan pilih jenis kelamin.

Jika dipilih “Dewasa” :

• Pria

• Wanita

Jika dipilih “Anak-anak” :

• Pria

• Wanita

Jika dipilih “Orang Tua” :

• Pria

• Wanita

9. Klik “Bersih” untuk membersihkan gambar.

10. Klik “Selesai”.

Note : Ada dua cara dalam memasukkan gambar, yaitu :

1. Gambar yang sudah ada dalam folder Project-bin-Debug.

Contohnya : PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)

2. Gambar yang terdapat didalam folder lainnya yang terletak dalam Local Disk (D:) atau sejenisnya.

Contohnya : PictureBox1.Image = Image.FromFile(“D:\foto.jpg”).

Sekian langkah-langkah cara menampilkan gambar dengan memilih kategori pada Visual Basic. Semoga Bermanfaat ^^

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.