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

用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上运行通过。
TOP30专访:Splashtop研发中心总经理Alex Xu 2012Q3国内App开发者半数以上入不敷出 细微之处见真章 为什么要在try-catch-finally里加大括号 独立开发者:面对攻击就要“脸皮厚+更自豪” IBM纳米光子芯片对付大数据 单个通道25Gbps AWS数据仓库服务Redshift是最好的选择吗? 又赚了一笔:微软向两公司收取Android专利费 深度解析:Android4.2系统“应用验证服务” 欧洲移动游戏大会:五大行业趋势 大揭秘:Windows Phone 8 键盘输入的8个设计精髓 朝鲜:探寻最神秘的移动互联网王国 如何让IE 10玩转响应式网站 Windows Server 2012:令CIO激动的三个新特性 高德和新浪微博战略合作 打通账号互调数据 乐观锁和悲观锁 你更钟情于哪一个? Apple索30%分成 iOS版微软SkyDrive更新搁浅 [简讯] Linux 3.7发布 开源图形卡驱动程序 高效敏捷的十大经验法则 佛瑞斯特资讯公司预测2013年云计算的十个变化 百会中小企业CRM年会成功举办 发布CRM选型指南 诺基亚创新体验中心NEIC训练团正式开班 新威胁:IE新漏洞允许网站跟踪鼠标 少编码多思考:代码越多 问题越多 [简讯] JDK 7u10发布 修复安全漏洞 搜狗茹立云:为何搜狗语音助手比Siri更精准? BlackBerry 10最终版SDK Gold发布 谷歌地图正式登陆App Store 为开发者推出SDK 你的云数据的三个最大威胁 公开叫板:Google不打算推出Win8版Gmail和Drive APP备案风波:开发者何去何从? 32位和64位的JVM 我该选择哪个呢? Window2000+Apache+Tomcat4.0下class文件放哪里呀?自己建新的目录,怎么建? 请问在win98中的sql server数据库如何导入winnt下sql server服务器中。 济南 应用程序端传递过来的参数不能在导出函数外用吗? BCB 用Install shield制作oracle数据安装程序,在客户端不装ORACLE,如何设置DBE? to:chechy 分来了! 请问哪里有 com本质论 下载啊,最好是中文版的,英文亦可 为什么我的程序在案康柏的ipad上不能使用? 如何在image里预先显示白色背景? 回复phoenix96_2000(Jack Of All Trades) 请问哪里有《Delphi5企业级解决方案及应用剖析》配套光盘源码下载? hehe...请问能不能在WIN2000P建域呢?? 在对话框中放一个静态文本,为何执行时看不到该文本? 哪里有Inside COM+的书籍下载? 请教各位:如何对zf='dd'转换成十六进制? 请教: 二级域名name.***.com是怎么实现的? vc中使用string类型的问题 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个OCX控件,里面有个属性SName,我现在想在属性窗口里改了它的值,马上可以在控件上改变,请教各位! 为什么我的USB接口键盘在用软盘启动后的DOS状态下不响应? JSP,薪水有多少? delphi中怎样调用package? ado 的问题 图片从数据能显示,图片名称不能显示? 请问unix下有没有类似于windows下的DLL的二进制代码存储文件机制?(当然不是javaBean) 关于语音控件CTTS1.0? 请教各位:问如何对变量zz='02'转换成16进制? flash 5。0哪里有下载 在vc中调用用vb写的com出错,为什么? 关于多态性的理解,对吗? 如何知道1个类是不是存在? ??请教:我的程序 help!help! 如何对程序执行动作放缓慢! 很小很小的问题!! 棘手问题??急急!!! 各位懂软件测试的朋友,请介绍一些资料给我,非常感谢! 菜鸟问个调试问题,别见笑! 请介绍一下学数据库应学什么开发工具更好些,除了sql语言? 请教一个关于TextArea区域中数据显示的问题 高分求以二进制方式打开文件 哪里能找到dialogic卡的VN协议? 求解:BC++3.1 or high编程在DOS下连接interbase server 高手快进!!!一个DataReport报表的异步操作问题( MYSQL的帮助文档哪里有下载?谢谢 求,谁有zip unzip的源代码 菜鸟的问题,送分来了! 有谁知道什么是SDD吗?请指教!!!!别吝惜呀!!^o^ 简单的右键弹出菜单问题…… 我想编一个pop3服务器,适用于windows iis,给点提示吧 高中生活作文800字急 以莲为话题的作文600字 家用电器 英语作文写一片介绍某种家用电器功能的,可以介绍它对家人的帮助,我真的写不好,50个次就够了,非.非.非常急, 高中生活作文800字以上.不要太幼稚的,记录一件有意义的事! 英语作文:大学生使用网络的现状,人们对网络的看法和观点 描述冰箱的英语作文 高中生活的作文十万火急! 有关网络使用情况的英语作文 军训感受作文 600字600字作文, 我们是住宿学校,军训结束的时候还有结营式 成长的烦恼400字作文(6年纪的 《我的军训生活》800字的作文,感想也可以 谁有关于高中军训的作文,800字以上! 关于在学校使用手机的调查 英语作文比如%多少的人带、%多少的人不带,这种的作文.30-40词.答得好有额外分. 成长烦恼作文600字600 以上 高一新生的入学作文 军训的体会 800字以上 英语作文:关于中学生使用手机1、现在是信息社会,手机是最快的信息交流的工具之一.2、应充分利用好手机.如遇突发事故,可立即拨打手机求助.3、可在每天学习之余利用手机游戏放松一下 在成长路上 作文600字 求一篇关于军训的感受的文章给学分的,800字左右啊 如何正确使用手机英语作文 用托物言志的手法写一篇关于“莲”的散文 200字左右的美文摘抄 英语作文:使用手机的一个小故事60字以上 谁知道托物言志的文章呀!要文章,200---300字的,要名家的 写洗衣机的作文 中华儿女报效祖国为国争光的读后感 托物言志的散文 300字 急需! 以真心为话题写一篇文章以真心为话题写一篇600字的文章我要的是范文没头绪·· 请以‘让’为话题,自选角度,写一篇不少于500字的作文,要求;题目自拟,内容充实,切忌空洞车让人,让出一份安全;车让车,让出一份秩序,让出一份文明;人让人,让出一份友爱.在现实生活中, 中华儿女报效祖国为国争光的读后感 500 托物言志300字文章 要求:请自选角度,写一篇不少于500字的作文有个木匠准备离开,他告诉老板,要回家与妻儿父母一起享受天伦之乐.老板舍不得他的好工人走,问他是否能帮忙再建一座房子,木匠说可以.但是大家 关于莲花的作文300字, 用托物言志的手法写一篇关于“莲”的散文 600字 关于荷花的作文(600字以上) 滚筒洗衣机的正确使用方法是什么? 想要一篇关于军训的好文章,关于军训感想的写自身的感受(最好是诗)可以发到我Q上381248484, 荷花作文600字!急!~~~~ 以《我期待的高中学习生活》为题写一篇不少于800字的作文 怎样正确使用电脑英语作文卢湾区初三英语第一学期期末质量抽查试卷的作文 关于赞美荷花的作文600字! 洗衣机的使用方法生活白痴该怎么用洗衣机呢?包括什么衣服该怎么洗 洗衣机使用时要注意什么 怎么保养洗衣机和衣服 初一的英语作文,简单的,关于怎样用电脑的少点就行,4 5行吧,初一的翻译谢谢,单词提示screen connect turn learn click print mouse keyboard 荷花作文600字注意着重写景 作文《成长的烦恼》600字初一的快 电脑使用的英语作文10句左右, 以荷花为题的600字作文 作文成长中的烦恼 (我是男生) 500字左右 英语作文:我的电脑(假如你有一台电脑,你将如何利用他) 演讲稿或者中华儿女报效祖国、为国争光的文章或书籍写一篇读后感 至少500字 初一作文《成长中的烦恼》500到600字详细的问题说明最好多一点,选材新颖, 《成长中的烦恼》600字以上的作文 作文:我向往的高中生活 写莲花借物喻人的作文,要600字. 征文启示:要一篇800字的军训感受作文!要求:8月30号前完成,字句优美,完全自作,在其他地方不能有一模一样的出现.800字以上或左右 进入高一体验高中生活,作文该怎么写. 以莲花为主题写一篇作文 600字左右 求一篇高一军训感受作文.要求:800字左右. 以“风波”为题的作文,写高中生活的(800). 关于莲花的作文,500~600字的 军训心得作文800字的 速求
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn