您的位置：程序门 -> vb ->

判断窗口活动状态

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

判断窗口活动状态[已结贴,结贴人:luoxinxin1988]

发表于：2007-06-23 12:12:03 楼主

窗口活动时窗口背景色为红色，不活动时窗口背景色为灰色:

private sub form_load（)
bcancel = false
me.visible = true
processwindow
end sub

private sub form_unload（cancel as integer)
bcancel = true
end sub
private sub processwindow（)
do while not bcancel
n = iswindowenabled（me.hwnd)
if n <> 0 then
me.backcolor = vbred
else
me.backcolor = &h8000000f
end if
doevents
loop
end sub
结果无效..
请说明原因,谢谢

发表于：2007-06-23 12:12:551楼得分:0

上面的少了两句;
private declare function iswindowenabled lib "user32 " （byval hwnd as long) as long
private bcancel as boolean

发表于：2007-06-23 19:32:172楼得分:30

getactivewindow
getforegroundwindow
用这两个api

发表于：2007-06-24 09:55:563楼得分:0

果然是高手呀

下一篇：窗口最大化
上一篇：帮我看下代码，关于shgetidlistfrompath，比较少见，不懂回答看了赚点知识也不错。

其他资讯