Source Code to viewers in visual basic

Untuk menampilkan gambar pada visual basic sangat mudah dan cepat. Programnya juga tidak terlalu rumit dan singkat. Berikut langkah-langkahnya :

1. Buka aplikasi Microsoft Visual Basic 2010

Tampilan Awal 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, CheckBox, dan Button.

Lalu susun hingga terbentuk seperti ini :

Gantikan nama CheckBox1 menjadi Menampilkan Gambar, Button1 menjadi Gambar Ditampilkan, dan Button2 menjadi Selesai.

Maka akan tampak seperti ini :

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

Public Class LatihanForm1dan2
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
PictureBox2.Image = Nothing
If CheckBox1.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\miyuki_lbe.jpg”)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SW = True Then
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\miyuki_lbe.jpg”)
PictureBox3.Image = Image.FromFile(Application.StartupPath & “\mahouka_all.jpg”)
Button1.Text = “Gambar Disembunyikan”
SW = False
Else
Button1.Text = “Gambar Ditampilkan”
PictureBox2.Image = Nothing
PictureBox3.Image = Nothing
SW = True
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
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 pada Menampilkan Gambar dan Gambar Ditampilkan. Maka akan muncul seperti ini :

Saat Klik Menampilkan Gambar

Saat Klik Gambar Ditampilkan

9. 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 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.