Public Class Form1
Private Sub
DoraemonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DoraemonToolStripMenuItem.Click
PictureBox1.Image = Image.FromFile("F:\Doraemon\Doraemon.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Doraemon1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Doraemon1ToolStripMenuItem.Click
PictureBox1.Image =
Image.FromFile("F:\Doraemon\Doraemon1.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
Doraemon2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Doraemon2ToolStripMenuItem.Click
PictureBox1.Image =
Image.FromFile("F:\Doraemon\Doraemon2.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Private Sub
KiboToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles KiboToolStripMenuItem.Click
PictureBox1.Image = Image.FromFile("F:\Doraemon\Kibo.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
End Class
Belum ada tanggapan untuk "Membuat Menu Trip"
Post a Comment