vb 2005 想 將 pirture 放 大 要 write code

' Create an image object from file
' Use either one of the two lines below
Dim image1 As System.Drawing.Image = New Bitmap("c:\temp\image1.jpg")
' or
Dim image1 As System.Drawing.Image = System.Drawing.Image.FromFile("c:\temp\image1.jpg")

Dim w As Integer = image1.Width
Dim h As Integer = image1.Height
Dim w2 As Integer = w * 1.5 ' change this value to enlarge and reduce size
Dim h2 As Integer = h * 1.5

' Create a new image
Dim image2 As System.Drawing.Image = image1.GetThumbnailImage(w2, h2, Nothing, New IntPtr())
' Save thumbnail as jpeg
image2.Save("c:\temp\image2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)