怎样取消VB程序的前端显示?

来源:百度知道 编辑:UC知道 时间:2024/05/16 23:28:32
为使我的VB程序能够前端显示我在新建模块中使用了如下代码:
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8

Public Sub SetFormTopmost(TheForm As Form)

SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE

End Sub
然后用SetFormTopmost form1
但该函数一经调用就无法再取消,也就是说一旦我在某个响应中加入SetFormTopmost form1就除非关闭窗口才能结束前端显示,请问各位大侠有什么解决办法没有?我想求一个代码能够结束SetFormTopmost form1的,
谢谢!

在你不再想放在最前面的时候用
SetWindowPos TheForm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE
第二个参数改成HWND_NOTOPMOST

嗯?两个名字是一个人?
忘记VB没有默认值了,你按前面的写啊
Public Const HWND_NOTOPMOST = -2
那个值1是放在最底,-1是放在最上,-2自己试吧

老大这个我试了啊已经,先是提示NOTOPMOST没有定义,写上Public Const HWND_NOTOPMOST = -1以后还是没有反应啊? 跟以前一样,前端显示以后无法再取消了。