Source Code Menampilkan Gambar Menggunakan Fungsi Switch-Case pada Visual Basic

Untuk menampilkan gambar dengan menggunakan fungsi switch-case sangat mudah. 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, RadioButton, GroupBox, dan Button.

Kemudian, gantikan nama GroupBox1 menjadi “Foto yang Ditampilkan”, GroupBox2 menjadi “Proses”, RadioButton1 menjadi “Ayah”, RadioButton2 menjadi “Ibu”, RadioButton3 menjadi “Anak Pria”, RadioButton4 menjadi “Anak Wanita”, Button1 menjadi “Bersih”, dan Button2 menjadi “Selesai”.

Maka akan tampak seperti gambar dibawah ini :

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

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

        With PictureBox1

            Select Case sender.tag

                Case 1

                    .Image = Image.FromFile(Application.StartupPath & "\1.jpg")

                Case 2

                    .Image = Image.FromFile(Application.StartupPath & "\9.jpg")

                Case 3

                    .Image = Image.FromFile(Application.StartupPath & "\2.jpg")

                Case 4

                    .Image = Image.FromFile(Application.StartupPath & "\3.jpg")

            End Select

        End With

    End Sub

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

        If sender.tag = 1 Then

            Bersih()

        Else

            End

        End If

    End Sub

    Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Activated

        Bersih()

    End Sub

    Sub Bersih()

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        RadioButton3.Checked = False

        RadioButton4.Checked = False

        PictureBox1.Image = Nothing

    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 RadioButton untuk menampilkan foto yang diinginkan.

    Jika di pilih "Ayah", maka akan muncul gambar :

    Jika di pilih "Ibu", maka akan muncul gambar :

    Jika di pilih "Anak Pria", maka akan muncul gambar :

    Jika di pilih "Anak Wanita", maka akan muncul gambar :

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”).

Untuk program "Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Activated" double klik di Form 1. 

Awalnya pada saat kita double klik di Form1, program yang muncul seperti ini :

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

Kemudian gantikan "Form1_Load" dengan "Form1_Activated". Gantikan juga "Handles MyBase.Load" dengan "Handles Me.Activated"

Sekian langkah-langkah cara menampilkan gambar dengan menggunakan fungsi switch-case 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.