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

用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上运行通过。
Firefox OS:称霸移动市场?我们的计划更长远! 支撑5亿用户、1.5亿活跃用户的Twitter最新架构详解及相关实现 传苹果为iWatch招兵买马 以确保明年发布新产品 降价高达1200元的Surface RT,并不值得你购买 Daux.io:开源的项目文档生成器 避免代码注释的五大理由 安徽农信:30人,13轮测试,完成日均270万笔交易的综合业务系统架构调整 研究员带来5D光存储技术:容量达360TB,寿命高于百万年 LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 哪门编程语言影响力最大? 微软启动“Companion Web”计划 可互连多屏幕设备 让你望而却步的密码管理服务已获得100万美元的种子基金 EJB实体Bean中的数据库连接如何配置? 如何让TRichedit的滚动条滚到指定的文字所在的行? 两小问题 求租西湖区一带的房子,合租整租都可以 浮点数组问题, 我的注册表问题 关于指针值传递问题! 屏蔽语句是怎么回事? 请问高手,为什么我的DBgrid通过OPTIONS设置为可以选择多行后,每次移动滚动务最上面的最下面的记录都会自动选中呢? 运行Database Desktop时报错:Could not initialize BDE 各位ASP高手进来! 两个小问题,急!急!急! 如何处理Access Voilation错误 有关struct字节数的问题 请深入浅出的讲解一下有关于函数增长的问题。。。 请问一下: NT系统每隔2多小时就需要重新启动,否则IIS就不能发布了,这是什么原因?应该怎么处理呢? 关于字符的转化 初学者的一个小问题,请帮帮忙! 关于网页上面的 word 的问题 "delete p" 会删去 "p" 指针,还是它指到的资料,"*p" ? 一个关于 HttpServlet 的问题 十万火急,寻求援助,win98起不来了,怎样解决。 请问如何确定鼠标在某一点停留时间? 帮帮忙 高分求助!哪一位大侠、高手知道,在Win2000/Win9x中如何读取计算机中的硬件信息!! 请问高手:学习C++ Builder,读哪些书最好? 十万火急,装了一个vb编写的程序之后,系统无法启动了,请问如何解决??????????????????? 怎样判断鼠标在Image 上,用mousemove总是不准确? 怎样把CEditView里面的内容导入到一个变量或数组中 cutelocust(心里坐满孤独)老兄,快来领你的50分啊。 关于日期转换 请问哪里下载这样的控件?特效ComboBox 有关excel Access 报表中如果一页记录数不够显示,将出现空白,怎样解决? 如何在数据窗口中将光标移到指定列上? 数据传递与显示问题? 小弟想找个免费的主页间!! 也不知道是我笨那,还是编译器笨那! 有关excel 关于使用报表的问题 ShellExecute(this.Handle,null,"c:\\",null,null,0)这一句代码为何不能正确执行(不报错)反回值33 怎样安全地移动程序文件 十万火急!用winsock发送大文件时,吃内存太多,如何分开发送?第二下SendData根本没反应 帮帮忙 请教各位!! 很奇怪的一个问题,我在用ADO连接ORACLE时可以执行查询操作,但使用EXECUTE时就出错,不执行,请问为什么呀? DLL声明 请问如何在mfc开发的activex控件里使用formview技术? 为什么将一个普通的txt文件用记事本存成utf-8格式后,前面会多一个“?”呢 欢迎继续讨论手机操作系统的问题! 可用分大赠送,4000分之巨!!!! 罐子里有水沸腾,气压变大,为什么 描写心里不安忐忑的片段,细腻点的求大神指教, 男同性恋学名叫什么 将一定量的水转化成同体积的蒸汽气压为多少?如题,能讲一下计算过程最好. ”也许我的依赖对你来说太过于执著 微笑不能掩饰心里的忐忑“ 什么歌的歌词啊? 云南素有“动物王国”之称,该省特有的野牛(因其腿下部呈白色,俗称“白袜子”)属于国家重点保护动物.动物保护组织成员测量出野牛在水平沙地上站立时留下的一个脚印的面积0.025m2,深度 在高原上,气压小于一个标准大气压,水在 ( )在高原上,气压小于一个标准大气压,水在 ( ) 100℃时开始沸腾.若型号的高压锅的锅盖面积为4.5x10ˉ²㎡,当锅内的了水蒸 二次项系数的一道题我求的的是6r的二次方可是没有这个选项! 为什么玻璃会被打破? 微波遥感与可见光遥感的区别 已知函数y=a的平方x+2ax是关于x的正比例函数(1)求实数a的取值范围(2)当x=1时,y=2①求此函数解析是,画出草图②过A(-3,3)分别作x轴y轴的平行线,较上述直线与B,C两点,清直接写出△ABC的面 vlookup函数的使用,b列c列数据一一对应,a列为b列样本,要查出来样本对应的c列值显示在d列, 地面遥感、航空遥感以及卫星遥感的概念与特点作用.具体写一下特点和作用, 过氧化氢加二氧化锰为什么不会生成氢气和氧气?实际中过氧化氢加二氧化锰生成水和氧气 可是为什么不会生成氢气和氧气 氢气和氧气与水和氧气的元素组成种类是相同的 可为什么不会生成 一个凸多边形截去一个角后形成的多边形的内角和是2520°,求原来多边形的边数. 请问H2O2反应后的生成物一定是氧气和水吗?有没有可能是氧气和氢气? 有关做医生的名人名言 一个多边形截去一个角后,形成的另一个多边形的内角和是2520度,求原来多边形的边数. 为什么飞机遥感比卫星遥感清晰度高 请问:细菌培养基为何氮源高反而菌体生长慢呢? 什么叫谚语?跟名言差不多吗? 遥感中航天遥感,航空遥感,近地遥感为什么航天遥感更新期最短 固体培养基对菌体的生长有什么优点呢?请尽快回答 名言是不是就是格言啊? 关于卫星遥感和飞机遥感的区别 选择:甲、乙两种液体体积之比为:1:3,质量之比为:2:1,则它们的密度之比为:A.6:1B.1:6C.2:3D:3:2A,这种比值问题的计算我还不太会. 名言和格言是定义不同吗 水的凝点随气压变化吗? 用所给物质填空氦气 干冰 食盐 硫酸铜由原子直接构成的物质 由分子构成的物质由离子构成的物质是氧化物的物质 滑动摩擦力怎么做正功 正比例函数y=(m+1)x的图像经过第二、四象限,则M的取值范围是还有2.如果正比例函数y=(k-3)x的图像经过第一、三象限,则写出3个满足上述关系的k的值.3.如果正比例函数y=kx的图像经过点(1,-2 vlookup函数用在什么情况下?如何运用? 滑动摩擦力怎么做正功 氢气和氧气在特殊条件下能否直接反应生成过氧化氢? 如何运用vlookup函数?在我“成绩”表格中有总成绩和语文两个表,如何根据两个条件(班级和姓名)将总成绩表中的成绩引入到语文表格中?注意:一、有可能两个不同的班有重名的,二、一个 设随机变量X与Y相互独立,下表列出了二维随机向量(X,Y)的联合分布律及关于X和关于Y的边缘分布律中的部分数想知道除了答案中填的每个数是怎么得到的啊? 在水平桌面上有两个用轻质绳相连的物体A和B,已知mA=mB,物体与桌面滑动摩擦系数均为0.2.当用水平拉力F拉动系统的加速度a为1米/秒2,问A、B间的绳断开后2秒种,A、B间的距离等于 (g取10米/ VLOOKUP函数使用这个有什么问题:=IF(ISNA(VLOOKUP(H2,SHEET1!$A$2:$B$500,2,0),"",(VLOOKUP(H2,SHEET1!$A$2:$B$500,2,0)) 无法返回值哦 怎么证明一个函数的最大值和最小值例如 已知函数f(x)=x^2+2ax+2,x属于[-5,5]当a=-1时,求函数的最大值和最小值 应该不是将-5 和 5 直接带进去算吧 这样证明是不太简单了.. 物体A,B,C均静止在同一水平面上,它们的质量分别为ma,mb,mc,三个物体的加速度a与其受到的拉力F的关系图打不来.像这样的该怎么分析 质量的大小以及动摩擦因数的大小?我想得很复杂.有没有简 2派的次数和系数分别是 请问y=ax+b/x最小值时x=√b/a,最大值时x=-√b/a如何证明? 细菌培养基什么碳源和氮源 对于正比例函数y=mx,y随着x的增大而增大.则m的取值范围 什么叫做格言 物体A放在物体B上,物体B放在光滑的水平面上,mA=6kg,mB=2kg.A、B间u=0.2,A上细线最大拉力为20NA、F12N时A相对B滑动C、F=16N时B给A的摩擦力为4ND、无论何时,A相对B静止 一个绳子可以承受的拉力为100N,如果两个人分别一50N的力在两端拉绳,绳子会不会断 古语叫狗为什么? 为什么有些培养基要碳源氮源分开灭菌 一根绳子受到100N的拉力就会断裂,把它竖直悬挂起来,下端系一个重50N的物体,若通过绳子的中点O沿水平方向缓向右拉动,则上半段绳子跟竖直方向成( )角时,绳子将断裂,这时水平拉力为( ) 在适宜温度下,采用完全营养液培养黄瓜幼苗,研究营养液中氧含量变化对K‘吸收速率的影响.实验结果如下图,分析并回答下列问题.(1)黄瓜幼苗根系细胞吸收K+的方式是______________,图中ab段为 C 语言 输入一个整数 判断能否被3 5 7整除,并输出以下信息(1)能同时被3,5,7整除;(2)能被其中两数(要指出哪两个数)整除;(3)能被其中一个数(要指出哪个数)整除.#includevoid main(){\ 正比例函数y=(3-2m)x的图像如图所示,求m的取值范围快点 什么叫做家庭的格言? 求大一高数上册(同济六版)复习题,例题 已知重500N的人站在重2500N的船上,当他用50N的拉力拉绳时,船做匀速直线运动,则船受的阻力为《》A.100N 一到初二科学题!谢谢金华的北山上,有丰富的矿产——石灰石,某科学兴趣小组的同学,想测定北山石灰石样品中碳酸钙的含量,进行了如下实验,(1)取石灰石样品9克,(2)将100克稀盐酸平均分 为什么氢气与氧气反应不是产生过氧化氢 “忐忑忐忑 忐忐忑忑 心中上下忐忑” 求下联? 一箱子里装着一些木块,箱子在F=30N水平拉力的作用下在水平面上做匀速直线运动,现从箱子里取出一部分木块,拉力F不变,则箱子所受摩擦力将如何变化?A.不变B.减小C.增加D.无法确定
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘