Public Class Form1
Private Sub
PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
PictureBox1.Click
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\30.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\55.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\Kambing.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\Anna cute.gif")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button5.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\kibo.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button6.Click
PictureBox1.Image = Image.FromFile("F:\Bluetooth\sasuke_1.gif")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
End Class
Belum ada tanggapan untuk "Menampilkan Picture "
Post a Comment