我想在程序中 当鼠标经过button控件时，跳出提示语

Question

command_mousemove
msgbox "mousemove"end sub

Answer 1

private sub command1_mousemove()
    msgbox "mousemove","test",64
end sub

Answer 2

AGREE zyl910(910：分儿，我来了！) ( 
ToolTip属性

Answer 3

应该综合楼上的意见考虑。
用ToolTip属性或者在MouseMove事件中编程

Answer 4

不能用 MouseMove 事件，最好用 MouseEnter 事件，否则只要鼠标在按钮上动一下提示框就会出现一次。ToolTip 自然是很好的选择。

Answer 5

To richardbao(Richard Bao)：VB6没有 MouseEnter 事件！

Answer 6

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function SetCapture Lib "user32"(ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Command_MouseMove(……)
    Static NextMove As Boolean
    
    Dim hCursorWnd As Long, point As POINTAPI
    
    GetCursorPos point
    hCursorWnd = WindowFromPoint(point.x, point.y)
    If Command.hWnd = hCursorWnd Then
        SetCapture Command.hWnd
        If NextMove=False Then
            MsgBox "……"
        End If
        NextMove=True
    Else
        ReleaseCapture
        NextMove=False
    End IfEnd Sub