关于VB.NET中修改图片DPI的原码
最近工作涉及到修改图片DPI等工作,下面VB.NET代码经研究测试可用
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Bitmap1 As Bitmap = Image.FromFile("C:\image1.tif")
Dim newBitmap As Bitmap = New Bitmap(Bitmap1)
newBitmap.SetResolution(200, 200)
Bitmap1.Dispose()
newBitmap.Save("C:\image1.tif")
‘另存为另一图片
newBitmap.Save("C:\image2.tif")
End Sub
经测试,这代码也支持JPG文件,不过JPG文件是有损的,TIF无损。
上述代码用MATROX SOL2MEVCLF SOL2MEVCLB 采集卡及SONY XCL-C500 XCL-C130 CAMERALINK相机测试通过。
以下链接更有完成同样功能的C#代码,欢迎访问