说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何制作浮动式窗口

HTML文档下载 WORD文档下载 PDF文档下载
VB如何制作浮动式窗口

你是否很想制作一个类似于Microsoft Offices 那样的一个图标框,始终出现在
桌面的最前方?很简单,你只要调用Windows API函数就可以了。
首先,你当然要先建立一个普通的窗口,然后定义以下一些内容:

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
(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
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

接下来,在你的程序中的适当地方加入以下语句:
success% = SetWindowPos(myform.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
这样,你的窗口就出现在桌面的最前方了。
当然,你也可以把窗口恢复成原来的普通状态:
success% = SetWindowPos(myform.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)

作者:ariel_cy@usa.net

十款开源的数据库管理工具 360联合多家IDC成立“安全防黑联盟” 国内百万网站受益 腾讯云如何玩转手游数据分析 成都站免费抢票 直接拿来用!10款实用Android UI工具 第14届英特尔投资全球峰会 新投16个项目逐一看 oracel的内存分配问题(在线等待) 如果打开了个路径选择框..不要用SelectDirectory 找人, 找贴子。 大家帮忙, 谢谢 主从表关系 MD昨天一天不顺利,气死我了。感觉工作上心不在焉。 怎样实现在一个网页中显示多张图片(上传的),还要按一定位置存放? 请教一个OA的问题! 一般用C来实现菜单功能的话,是用什么数据结构? [求助]internet互连问题 1.象棋比赛中,每个选手恰好都与其他选手比赛一局, 九年级数学题一元二次方程的应用,列式,最好有解析, 1.有一个七位数5ABCDEF,若把5移到末位,变 1.有一个七位数5ABCDEF,若把5移到末位,变 方案 数学应用题,总数学方法做 一道数学应用题,什么方法都可以.一个底面半径为12 数学一元一次方程(初中)应用题(所有的题必须用方程 列方程解应用题! 奇数为男偶数是女?2013年是“男性不堪昂贵房租 伦敦上班族住巴塞罗那坐走进马达加斯加塔马塔夫华侨学校世界最贵“粉红之星”钻石亮相纽约 估土耳其买或不买,中国导弹都赢了达安基因:震荡蓄势完毕 后势欲夺领涨想英语拿高分,3个重点不要丢,你与学看看这五个方面,你就明白为什么钱会花暴力团体下的日本多省份争先恐后上报去产能方案 背后真豪门之摊上恶魔总裁最强剑圣出云神社先天大帝血族荣耀贡嘎寺旅游长白山北坡旅游长白山西坡旅游白河旅游玫瑰峰旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘