VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 8130|回复: 10

[经验技巧] VB让程序始终处于焦点

[复制链接]
 楼主| 发表于 2011-3-7 21:21:41 | 显示全部楼层 |阅读模式
本帖最后由 513824849 于 2011-3-7 21:59 编辑
  1. '调用 SetFormTopmost frmMain frmMain为窗体名称


  2. Option Explicit
  3. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
  4. ByVal hWndInsertAfter As Long, _
  5. ByVal x As Long, _
  6. ByVal y As Long, _
  7. ByVal cx As Long, _
  8. ByVal cy As Long, _
  9. ByVal wFlags As Long) As Long
  10. Public Const HWND_TOPMOST = -1
  11. Public Const SWP_NOMOVE = &H2
  12. Public Const SWP_NOSIZE = &H1
  13. Public Const SWP_NOZORDER = &H8

  14. '定义
  15. Public Sub SetFormTopmost(TheForm As Form)
  16. SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE
  17. End Sub



复制代码
[/hide]
就是说不让其他程序获得焦点(除非自身最小化,可以把最小化按钮关了)~
发表于 2011-3-7 22:40:26 | 显示全部楼层
Private Sub Form_LostFocus()
    Me.SetFocus
End Sub
这样行么
回复 支持 反对

使用道具 举报

发表于 2011-3-8 12:53:55 | 显示全部楼层
回复 neilbr 的帖子

不行,那个只是调用时置顶,当切换到其它窗口时就不再置顶,楼主那个是始终置顶

点评

两个同时用不就完了……  发表于 2011-3-8 13:29
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-3-8 18:49:11 | 显示全部楼层
记得有很多人问过这个问题,现在怎么没人恢复了~
回复 支持 反对

使用道具 举报

发表于 2011-5-13 16:33:14 | 显示全部楼层
看看。。。。。
回复 支持 反对

使用道具 举报

发表于 2011-11-3 11:44:27 | 显示全部楼层
我怎么不会
总是至顶
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-11-11 21:54:14 | 显示全部楼层
semwang 发表于 2011-11-3 11:44
我怎么不会
总是至顶

不会吧??????
回复 支持 反对

使用道具 举报

发表于 2011-11-11 22:59:03 | 显示全部楼层
本帖最后由 tgy 于 2011-11-11 23:09 编辑

暴力法:加个timer控件,每隔1毫秒就Me.SetFocus一下,呵呵!够暴力吧!
霸王法:遍历所有窗口,用API 之enablewindow 将除了本程序窗口的其它所有窗口全部禁止获得焦点,自己想干啥就干啥了,够霸道吧!
回复 支持 反对

使用道具 举报

发表于 2011-11-16 15:19:54 | 显示全部楼层
tgy 发表于 2011-11-11 22:59
暴力法:加个timer控件,每隔1毫秒就Me.SetFocus一下,呵呵!够暴力吧!
霸王法:遍历所有窗口,用API 之e ...

呵呵,这方法牛!!!
回复 支持 反对

使用道具 举报

发表于 2012-5-7 21:27:32 来自手机 | 显示全部楼层
tgy 发表于 2011-11-11 22:59
暴力法:加个timer控件,每隔1毫秒就Me.SetFocus一下,呵呵!够暴力吧!
霸王法:遍历所有窗口,用API 之e ...

够霸气。。第一种会不会负荷太大了…
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 21:04

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表