Dim cmicImg As System.Drawing.Image
Dim mWidth,mHeight As Integer
cmicImg = System.Drawing.Image.FromFile("c:\temp.bmp ") '读入图片
'变化大小
'mWidth = CInt(cmicImg.Width / 2)
'mHeight = CInt(cmicImg.Height / 2)

mWidth = CInt(384) mHeight = CInt(512) '存图片 Dim cmicImgSave As New System.Drawing.Bitmap(cmicImg,mWidth,mHeight) cmicImgSave.Save("c:\k.bmp ")