Vb.netpng图片 vb加载图片

vb.net如何将绘制的图保存为png图片

Dim bitmap1 As New Bitmap("D:\image\0183.jpg")‘panel1.backgroundimage

Dim bitmap2 As New Bitmap(294, 294)’保存图，也就是绘制的大小。

Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘昨天的问题，这里似乎写错了，当然也不算错，只是把新图（小图）扩展成原图大小（大图），这里改正为新图的原大小。

Dim rect2 As New Rectangle(New Point(6, 6), bitmap2.Size)

Dim g As Graphics = Graphics.FromImage(bitmap2)

e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)

g.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)

bitmap2.Save("d:\a.png", Drawing.Imaging.ImageFormat.Png)

相关问答

Q1: vb.net如何取得excel中的图片

Dim ss As Excel.Worksheet

Dim i As Integer

Dim b As Bitmap

Dim iData As IDataObject

'excel.Version

ss = wb.Worksheets(2)

For i = 1 To ss.Shapes.Count

ss.Shapes.Item(i).CopyPicture(, excel.XlCopyPictureFormat.xlPicture)

iData = Clipboard.GetDataObject()

If iData.GetDataPresent(DataFormats.Bitmap) Then

b = CType(iData.GetData(DataFormats.Bitmap), Bitmap)

b.Save("d:\sv" + CStr(i) + ".png")

End If

Next i

关于Vb.netpng图片和vb加载图片的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。