怎么将picturebox中的图象透明和缩放

2012-01-01

如何将picturebox中的图象透明和缩放我是一VB新手, 想在窗体里放透明的图片,请问应该怎么做呢,VB不支持PNG

如何将picturebox中的图象透明和缩放
我是一VB新手, 想在窗体里放透明的图片,请问应该怎么做呢,VB不支持PNG图片吗?

[解决办法]
在PictureBox里放图片是无用的,因为即使图片透明,PictureBox也是不透明的.请用下面的绘图方法:
在窗体的Paint事件里写如下代码:

VB.NET code

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint    Static img As Image = Image.FromFile("xxxxx.png")    e.Graphics.DrawImage(img, 0, 0)End Sub
[解决办法]
javascript也许能解决.
[解决办法]
VB.NET code        Dim im As Image = Image.FromFile("d:\a.jpg")        Dim Zoom As Integer=2        Dim g As Graphics = pb.CreateGraphics        g.DrawImage(Im, 0, 0, Im.Width *Zoom, im.Height*Zoom)
[解决办法]
透明图象的问题1楼回答的已经很好了，不再重复。
图象的缩放３楼回答的也不错，但我介绍另外一种方法给楼主，效果也很好。
我的方法主要就是通过设置Picturebox的SizeMode为PictureBoxSizeMode.StretchImage来实现的。
代码如下：

　　Dim Zoom As Integer = 2 'Zoom为缩放的倍率

   Sub ZoomInImage()　　'放大的子过程

       Me.PictureBox1.Width = Me.PictureBox1.Width * 1.3
       Me.PictureBox1.Height = Me.PictureBox1.Height * 1.3
       Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

   End Sub

   Sub ZoomOutImage()　'缩小的子过程

       Me.PictureBox1.Width = Me.PictureBox1.Width / 1.3
       Me.PictureBox1.Height = Me.PictureBox1.Height / 1.3
       Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

   End Sub

把以上代码加入到程序中，在需要缩放的事件代码中直接调用　ZoomInImage() 或　ZoomOutImage() 即可

热点排行

VB Dotnet

怎么将picturebox中的图象透明和缩放