vb做界面，如何实现鼠标移到Picture1时，Picture1中的文字变色，鼠标移开时又恢复原状 ？

Question

vb做界面，如何实现鼠标移到Picture1时，Picture1中的文字变色，鼠标移开时又恢复原状 ？
Picture1_mousemove事件时我用Picture1.ForeColor=vbBlue
form_mousemove事件时用Picture1.ForeColor =vbBlack
可是不成功呀？为什么？

Answer 1

你是在Picture里面加入Lable控件来显示文字吧？
   那你就应该在Lable的mousemove事件里面编写代码来实现你想要的效果！

Answer 2

如果是Picture1中本来就有的文字的话。
    你想要实现起来就非常的麻烦！

Answer 3

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean
MouseEnter = (0 <= X) And (X <= Picture1.Width) And (0 <= Y) And (Y <= Picture1.Height)
If MouseEnter Then
   Picture1.BackColor = RGB(0, 0, 255)
   SetCapture Picture1.hWnd
Else
   Picture1.BackColor = RGB(255, 0, 0)
   ReleaseCapture
End If
End Sub

Answer 4

tztz520(午夜逛街) 解决了我一直想解决的问题 呵呵 拣了个便宜