Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部,并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
SetWindowPos (SetWindowPos.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
老爹 我在 调用 SetWindowPos 这个函数的时候 最后 已经代码 老是报错 说 没有为 cx 这个参数指定 参数 我试了 vb 用 试了 易语言 都能用 这个api 函数 可在狐表 怎么就老是报错能 纠结的来 我都调了2个小时了
设置窗口位置:
http://help.foxtable.com/topics/2312.htm
让窗口置于所有窗口之前,对模式和独立窗口有效:
e.Form.BaseForm.TopMost = True
不过 我是设置 当前项目 置于所有窗口之前 应该 怎么写呢
呵呵,其实没必要为这种功能花费如此多的时间,我用电脑20年了,还没有见到一个程序,在用户单击显示桌面的时候,仍然霸占者桌面。
要是真有这样的程序,我会毫不犹豫地卸载他的。
以下代码通过:
全局代码:
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Public Const HWND_TOPMOST& = -1
Public Const SWP_NOSIZE& = &H1
Public Const SWP_NOMOVE& = &H2
命令窗口:
SetWindowPos(baseMainForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
老爹 这种程序 很多啊 俺们P民 最常用的聊天工具 QQ 就是一个 在用户单击显示桌面的时候,仍然霸占者桌面 的软件
另外 你家的狐表 用来 做 娱乐 型的 数据库 真的很独到 嘎嘎
呵呵,我在等你的mrp或erp,不是等你的娱乐数据库哦