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 HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
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 HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
解决方案 »
- 已把session有效期设置为1440,可是还是session 很快就过期了,请问这是什么问题
- 关于子窗体显示后父窗体关闭失效问题,即必须关闭子窗体才可以退出
- listbox控件的问题
- 保存richtextbox的内容到文本文件,怎么得到几个黑方块,请高手指点
- 向已经存在的表添加字段,删除字段,修改字段(十万分火急!!!!)
- 请问以下快捷键功能,应如何方可实现? 急!!!
- 请高手帮忙,关于MSCOMM控件接受二进制数据的问题(附原码)?
- split函数的使用
- 我想学VB,但6.0和.net哪个更好呢?
- 请问哪里可以找到 Seagate Crystal Report 8.0 开发版或专业版?
- access类型定义的问题
- Animation控件在哪里引用,我找不到部件。
SWP_NOMOVE Or SWP_NOSIZE
m_flag = Not m_flag
If m_flag = True Then '最前
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = True
Else '普通
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = False
End If
m_flag = Not m_flag
If m_flag = True Then '最前
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = True
Else '普通
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = False
End If