我想让自定义控件有鼠标进出响应,怎么编码?

Question

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Not ((X < 0) Or (Y < 0) Or (X > Width) Or (Y > Height)) Then
    API.ReleaseCapture
    lbl.ForeColor = lblColor
    Set lbl.Font = lblFont
  Else
    API.SetCapture UserControl.hWnd
    lblColor = lbl.ForeColor
    Set lblFont = lbl.Font
    lbl.ForeColor = pColor
    Set lbl.Font = oFont
  End If
End Sub
API是模块,声明了两个API钩子,为什么没有颜色和字体变化??

Answer 1

移出响应可以写在窗体上，form_mousemove()或其他放该控件的容器上

Answer 2

http://www.google.cn/search?complete=1&hl=zh-CN&newwindow=1&q=mouseover+vb&meta=&aq=f