马大哈 发表于 2009-7-5 07:59:44

【分享】马大哈系列功能模块----总在最前(VB6代码)

简单的封装,使用方便.

一个函数:Public Sub OnTop(ByVal tForm As Form, Optional ByVal top As Boolean = True, Optional TouMing As Long = 255, Optional cMouse As Boolean = False)
    '*************************************************************************
    '**参 数 名：Top
    '**说    明：是否将窗体放到Z轴最上层
    '**参 数 名：TouMing
    '**说    明：窗体透明度(WIN2000及以上有效)
    '**参 数 名：cMouse
    '**说    明：鼠标是否能穿透
    '*************************************************************************使用:OnTop Me             '将当前窗口置顶

loverosebay 发表于 2009-7-5 20:12:31

<p>下下来看看这个和 show 1 有什么不同,呵呵..</p>

andyliang007008 发表于 2010-8-12 16:09:44

这个和API的有什么不同？

马大哈 发表于 2011-1-6 10:26:06

与API的一样,本来也就是API的封装,HOHO.

只是因为封装好了,使用方便而已,省事.:lol

lwy7758 发表于 2011-4-25 20:40:39

谢谢老马了

lwy7758 发表于 2011-4-26 12:07:42

哎 再下一次好...

马大哈 发表于 2011-4-26 12:32:00

回复 lwy7758 的帖子

没下成功?

xxhaishixx 发表于 2011-8-6 18:53:08

不错

yxd199512041 发表于 2011-8-11 21:47:26

可找到了！！！！！！！！！！！！！！
那次和你聊天你还说没有，终于找到了！！

yxd199512041 发表于 2011-8-11 22:14:27

请问“Z轴”什么意思？是指屏幕的前后层吗？
我编译程序后，却不能显示在任务管理器窗口之上，出什么错误了吗？(winXP)

luorl 发表于 2012-8-13 21:31:49

谢谢分享，非常不错！

wszjljx 发表于 2012-8-21 01:28:35

要显示在任务管理器前 需要用Timer控件设定Interval值为1 不断执行此函数才行...... 应该是封装了一个SetWindowPos......
页: [1]
查看完整版本: 【分享】马大哈系列功能模块----总在最前(VB6代码)