一个简单的鼠标事件问题

[miqier1209]

就这么几句话，总是不太好用。请dx指点。
if (xpos>=p_2.x and xpos<=p_2.x+p_2.width) and (ypos>=p_2.y and ypos<=p_2.y+p_2.height) then
p_2.visible=false;
else
p_2.visible=true;
end if

[madking]

去掉分号

[madking]

你写到什么事件里了？

[qqf]

定义实例变量:
Boolean Picturebutton_tr=true
声明函数：
FUNCTION ulong SetCapture(ulong hwnd) LIBRARY "user32.dll"
//跟踪鼠标
FUNCTION ulong ReleaseCapture() LIBRARY "user32.dll"
//释放鼠标

pbm_mousermove:
IF picturebutton_tr=True THEN
SetCapture(Handle(This))
Picturebutton_tr=False
ELSEIF (Xpos<0 Or Ypos<0 Or Xpos>This.Width Or Ypos>This.Height) THEN
ReleaseCapture()
Picturebutton_tr=True
END IF

[miqier1209]

随便定义了一个事件，ID是:pbm_mousemove
去掉分号还是一样。谢谢madking(爱一个人好难)

[madking]

呵呵，我知道去掉分号一样，只是在pb里语句后面加分号看着别扭。

[miqier1209]

那好，我去掉了，我也是那样想的，但qqf(我就是我) 的方法我用不起来，不知道哪位能贴个源码上来给看看。

[madking]

你把代码稍微改一下，比如说写到一个command button的mousemove事件里
先声明实例变量picturebutton_tr和local external functions
IF picturebutton_tr=True THEN
SetCapture(Handle(This))
Picturebutton_tr=False
this.visible = false
ELSEIF (Xpos<0 Or Ypos<0 Or Xpos>This.Width Or Ypos>This.Height) THEN
ReleaseCapture()
Picturebutton_tr=True
this.visible = true
END IF

这样鼠标移到按钮上时按钮就消失了，呵呵