[原创]我有两个窗体，另一个能否跟着移动？（搜不到）

gao2ming1

请问同时显示两个窗体，当我移动userform1时，如果让userform1也跟着同步移动，我用

userform2.Top = UserForm1.Top + UserForm1.Height
userform2.Left = UserForm1.Left

不知道写在userform1的那个事件里

想要的效果像“千千静听”那样

[此贴子已经被作者于2007-6-12 15:41:20编辑过]

gao2ming1

网上搜索到如下代码，不过是VB的，请高手帮忙移植到vba中

在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

[此贴子已经被作者于2007-6-12 15:27:07编辑过]