我需要保存带有真实图像的图片框。 帮帮我?
例如:
Dim myEncoder As Encoder
Dim myImageCodecInfo As ImageCodecInfo
Dim myEncoderParameter As EncoderParameter
Dim myEncoderParameters As EncoderParameters
Dim bmp As Bitmap = CType(imgJpgPng.Image, Bitmap)
Dim bmpt As New Bitmap(640, 640)
Using g As Graphics = Graphics.FromImage(bmpt)
g.DrawImage(bmp, 0, 0, bmpt.Width, bmpt.Height)
End Using
myImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
myEncoder = Encoder.Quality
myEncoderParameters = New EncoderParameters(1)
myEncoderParameter = New EncoderParameter(myEncoder, CType(75L, Int32))
myEncoderParameters.Param(0) = myEncoderParameter
bmpt.Save("d:\ImgTemp\0000.JPG", myImageCodecInfo, myEncoderParameters)
答案 0 :(得分:0)
从我得到的是你要保存图片框图像,可能是一个目录或东西。所以,让我们直接进入这个(这很简单。顺便说一句,我注意到你已经在640,640点暗淡了,这可能是个问题。
这是我保存图片框图片的方式
PictureBox1.Image.Save(“C:\ Users \ Owner \ Desktop \ Webcam Application poctures \ Picture.jpg”)
它非常自我解释,Picturebox1.Image.Save(保存图像)和引文中,有目录,最后有一个jpg,你可以使它成为.png或任何其他文件格式。 如果要将其显示为图片框中的原始图片,则需要转到图片框的属性并使其更大(大小)或使用拉伸功能。
编辑:对不起,我没有正确阅读你的问题,这是一个更新!
阅读本网站的信息并查看,这将对您有所帮助! http://www.vb-helper.com/howto_resize_picture_save.html