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

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

DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 SQL语句中的删除和改变-Delphi资料 TDataLink类别的说明-Delphi资料 TDBGrid控件中对多个记录的处理-Delphi资料 安装BDE需要的东东-Delphi资料 保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 c++中的friend关键字在c#中有没有什么替代的 请问IMG中的ALT属性的意义和作用 float型的问题(在线等待) 关于AnsiString类别字符串传送至PB8 ☆☆内存泄漏的检测问题★★ i installed an english system, but it doesn't surport chinese input, and many words are displayed incorrectly,how to do with it 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题一? 代理服务器XP上安装了两块网卡,上网如何设置? 请教使用CFile类的一个小问题? 编辑框简单问题 请问那里有RFC下? 查看隐藏文件的选项不见了怎么办? 怎样检查硬盘坏道? 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题二? 关于数据库访问的问题 资源文件的问题,MYBMP1 IS NOT FOUND 有关WINAMP 的问题? 处理字符串以修改数据库 开机显示the secondry IDE channel no 80 cable …… <input type=file name=pic>如何取值,如何设置初始值???? 么样判断一个客户机是否能够连上服务器上数据库,在线等待 在RAVE中如何加上总页数和当前页数? 有缺邮箱用的吗>?现在有了哦,穷人快来啊。。哈哈,我也是其中一个。 请问一个 应用程序登陆SQl Server 时密码的问题? 菜鸟提问! Outlook Express邮件丢失 非典嚣张的日子里的北京(希望惊起大家对SARS的关注)!!! 问一个简单的概念性问题,分却很多.......还可加哦 一个数据映射错误 关于进程通讯的问题 问一个简单的概念性问题,分却很多.......还可加哦 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 能提供解码器么? 在tdi中,怎样获取封包ip头? 神啊!救救我吧!!!!(在线等待) 我看SARS危机 求助 我该怎么办??? 管理登陆问题解决?? 一个简单的问题,如何对字符串进行减操作? 谁用过struts,进来交流一下! 请大侠看看俺的小程序,哪里错了(关于不规则图形填充) delphi查询问题(急需) 急求:从硬盘安装windowsxp时电脑出显不能安装,找不到eula!如何解决? 系统分析员VS博士 C#连接Oracle? 关于<BASE> 那里有WebDB下载啊. 金字塔真的有神秘的能量吗?金字塔真有神秘的能量吗?有谁亲身体验过?我是相信有这种能量啦,所以自己做了一个小小的金字塔(花费了好多时间哦),但是,并没有发现它的能量表现出来.请大 中文榴莲怎么翻译阿尔巴尼亚语感谢了 a lot 、a lot of 、lots of之间的区别 这个.有点晕 什么事金字塔能量? Let's get some () about UNICEF on the Internet.A information B message为什么 He learned a lot of __ about English 关于能量金字塔最多大约有百分之二十的能量从第一营养级流入次级消费者生产者呼吸消耗的能量一般没有流入初级消费者的能量多这两句话哪错了?位于金字塔顶部的消费者获能最多 不对 英语翻译 标准溶液在哪买的到呢? 什么是stp 30亩地盖一个养猪场需要多少万 形容两件事毫无关系是那个成语啊? stp是什么文件 紫外线和人类生活健康的关系 单元素标准溶液在哪买的到呢? STP是什么材料 I d____ some information about traveling on the Internet.This dictionary has many e______ of how verbs are used. 在济南哪里可以购买到甲醛标准溶液,急,在线等答复 STP是什么 I am going to __some information on the Internet.A look for B find C search 可溶性盐有哪些? 什么事STP 如何成功管理猪场 可溶性盐有哪些 ,求,关于计算机的自编格言. 硫酸铁怎么生成二价铁 可溶性重金属盐有哪些具体一点 过碳酸钠中,能否用高猛酸钾标准溶液来确定过氧化氢含量,希望有详细理由. 单质碘和盐酸,硫酸铁是否发生反应? 碳酸钠是化合物还是氧化物 从一周期元素从左到右,最高价氧化物所对应的水化合物碱性逐渐( ),酸性( )气态氢化物的稳定性逐渐( ) 第三周期元素里,最容易生成氰化物的元素是( ). "they are a fraction of their former selves" 怎么翻译? non-lvalue in assignment是什么意思?该怎么解决?讲的通俗一点,什么左值的不懂 传媒、计算机励志名言本人因工作急需,特向各位求索新闻传媒方面、计算机方面的名人名言,放在教学楼走廊、教室用.万望大家不吝各赐十来句,且要注明出自哪一位科学家、文学家.时效性 为什么紫外线人看不见,而一些动物能看见 20克乙烯与8克丙烯的混合气体中含多少个原子 怎么算 我制作关于计算机的名人名言,包括相框.老师让我们每人交一份关于计算机的名人名言相框,要求电子版的,用Photoshop制作,宽38,高76,字体为宋体,加粗.带有名人的相片, 趋紫外光性的动物有哪些 甲鱼有吗 可溶性盐,微溶性盐,难溶性盐分别有哪些. 相对标准不确定度是用标准不确定度分量除标准值还是除测量结果平均值 紫外线是谁发现的?紫外线是谁发现的``是个德国科学家``是谁啊``急需```知道的发啊```不为分 ```为知识``!`` 可溶性铝盐有那些 实验设计:胆汁在消化过程中起什么作用请你用下面给出的实验材料设计实验,证明胆汁的作用.材料用具:新鲜的鸡胆汁、花生油、试管、滴管实验设计:预期实验现象: 翻译Authors think of things they want to write about. overloaded function as left operand什么意思 斯诺克台球(碰撞问题)斯诺克台球白球和其它球质量一样大么?如果一样大,白球击球后为何会倒退呢? 如何成立运输公司 山揸乌克兰语怎么说帮翻译下 台球怎么打,才能使母球与目标球直线碰撞后,母球往相反的方向运动?第二种情况是碰撞后母球立即停止,仅仅目标球运动,(以上两种情况都是直线碰撞,球心连线和运动方向在一条直线,没有角 怎样开永久A车吗拜托各位了 3Q继续吧,有人会告诉你午夜,其实就是看运气!不看人品! 翻译下Yonghe King considers that they are no concept of brand about wide crowd. 台球碰撞问题初三一个台球碰撞另一台球,一球运动,另一球反弹改变运动方向.问下其中有无弹性势能的转化 科学家怎么知道鸟能够看见紫外线的? 氧化物只可含有两种元素吗/氧化物和含氧化合物的区别 高中物理 台球碰撞问题.求解析.(看到两种不同答案.求证.)如图所示,设球与框边碰撞时无机械能损失,不计摩擦,则两球回到最初出发的框边的先后是( )A球先回到出发框边B球先回到出 哪里还有永久A车卖最好是100元拜托各位了 3Q About“a lot of”谁知道a lot of和many之间的区别?两者能互换吗?还有无其他一样词义的单词或短语?TKS 牛顿撞撞球的问题我在淘宝上买了一个牛顿撞撞球,但两边小球只能撞几十下,过一会就停下来了,我记得看电视上的是可以一直撞下去啊,撞很长时间,是不是我这个质量有问题? 我现在的工作是操作等离子喷涂机,由于是新手,对等离子弧了解不够,但我知道这东西的紫外线辐射较强,我没有特殊的工作服,就是一般的这种衣服》 a lot和lots of 和a lot of 的区别请详细说明他们的用法和词性She has a fever .She needs to drink ____ water.A、a lotB:lots ofC:a lot of 请说明原因 马凯会见欧盟委员会主席巴罗佐美媒力赞英国查尔斯王子 称其眼见高过英国王储查尔斯否认说过“当国王像蹲监俄学者:不要对伊核谈判前进步伐抱过高小偷夜闯国务卿克里家车库 美警方调查中欧推动世贸组织在MC9上达成早期收李某某案31号二审开庭 受害人心情未《三国演义》连环画法文版在法国上架马凯会见比利时首相迪吕波沃尔玛3年欲设新址110个查尔斯不想当国王? 英媒爆王储担心被《中国人看白俄罗斯》首发 获赞民间外希腊疑遭拐卖女童证实身份 其母曾企图英国王储查尔斯否认说过“当国王像蹲监韩调查显示 面试官平均14分钟决定是日媒称4架中国军机同一天越过冲绳飞向专家:旅新大熊猫嘉嘉可能已进入性成熟揭秘网络相约自杀群体:低龄化 渴望得巴西警方要求传讯美国信息业大腕专家:旅新大熊猫嘉嘉可能已进入性成熟俄学者:不要对伊核谈判前进步伐抱过高揭幕战主裁:其实我是个警察英格兰人怎么看球:一群悲观的宅男拿地两个月即上市德国队沪倡导机关干部从行为上节能:下班提早虚假“高科技”环保公司其实就3人宁天城际站名用上金陵刻经字体先破球衣魔咒,再破冠军魔咒?西南证券拟收购香港上市券商敦沛金融建材半价日,你来不来?学生“候选人”是国家拉丁舞教师如果黄海波夺影帝有些逆天世界杯,体验群居生活的方式曾和高洪波闹过别扭高层玻璃清洁工索降住宅盗窃当世界杯遇上父亲节漫步者魔号e225大市场现“雷管”引来排爆特警越设计越经典弃婴为何滞留在医院?有父母信息不能送月汽车销量形势平稳乐融融网CEO:原始会开创业者融资新
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘