Question

求助VB6.0高手，谁能帮助做一个透明的Picture控件。在线等，急用。谢谢大家了

在picture中。我用的是pset画图，还用到了取像素点函数。如果觉得分低的话，做好后还可以在加分

Answer 1

这个其实比较麻烦。按你这说法真正的难点在于两张图片的拼合。
取点之类的问题很容易解决，多留一个PicBox就是了，隐藏起来，只有画的点。

拼合有两个办法：
1、 用 BitBlt 实现。但是你得实时的生成一个掩码图（就是需要覆盖的地方涂黑，需要透过的留白）。
Private Declare Function BitBlt Lib "gdi32" ( ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop AsLong ) AsLong
PrivateSub Command1_Click ( )
BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15,0, 掩码图.Width / 15, 掩码图.Height / 15, 掩码图.hDC, 0,0, vbSrcAnd
BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15,0, 掩码图.Width / 15, 掩码图.Height / 15, 源图.hDC, 0,0, vbSrcInvert
EndSub

2、用 AlphaBlend 和 TransparentBlt 解决。
这个也挺麻烦，篇幅较长，你自己百度一下。这里给你留下函数声明。
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal nXoriginDest As Long, _
ByVal nYOriginDest As Long, ByVal nWidthDest As Long, _
ByVal nHeghtdest As Long, ByVal hdcSrc As Long, _
ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, _
ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
ByVal blendFunction As BLENDFUNCT) As Long

Private Declare Function TransparentBlt Lib "msimg32.dll" _
(ByVal hdcDest AsLong, _
ByVal nXOriginDest AsLong, _
ByVal nYOriginDest AsLong, _
ByVal nWidthDest AsLong, _
ByVal nHeightDest AsLong, _
ByVal hdcSrc AsLong, _
ByVal nXOriginSrc AsLong, _
ByVal nYOriginSrc AsLong, _
ByVal nWidthSrc AsLong, _
ByVal nHeightSrc AsLong, _
ByVal crTransparent AsLong _
) AsLong

追问

取点之类的问题很容易解决，多留一个PicBox就是了，隐藏起来，只有画的点。

这个问题不太明白，能够详细讲解一下啊？

追答

不好理解吗？ 你专门留一个Pic，隐藏的，绘图时在显示Pic上画一个，在这个隐藏Pic上也画一个。
显示Pic随便怎么处理，这个专门用来取点。 OK了。

追问

嗯，我知道啊，可是我不知道绘图时应该怎样让两个picture同步变化，让他们画图内容都一样。
不好意思，我水平比较菜，麻烦再指导一下。

追答

你可以用本办法，所有的绘图语句写两遍。
也可以写一个专门的绘图过程，所有的绘图动作调用这个过程来完成。
比如：Sub PsetX2(X,Y) 里面画两次。

Answer 2

透明 显示窗体？

追问

不是，有两个picture，上层透明是为了显示下层picture中的图片，上层Picture还要画图呢

追答

都画一个里不就解决了么

追问

要是可以的话，我肯定都不会这么麻烦了。

追答

先把 底层的 图画进去 然后 画上层 你可以声明个数组 用来存上层的信息
然后 在 timer里 擦了 重画 这样就有动画效果

追问

底层图片不能画到上层啊，这样取像素点会受影响的
我的需求是有两个叠放的picture，在上层的picrue中作图，在作图过程中动态地在下层的picture中加载图片，下层picture的图片是动态变化的。因为我在上层Picture中作图时，需要取像素判断我作图的内容，所以不能在上层的picture中加载图片啊，只能让其背景透明

追答

取点什么的 看不到也无所谓啊

Answer 3

窗体可以透明

Answer 4

还用到了

追问

啥意思啊？