Private Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long
Private Sub Form_Load()
'透明显示的过程
Dim W As Integer, H As Integer
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
Picture2.Picture = LoadPicture(App.Path + "\bchscale3.jpg")
Picture1.Picture = LoadPicture("E:\VB设计\第五次做刺球\39.bmp")
'Picture1.Move Screen.Width '此句把孪生图移到屏幕外，效果等同picture1.visible=false
W = Picture1.ScaleWidth
H = Picture1.ScaleHeight
GdiTransparentBlt Picture2.hDC, 100, 100, W, H, Picture1.hDC, 0, 0, W, H, RGB(0, 0, 0) '把Picture1的图片复制到Picture2中，Picture1的图片中的白色会被屏蔽掉，这样就可以透明显示了
End Sub '用小女孩的图似乎图像边缘没问题，但用刺球怎会边缘还有背景像素？可能是颜色差异太大引起？
bchscale3.jpg与小女孩的图片 很像是用我的吧?
将 刺球 这张图片在 小画家里修一下 把边缘全部与底色弄成同一色即可, 你没自信的话 保存为 .bmp
边缘的颜色和其它不同,透明只对某种颜色起作用.
我用其它api函数制在桌面透明的真人跳舞女孩，也是图片边缘像素没有擦去，怎么办？
跟你说了 图片要先用工具处理
遮罩是分颜色和区域的。
我装�
