Aplikasi yang akan kita buat seperti ini:
Pertama buat form seperti gambar di bawah ini, gunakan picturebox dan button:
Atur properties:
PictureBox1
Name : PictureBox
BorderStyle : Fixed3D
Button
Name : BtnBrowse
Text : Browse
Untuk Coding klik di btnbrowse:
Private Sub BtnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click
Dim bukaGambar As New Windows.Forms.OpenFileDialog
bukaGambar.Filter = "File Gambar(*.bmp; *.jpg;*.GIF)|*.BMP;*.JPG;*.GIF|All files(*.*)|*.*"
'tampilkan file yang berformat .jpg .bmp .gif
If bukaGambar.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox.Image = Image.FromFile(bukaGambar.FileName)
PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
'biar tampilan image pas dengan kotak image yang di sediakan
Else
MsgBox("Pilih Gambar Dulu", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Dim bukaGambar As New Windows.Forms.OpenFileDialog
bukaGambar.Filter = "File Gambar(*.bmp; *.jpg;*.GIF)|*.BMP;*.JPG;*.GIF|All files(*.*)|*.*"
'tampilkan file yang berformat .jpg .bmp .gif
If bukaGambar.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PictureBox.Image = Image.FromFile(bukaGambar.FileName)
PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
'biar tampilan image pas dengan kotak image yang di sediakan
Else
MsgBox("Pilih Gambar Dulu", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Aplikasi selengkapnya bisa di download di sini http://www.ziddu.com/download/12793581/OpenImage.zip.html