我用VB开发的程序,有个提醒功能,就是每隔一段时间自动跳出一个窗口进行提醒,类似QQ收到新邮件后的提醒窗口,但碰到一个问题就是跳出窗口时这个应用程序会获得焦点,这对电脑的使用者很不方便,如何在跳出窗口时,这个应用程序不获得焦点
解决方案 »
- 如何获取类似于dos窗口黑屏里面的文本,
- 关于VB连接数据库的问题
- 在SQL语句"select x,y from T1"中,如何保留数字字段x的小数点位数,使其在MSHFlexGrid中查看时只保留小数点后4位
- VB编码实现合并sheet,并能按某列去除重复行
- 怎么做成系统运行时鼠标变成漏斗?
- 给一位网友发的.要问事务怎么用!这个是Cnn的事务.
- VB程序可不可以和其中使用到的数据库一起打包后,在外地的机器上运行(在线)
- 关于QQ!你会玩QQ吗?那请近来看看!
- 1000分,只求一种方法!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- VB下调用EXECL写入SQL中遇到问题
- vb取得CPU序号,硬盘序号,内存序号代码
- 急求如何实现单选钮部分隐藏!!!
弹出前先用getforegroundwindow得到窗口
然后使用setforegroundwindow 刚才用getforegroundwindow得到的窗口
Private 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 SWP_NOACTIVATE = &H10
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40'在弹出窗口时使用如下代码来替换 Form2.Show:
SetWindowPos Form2.hwnd, 0, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW
无论在vista 还是在 XP 下都没有问题,实在不行,你把
SetWindowPos Form2.hwnd, 0, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW
中的第二个参数 0 换成 1 即:HWND_BOTTOM试试,
其实 setwindowpos的功能是非常强大的,具体用法可以到网上搜索。
http://download.csdn.net/source/1640888