如题 把上面的Me.hwnd换成Picture1.hwnd即可 非常感谢共享！可能我没有写清楚问题，是要picturebox背景透明，不是它本身透明 看看这个 顶一个~~ 如果你需要的是背景图片的透明背景效果，需要将图片在PS中处理并另存为GIF格式或TIF格式，并在存储对话框中选择背景透明选项。 VB code: Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
Private Sub Form_Load() Picture1.AutoRedraw = True Picture2.AutoRedraw = True Picture1.Picture = LoadPicture(App.Path & "\001.JPG") '一张白色背景图片 Picture1.Left = -1 * Picture1.Width ' Picture1是辅助图片框,放在窗体之外 Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels End Sub
Private Sub Picture2_Paint() DoEvents TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, RGB(255, 255, 255) 'RGB(255, 255, 255)是透明色-- 白色 End Sub
