Question

使用VB的image控件编程出现了一个问题

帮看看我这个代码（下面）出现什么错误了，帮忙修改一下，谢谢！！！

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = Image3.Picture
End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > 0 And X < Image4.Width And Y > 0 And Y < Image4.Height Then
Image4.Picture = Image2.Picture
SetCapture (Image4.hwnd)
Else
Image4.Picture = Image1.Picture
ReleaseCapture
End If
End Sub

Answer 1

Image4属于轻量级控件，没有hwnd的，换PICTUREBOX就有了

追问

是没有了错误，但实现不到我要的效果。如果我把代码里的Image控件全换成Picture控件，就可以达到目的了，但是Picture控件不可以透明，有好代码帮忙写一下，谢谢了

追答

一事一议

追问

可以吗？

追答

一事一议

追问

我给你采纳