Menampilkan Gambar Pada VB

Menampilkan Gambar Pada VB

1.Buka program Microsoft Visual Studio 2010.

Dengan tampilan seperti berikut :

                       

  

   2. Klik file – new – project

     3.Lalu ketik nama project dan pilih lokasi untuk penyimpanan file dan OK

     4.Saat klik Ok akan keluar tampilan form

                            

    

  5.Klik toolbox yang terdapat pada pinggiran tampilan form, lalu pilih Picturebox, CheckBox dan Button.

                          

6.Klik double klik pada checkbox dan botton dengan linsting program :

Note :

“sebelum nya masukkan gambar dalam folder debug didalam folder project kita, jika tidak memasukkan gambar pada debug maka saaat linsting program tidak menggunakan “Application.StartupPath &” dan saat menulis nama image ketik dimana letak gambar yg ingin Anda masukkan. Contohnya : PictureBox1.Image =Image.FromFile("E:\IMG_8886.jpg").”

Linsting Program :

Public Class Latihan_project_form1_dan_form2

    Dim SW As Boolean = True

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles CheckBox1.CheckedChanged

        PictureBox1.Image = Nothing

        If CheckBox1.Checked = True Then

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

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

        End If

    End Sub

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

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

        If SW = True Then

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

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

            Button1.Text = "Gambar Disembunyikan"

            SW = False

        Else

            Button1.Text = "Gambar Ditampilkan"

            PictureBox2.Image = Nothing

            PictureBox3.Image = Nothing

            SW = True

        End If

    End Sub

End Class

      7.Lalu save and start debugging

8.Klik di Menampilkan Gambar dan Gambar Ditampilkan.

Pada saat klik Menampilkan Gambar :

                      

9. Pada saat klik Gambar Ditampilkan :

                           

   

 10.  Pada saat klik Gambar Disembunyikan :

                           

   

   11.  Dan pada saat menghilangkan check pada menampilkan gambar :

                           

       12.  Selesai.