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

用VB制作即时动态按钮

HTML文档下载 WORD文档下载 PDF文档下载
用VB制作即时动态按钮
首先,在主窗体上生成两个大小一样的按钮Command1和Command2,将它们的Style属性都设成1-Graphical,将Command1的Picture属性设为d:\vb\ico\mail01a.ico(变化前的图案,一个关闭的信封),将Command2的Picture属性设为d:\vb\ico\mail101b.ico(变化后的图案,一个打开的信封)。
其次,在主窗体的Private Sub Form-load()中加入以下代码:
Form1.Command1.Top=Form1.Height-7000
Form1.Command1.Left=Form1.Width-1300
Form1.Command2.Top=Form1.Height-7000
Form1.Command2.Left=Form1.Width-1300′使这两个按钮重合并放置在窗体的右上角
Form1.Command1.Visible=TrueForm1.Command2.Visible=False
′隐藏Command2按钮,显示Command1按钮
再次,在Command1-MouseMove事件里加入以下代码:
If Form1.Command1.Visible=True Then
Form1.Command1.Visible=False
Form1.Command2.Visible=True
End If
′如果鼠标移到按钮上就显示打开信封的图案
最后,在Form-MouseMove事件里加入如下代码:(如果按钮放置在图件框上,就在Picture1-MouseMove事件里加入代码)
If Form1.Command1.Visible=False Then
Form1.Command2.Visible=False
Form1.Command1.Visible=True
End If
′如果鼠标移到按钮外就显示关闭信封的图案
经过以上几步后,你的窗体上就有了一个即时的动态按钮,这个按钮的Click事件为Command2-Click。本程序在P100、32M RAM、中文版WIN95上运行通过。
首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 买Windows平板而非iPad或Android的十大理由 Framework7:不会Objective-C,也能开发iOS7应用 CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会·中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 百度Clouda:可依赖的实时JavaScript开发框架 Oracle发布Java 8正式版及JDK 8 编程语言中一些令人抓狂的规则 廉颇未老,微软股价创14年新高 关于自动播放的问题,在线等! 请问怎么读取 text 控件 中 任意一行的内容 如何用jad?谢谢 哪儿有bc++高一点的版本下载 dbf问题 中秋了,我写了一首诗,大家看写得精彩不精彩? 我学应用物理,计算机该怎么自学?100+100=200 大分相送!不够再加(第3部) 和众马甲共度中秋,来来来,吃月饼,吃月饼 请问光驱读盘效率不高会是什么原因? 帮帮忙啊,关于图的遍历 一个form上有两个dbgrid,怎么判断我现在的焦点是在哪个 dbgrid上? 送给8。15继续在网络中漫步的朋友们的礼物! 关于数据库的使用 一个有关listview的问题,一直没解决,急! 有没有人装过MINIX啊 为什么我在查询分析器里执行时,没有时间限制,而在控制台里用同样的代码建一个试图或写在存储过程里都会超时呢········· 中秋快乐!!!!!!!!!大家进来看看,小弟有些问题。 网站运行一会儿IIS自动不运行了 什么是SCSI卡设备呢?有何作用? 未来的软件架构和技术 哪里有VB好界面下啊,谢谢 推荐给希望了解应用程序开发全过程的“初学者”一本书!!!!!!!!! 过节了!谨以些分献给坚守在灌水第一线的朋友们~~(一) 未来的软件架构和技术 zalyer接帖 过节了!谨以些分献给坚守在灌水第一线的朋友们~~(二) 数据库保存图片的问题 js赋值后提交,怎么在servlet中value 为空?? SendMessage参数问题, 过节了!谨以些分献给坚守在灌水第一线的朋友们~(三) 未来的软件架构和技术 ▁▂▃▄▅学ASP一个月了,现在学SQL SERVER,散分100,只为交友!▅▄▃▂▁ 大家好 ! 中秋快乐 顺便提个问题 ? 在线等....顶也给分拉...Explorer执行了非法操作该窗口即将关闭? 过节了!谨以些分献给坚守在灌水第一线的朋友们~(四) 过节了!谨以些分献给坚守在灌水第一线的朋友们~(五) excel中数据透视表? 了解:今年高程考试有没有新增内容,因为去年就新增了CMM、C++、OA办公自动化软件开发等知识,事先也没有通知各位考生。 绝对好文---------------人力资源“总奸”的自白-------ZT 中秋检举 一个恶意网站! 用PHP上传文件到LINUX服务器,结果文件用FTP软件删不掉 有做网格控件经验的请进 请教一个数据库的小问题 各位高手帮帮我! 高手来帮忙!!! 菜鸟提问:怎样从HBITMAP获得BMP的尺寸?(SDK) 请帮忙。 请问一个关于photoshop的问题,多谢指教100分 vb excel 关于MFC多文档在何处放置自已的初始化文档的代码? 今年又是一个人过中秋,终于想找个GF了! trespass infringe encroach 的区别? 英语翻译 急啊······· 近义词 妨碍( ) 威胁( ) 增援( ) 满足f(x)=积分e^-f(x)dx的连续可微函数f(x)的非积分表达式f(x)=答案是ln(x+c) 安徽省巢湖市庐江县汤池镇妙光小学的电话是多少? 问一道C语言问题若已定义:struct studentint {int num;name[20];}stu1,stu2;下列语句中不正确的是A.strcpy(stu1.name,stu2.name)B.stu1=stu2C.stu1.name="li Min"D.stu1.num=stu2.num我想问选项B为什么是正确的…… 题目是关于比例线段的. 1962年曾发生过一起科学家活捉小人鱼的事件如果是,那么情况怎样?如果是,那么到底有没有美人鱼呢?(不是海牛) 一道初三数学的比例线段图形题,1.如图,在△ABC中,AB=AC,D是BC延长线上的一点,CD=BC,过点C作CF⊥BD,交AD于点E,联结BE交AC于点P.(1)求证△PBC与△ADB必相似(2)求证P一定是线段AC中点. violate和betray之间的区别是什么? infringe intrude transgress的区别 媒体评美国6岁儿童说“杀光中国人”:美国14岁少年被控刺死女教师 据称性澳琴师自称造出完美小提琴 可与世界名澳七旬男子苦等救护车未果 在家中不治调查指许多澳洲学生吃“聪明药”提高成柬埔寨反对党举行街头示威 抗议选举成日本一公司推出价值66万纯金奥特曼美国职棒大赛 球员为赢对手纷纷留长胡日本6名女性涉嫌在网络上上传猥亵视频韩考虑增加新一代战机项目预算 现为4德防长批评美国监控传闻 称欧美关系将弯道安地锁东航成立电商公司谋转型首钢27分胜天津止连败国家公祭日:一种培养国家意识的新符号研究中的七大问题北京芭蕾比赛15万美元招英才社区环境居民说了算春运首日车票开卖硬座抢手“意见领袖”北京高产C·罗荣膺西甲“帽子先生”“吃空饷”溯源萌妹随机召唤英雄无敌之诸神的叹息爱之埙网游月球无双劲旅是怎样炼成的灵魂封印者星球风暴唐伯虎点秋香血脉法则重生之主宰网游三个世界的平衡旧州古镇旅游四明山地质公园旅游成都动物园旅游开滦国家矿山公园旅游阿拉山口旅游夹金山旅游莲花山旅游音乐厅旅游深圳海洋世界旅游林家大湾旅游杉木河旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘