关于VB.NET C# 中修改图片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 SONY XCL-S600C SONY XCL-S900 CAMERALINK相机测试通过。

 

以下是C#代码，也测试通过，方便各位编程的朋友参考

Using (Bitmap bitmap = (Bitmap)Image.FromFile("C://image1.tif"))

            {

                Using (Bitmap newBitmap = New Bitmap(bitmap))

               {

                   newBitmap.SetResolution(300, 300);

                  newBitmap.Save("C://image-1.tif", ImageFormat.Jpeg);

               }

          }