|
在VB的事件里，没有对当窗体移动的时候相应的处理事件接口。然而
可以利用子类处理来实现。具体的想法是利用子类处理获得 WM—MOVE的消息
然后传递消息到一个正常的窗体的一个按纽，利用按纽的事件接口来模拟对窗体移动事件的模拟：其具体的实现代码如下：
在窗体里加入一个按纽，命名为EventBn 利用EventBn_click()事件来实现对窗体移动事件的处理/
模块代码如下：
public Oldproc as long
public BnHwnd as long
public function Newproc(byval hwnd as long,byval msg as long,byval wp as long, byval lp as long) as long
if msg=wm_move then''''捕获窗体移动事件
sendmessage BnHwnd,wm_lbuttondown,1,0
sendmessage BnHwnd,wm_lbuttonup,1,0''''将消息发送到按纽，使其发生CLICK事件
end if
newproc= callwindowproc(oldproc,hwnd,msg,wp,lp)
end function
窗体内代码：
private sub form_load()
BnHwnd=EventBn.hwnd''''获得按纽句丙
Oldproc=setwindowlong(me.hwnd,gwl_wndproc,addressof Newproc)
end sub
private sub EventBn_click()
''''在这里添加窗体移动的代码
end sub
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
