如何在VB中控制窗体的顺序

要把一个窗体放在前面,只需调用窗体句柄上的SetWindowPos。

你不需要穿越

简单的方法如下:给窗体添加一个时钟,会激活窗体的句柄记录。

单击按钮将其放在前面。

私人的

常数

HWND _最顶端

=

-1

私人的

常数

HWND _底部

=

1

私人的

常数

HWND_NOTOPMOST

=

-2

私人的

常数

SWP诺西泽

=

& ampH1

私人的

常数

SWP诺莫韦

=

& amp氘

私人的

常数

SWP诺佐德

=

& ampH4

私人的

常数

SWP _没有激活

=

& ampH10

私人的

常数

SWP橱窗

=

& ampH40

私人的

常数

SWP _隐藏窗口

=

& ampH80

私人的

声明

功能

GetForegroundWindow

解放运动

"用户32 "

()

如同

长的

私人的

声明

功能

SetWindowPos

解放运动

"用户32 "

(ByVal

hWnd

如同

长,

ByVal

hWndInsertAfter

如同

长,

ByVal

X

如同

长,

ByVal

Y

如同

长,

ByVal

cx

如同

长,

ByVal

日历年度(calendar year)

如同

长,

ByVal

wFlags

如同

龙)

如同

长的

暗淡的

活动窗口

如同

长的

私人的

潜水艇

定时器1 _定时器()

暗淡的

h

如同

长的

h

=

GetForegroundWindow()

如果

h

& lt& gt

Me.hwnd

然后

活动窗口

=

h

结束

潜水艇

私人的

潜水艇

Command1_Click()

SetWindowPos

活动窗口,

HWND_TOPMOST,

0,

0,

0,

0,

SWP橱窗

或者

SWP诺西泽

或者

SWP诺莫韦

结束

潜水艇