如何让VB中的PICTURE BOX背景透明?我做的程序主窗体上本身已加载一张图片做为背景，图片框不是用来放图片的，是用来放别的控件。（放在图片框上是为了方便整体移动）现在要求图片框背景透明（就是能看到图片框后面的窗体背景图片）。而又不影响放在图片框上的各个控件（放在图片框上的控件，也就是些label之类的，本身都可以透明）。整体效果就是：一个加载了背景图片的窗体上，有若干个label放在上面。对用户来说，要让他们不知道有图片框的存在。

不需要做透明,

把 窗体的背景 按位置复制到 图片框里 就可以了.

放在响应 图片框重绘事件里就可以了.

简单的不用API的方法是用ImageList控件,将背景色除去.
用API也能将指定颜色除去.

这个方法，貌似不切实际。因为我窗体上加载的背景图片是每隔一段时间会变的。如果用此方法，可能会造成资源占用过大。

请给出两种方法的代码。

GdiTransparentBlt '透明一种颜色
GdiAlphaBlend '透明正张图片

跪求详细的源码。急用啊。还望版主大人帮帮忙
我的主窗体上加载了一张图片做为背景，并且这张图片是不停变换的。上面有个图片框，图片框里面放有若干标签控件和进度条控件，现在就是想要图片框的背景透明，而放在图片框上的所有控件都能看到，就像是图片框上的这些控件，直接放在窗体上一样。
请版主给个示例的源码。谢谢

拜托版主，如果看到，请给出代码啊。

使用这种的方法

Private Sub Picture1_Paint()
Dim l As Long, t As Long
l = (Picture1.Width - Picture1.ScaleWidth) / 2      '求左右边偏差
t = (Picture1.Height - Picture1.ScaleHeight) / 2    '求上下边偏差
Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight    '载入图片,就用这行
'Picture1.PaintPicture Me.Image, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight      '复制的图片,就用这行
End Sub

每次更换背景后,手动调用一下.


[ 本帖最后由 风吹过b 于 2010-6-2 11:29 编辑 ]

谢谢老大。透明是透明了。可是还有点小问题。就是，我在设计时，窗体是没有最大化的，然后我在窗体属性中设置窗体以最大化运行以后，图片框的背景是不对的。还停留在没最大化之前的背景上。我已经在form1_Resize事件中调用了你的那段代码。还是这样的。
当我手动调节窗体大小的时候，图片框背景是对了。但是如果让窗体运行以后，直接最大化，图片框背景就不对。

[ 本帖最后由 msxjc 于 2010-6-3 08:13 编辑 ]