- Tools yang digunakan adalah PictureBox, Button, dan OpenFileDialog.
- Kemudian ketikan kode berikut.
Public Class Gambar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
With Me.OpenFileDialog1
.InitialDirectory = "C:\"
.Filter = "JEPG(*.JPG)|*.JPG|Bitmap(*.BMP)|*.BMP|ICON(*.ICO)|*.ICO|METAFILE(*.WMP)|*.WMP"
.ShowDialog()
Me.PictureBox1.Image = System.Drawing.Image.FromFile(.FileName)
Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End With
End Sub
End Class
- Jika setelah disimpan, jalankan program tersebut dan hasilnya seperti ini.
Untuk selanjutnya adalah membuat Splashscreen di VB.net.
Posting Komentar