'模块里声明
Public Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long

'窗体里标签labProInfo的MouseMove事件
Private Sub labProInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean
MouseOver = (0 <= X) And (X <= Me.labProInfo.Width) And (0 <= Y) And (Y <= Me.labProInfo.Height)
If MouseOver Then
Me.labProInfo.ForeColor = vbbule
SetCapture Me.labProInfo.hWnd
Else
Me.labProInfo.ForeColor = vbRed
ReleaseCapture
End If
End Sub

SetCapture Me.labProInfo.hWnd

我就要问怎么不能用?

我换成Picture就可以,晕了

早就跟你说过了.LABEL没有HWND句柄

不过在VC里label一样有hwnd的



by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

不过SetCapture在鼠标没有按下的情况下好像是会失败的
不过不太肯定，我记得不是用这个API做的



by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

VC label有?那么我用VB枚举的话也能得到VC程序的LABEL 的HWND?

最苯的方法就是：
LABEL1 的 WIDTH HEITH （可能打错了） 你记录一下 然后 在FORM里 看看 LABEL1在坐标的位置

Private Sub From1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
用 IF 判断下X，Y 如果离开 LABEL1的范围 就MSGBOX 没有 就不

呵呵 比较苯 主要是算坐标

问题解决了,放个Picture,里面放个标签,背景设一样,搞定!