vb.net 修改图片大小

 

 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 ")