发新话题
打印

[转载]如何获得对窗体移动事件的处理的一个方法

[转载]如何获得对窗体移动事件的处理的一个方法

信息来源:中国VB网

在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
爱我所爱 无愿无悔

TOP

在C/C++里可以对窗体的WM_MOVE事件编写代码,而在VB中则可直接针对Form的dragover事件编程,在易语言里是"位置被改变".....不同的编程语言里对应不同的定义,其实都是差不多的
我的ID是:3721

TOP

发新话题