首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

为什么使用SetWindowPos设置form位于最上层显示不起作用?该怎么处理

2012-06-02 
为什么使用SetWindowPos设置form位于最上层显示不起作用?如题!在MDI子窗口中,利用SetWindowPos API函数,把

为什么使用SetWindowPos设置form位于最上层显示不起作用?
如题!
在MDI子窗口中,利用SetWindowPos API函数,把form放在多个form的最上层显示不起作用呢?

以下是api的声明。

VB code
   Public   Declare   Function   SetWindowPos   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   hWndInsertAfter   As   Long,   ByVal   X   As   Long,   ByVal   y   As   Long,   ByVal   cx   As   Long,   ByVal   cy   As   Long,   ByVal   wFlags   As   Long)   As   Long     Const   SWP_NOMOVE   =   &H2   '不更动目前视窗位置     Const   SWP_NOSIZE   =   &H1   '不更动目前视窗大小     Const   HWND_TOPMOST   =   -1   '设定为最上层     Const   HWND_NOTOPMOST   =   -2   '取消最上层设定     Const   FLAGS   =   SWP_NOMOVE   Or   SWP_NOSIZE   

 
在MDI子窗口中的Load函数中,使用以下语句设置为最上层显示,但是不起作用,焦点还是可以落在后面的form上。
 
VB code
 SetWindowPos   Me.hwnd,   HWND_TOPMOST,   0,   0,   0,   0,   FLAGS   


[解决办法]
ZOrder 方法


将指定的 MDIForm,Form 或控件放置在其图层的z-顺序的前端或后端。不支持命名参数。

语法

object.ZOrder position

ZOrder 方法的语法包含下列部分:

部分 描述 
object 可选的。一个对象表达式,其值为“应用于”列表中的一个对象。如果省略 object,则具有焦点的 Form 对象缺省为 object。 
Position 可选的。一个整数,它用以指示 object 相对于同一 object 其它实例的位置。如果 position 为 0 或被省略,则 object 定位在Z-顺序前面。如果 position 为 1,则 object 定位在Z-顺序后面。 


说明

在设计时选择“编辑”菜单中的“置前”或“置后”菜单命令,可以设置对象的Z-顺序。

在 MDIForm 对象内,Zorder 根据 position 的数值决定将 MDI子窗体放置到 MDI 客户区的前面或后面。对于 MDIForm 或 Form 对象,Zorder 根据 position 的数值决定将窗体放置到屏幕的前面或后面。因此,窗体可以显示在其它运行中的应用程序的前面或后面。

有三个图层与窗体和容器相关联。后层是显示图形方法结果的绘图空间。下一个是中层,用来显示图形对象和 Label 控件。前层显示所有非图形控件,如 CommandButton、CheckBox 或 ListBox。靠近前层的层中包含的东西将覆盖该层后面的各层包含的东西。Zorder 只对该对象在其中显示的那一层内的各个对象进行重排。
[解决办法]
module定义
public frm as form
初始化frm=nothing
另外手动关闭也赋为nothing
在每个子窗体的
Private Sub Form_Activate()
If frm Is Nothing Then
Set frm = Me
Else
frm.ZOrder 0
End If
End Sub
[解决办法]
貌似你的说的可以用模态窗口解决
form1.show vbmodal
[解决办法]
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, FLAGS
[解决办法]
FLAGS = SWP_NOMOVE Or SWP_NOSIZE

把红色这个去掉,用它会忽略第二个参数

热点排行