主题：还是关于 api 函数

 

 

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

 

 

 

 

 

不过 我是设置 当前项目 置于所有窗口之前   应该 怎么写呢

baseMainForm.TopMost = True

谢谢  老爹   我赶紧调试

 汗  连 api 函数 都不 需要  牛逼啊 （你为什么不告诉的  狐表 靠背。net 呢   要不然 我也就不用那么辛苦了  呵呵）   可是  我 点击  显示桌面 项目 还是 被 隐藏 了  我想要的 是  点击 显示桌面  按钮 后  当前项目  不被隐藏  所以 我还是要用 api 函数啊

老爹  帮我 解决这个 api 函数啊   我好不容易 琢磨出api  那么点 门道   现在 在狐表里面 却 实现 不了  很是 悲剧 的

 

呵呵，其实没必要为这种功能花费如此多的时间，我用电脑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，不是等你的娱乐数据库哦