api函数问题，SetCapture为什么无效！！

HHAAMM

SetCapture FindWindow(vbNullString, Me.Caption) 为什么无效
在vbl里 SetCapture Form1.hWnd可是没问题
难道是FindWindow得到的句柄不对吗

HHAAMM

没人讲上两句吗？

northwolves

楼主请贴出你的这部分代码

HHAAMM

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim MouseOver As Boolean
    MouseOver = (0 <= X) And (X <= Form1.Width) And (0 <= Y) And (Y <= Form1.Height)
    If MouseOver Then
    Me.Caption = "0"
    SetCapture Form1.hWnd
    Else
    Me.Caption = "1"
    ReleaseCapture
    End If
End Sub

[ 本帖最后由 HHAAMM 于 2010-12-18 16:52 编辑 ]

maditate

看来老虎版主还在为QQ式窗体而奋斗。

HHAAMM

判断鼠标是否在窗体内，MouseMove事件在鼠标快速移动时起不了作用

HHAAMM

原帖由 maditate 于 2010-12-18 16:53 发表
看来老虎版主还在为QQ式窗体而奋斗。

嗯，如果能成功解决vba的鼠标是否在窗体内问题 值

winland

VBA中的窗体也可以使用SetCapture，只是每次移动窗体后SetCapture就失效了，比较奇怪。

这个附件给你参考一下。
releasecapture.rar (10.85 KB, 下载次数: 23)

2010-12-18 17:13 上传

点击文件名下载附件

northwolves

原帖由 HHAAMM 于 2010-12-18 16:56 发表


嗯，如果能成功解决vba的鼠标是否在窗体内问题 值

可以考虑使用

1. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

复制代码

winland

原帖由 northwolves 于 2010-12-18 17:40 发表

可以考虑使用Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

问题是窗体的MouseMove事件只有在鼠标仍然在窗体中才起作用。当鼠标移出窗体，这个事件并不触发鼠标移出窗体的动作。