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

用VB作浮动式图标提示按钮

HTML文档下载 WORD文档下载 PDF文档下载
用VB作浮动式图标提示按钮
作者:蔡可训
凡是用过WINDOWS OFFICE的用户,都非常熟悉这种情况,把鼠标移到这个图标的按钮上,不一会儿在这图标的下方会显示一些简短的文字,说明这个图标按钮的作用。笔者在工作实践中,用VB实现了上述功能,同时为了使图标按钮更具动感,笔者将图标按钮设计成浮动式图标按钮,即当鼠标移到图标按钮上方时,按钮会自动下沉;鼠标一离开按钮上方时,按钮又会自动浮起来。
1.建立含有如下控件的窗体:
控件 NAME
CAPTION VISIBLE BEVELWIDTH
窗体 BOTTON-DEMO浮动式图标按钮演示程序 ’程序窗口
3D命令按钮 COMMAND3D1 1’作为按钮的阴影,大小与按钮一致
3D命令按钮 COMMAND3D2 3’该按钮与阴影稍微错位叠加
标签 LABEL1
FALSE ’显示图标按钮作用的文字
2.定义两个整型变量,用来存储按钮左上角坐标。
(1)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS(声明),系统进入窗体级代码的定义窗口中。
输入下列定义:
Dim comm2-x,comm2-y As Integer
(2)双击窗体,进入窗体装入事件代码窗口:
SUB FORM-LOAD ()
COMM2-X=COMMAND3D2.LEFT
COMM2-Y=COMMAND3D2.TOP
COMMAND3D2.Picture=LoadPicture("C:\FPW26\FOX.BMP)'装入图片
END SUB
3.当鼠标移到按钮上方时,使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影,所以在视觉上就有按钮往下沉的感觉,同时激活标签显示该图标按钮作用的文字。
双击图标按钮,进入命令按钮MOUSEMOVE事件代码窗口:
Sub Command3D2-MouseMove (Button As Integer,Shift As Integer,X As Single,Y As Single)
command3D2.Move comm2-x+9,comm2-y+9
LABEL1.BorderStyle=1
LABEL1.BACKCOLOR=&H0000FFFF& ' 显示文字的标签框底色为黄色
LABEL1.Visible=True
LABEL1.CAPTION=“演示”
End Sub
4.当鼠标一离开按钮时,就将按钮固定在其原来位置上,就可造成按钮上浮的视觉效果,同时关闭标签变量的显示。
双击窗体,进入窗体MOUSEMOVE事件代码窗口:
Sub Form-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
command3D2.Move comm2-x,comm2-y
LEABEL1.Visible=False
End Sub
以上程序在AST PIII+4/66D上,中文WINDOWS 3.2,VISUAL BASIC 3.0 FOR WINDOWS环境下运行通过。
□江苏 蔡可训
首款使用HSA架构的Kaveri APU、多款异构计算开发工具APU13上齐亮相 分享10段实用的HTML5代码 十条建议送给那些初入职场的小白 这是要灭掉DC的节奏?谷歌欲推Android摄像头API 支持RAW 专访产品经理Markus Spiering:冬眠多年后的Flickr如何在夹缝中生存? 创业与投资专题论坛:硬件的现在!创业的未来? 造就Office新用法:微软推WP应用 可遥控Office文件 成为一名PHP专家其实并不难 前富士康CEO程天纵:创新来自长尾,创业源于创客! 最危险的开源项目——比特币 11月20日:微软正式发布Windows 1.0 回顾历代Windows版本界面 微软CEO鲍尔默卸职前在股东会上的最后演讲 微软改革员工排名制度或将开启新篇章 【快讯】SAP联合中国电信,又一外商公有云曲线入华 微软CloudOS云操作系统构建企业级三云合一 IE11支持JavaScript新型API,Web应用国际化更便捷 谷歌推订阅应用Play Newsstand:杂志+RSS阅读器 【信息图】到2020年开发者、设计师、测试员的数量将达到史无前例的高度 推广与盈利专题论坛:中国影响世界,世界定义中国 SlideIdea CEO李建忠:移动产品的技术面思考 BDTC→→百度林仕鼎、腾讯蒋杰、阿里唐洪论道大数据平台与技术 谷歌首席互联网布道师:隐私保护并不是一种正常行为 微软公开“挑衅”谷歌,出售反谷歌标语T恤 四大UX设计原则,打造网站最佳浏览体验 【BDTC讲师】黄晓庆:从小灵通到Hadoop与实时大数据分析 【BDTC讲师】杨强:从禽流感预测到图片语义解释 2013中国大数据技术大会讲师议题正式发布 “2013中国大数据周”即将开幕 正式发布中国大数据现状白皮书 搜狐畅游发布3D游戏引擎Genesis-3D 基于MIT协议开源 传闻微软将收购AOL旗下的Winamp和Shoutcast 【BDTC讲师】大数据时代“掘金机”:百度、360、一淘搜索技术分享 GetCellDigital返回值有误 目录树记忆属性实现的讨论 关于用户自定义类的问题 自制控件问题 静态链接库中的资源 Xml的查询定位问题? 小高求助! 关于JAVA文件执行时出现的错误 如何在Datagrid中取得当前记录的某字段值? 如何取得下拉菜单项? 目录树记忆属性实现的讨论 我想去中国网通申请域名,他们是不是很吊,有没人用过啊 Help 删除一条记录?? 在研究软件加密 “咱们把最好的粮食给城里人吃,又进城帮助他们盖起了高楼大厦,他们为什么还瞧不起我们呢?” 老板今天叫我签合同 有关于TImage的图像显示速度 怎样让 Title 的显示时间延长????????? !!!!!!!!!格式化数据列 怎么这么慢啊 请问:如何在打印之前设定该次打印纸张的大小(很急,老板催货了,帮忙顶一下,谢谢)? 有什么办法可以把class文件反编译回java文件? 如何写到文件? 自己写一个函数,把2,3,4加到1,2,3中去,不重复 Netscape打印中文网页为什么不成功? 英文XP中装了东亚语言包,能显示中文了,如何输入汉字呢。。。。 接到一个电话 哪位大哥大姐教教我啊? Dll如何同控制台程序通信 RedHat Linux7.2下如何挂上RealTek8139网卡驱动????高分相送哦!在线等待!!! TreeView问题 求register_globals = On和register_globals = Off的不同用法(原代码) 斑竹,我是因为升级才散分的,有个穿红裤衩的支持俺了…… 一个新手的加急求救!谁先回答,就先给谁份,希望大家说的详细点! 写xml文件的不完整的问题 关于esqlc的unload 的问题。 关于方法覆盖,在线等候 一个实际开发中经常令人头痛的问题 在线,急,谁有3D MAX的下载地址?高分! 推荐IT公司调查 监测表记录字段变化情况 如何能够得知table中的字段是什么类形?(如字符,数字,浮点等) SUN认证是不是“纯”English的? 在windows 2000下,如何在perl脚本中,执行另外一个perl脚本文件?? JPEG图片压缩 新工程收尾,请提宝贵意见!!! 钱是什么??钱是王八蛋,没了在去赚!!!!!!! 我用Jet把java编译成本地可执行的程序了,可是换一台机子又不可以运行了,说是需要有jet的运行坏环境,那还不如安装JVM呢。求高手教我怎 这个数据窗体怎么做!!? 静态链接库中的资源 计算机拔掉插头后计算机卡住了,强制关机没用,我直接拔的插头,现在按开机键没反应,插头插上会有接通电源的声音.我回家后,电脑恢复正常了,感谢各位亲们的解答! 人体心肌的核呈现什么形状?1.柱状;2.菱状;3.卵圆形 酶对人体有哪些作用 无线路由器平时应该拔掉插头吗?我们晚上睡觉拔掉,白天又插上(每次拔都是拔路由器那边接口,不是墙上插座那),2个月以后发现路由器不怎么好使了,.我不知道是不是我们经常拔插头的原因 人体在什么情况下卵细胞会分裂成两个或三个? 交流发电机旋转的问题.旋转线圈式发电机和旋转磁极式发电机,同样是旋转,为什么后者能发出比前者高得多的电压?如果线圈和磁极都旋转,只是方向不同,这样会不会更有效率呢? 怎么办 精卵刚结合身体有什么症状吗? 旋转电枢式交流发电机来看看这张图是不是有问题 各位初二上物理难吗 把一个磁铁做成球型,它还有没有磁性?如果有,那N-S极怎么确定? 交流发电机是什么让线圈转动的? 要考马哲啦,请知道的同志回答一下:如何理解时间是人的发展的空间?大约200字. 初二的物理难吗.我马上初二了 网络工程师分类多少种? 电表怎么看 红色 请问初二的物理难吗?应该怎样学呢?应该用什么辅导书呢? 语言不丰富用什么词来形容 倒着读和顺着读意思一样的词语,写3个 初二的物理难吗? 什么样的酶对人体血管细胞有好处? 一个词语正着读,倒着读,意思一样,有哪些? 我现在初二了,那又如何去学物理呢?有什么好方法呢? 青年人当如何践行中国梦 正着读和倒着读意思一样的词语比如合适-适合 边长是200米得正方形的面积是()公顷 青年人的梦与中国梦有何关系? 硫酸铜精粉的成分是什么?其中硫酸铜的质量分数.想做实验. 一道化学题目(关于离子)某无色溶液中能最大共存的离子组是A.Na+ H+ Cl- Cu2+ B.OH- K+ SO4 2-C.NO3- Mg2+ Cl- K+ D.Na+ OH- NO3- H+要理由啊, 你的梦,他的梦,青年人的梦,与中国梦有什么关系? 想入手一只水族箱,是森森水族箱好还是佳宝?近日箱入手一只水族箱,但是不知道是森森水族箱好还是佳宝好,或者别的什么牌子!请各位大侠赐教! 创星过滤桶at与cf有什么区别创星过滤桶有不少系列!ef cf at df都有什么区别呢! 郡县和郡县制的区别郡县和郡县制有什么区别 森森302过滤桶 声音大么 这个桶怎么样 火线与大地之间为什么没有电压搞错了,是火线与大地之间有没有有电压 工程师怎么分级 《生命生命》课堂观察记录“教什么” 读新单词时,要不要把中文意思读出来?说说清楚一点为什么 豆在釜中泣中的釜是什么意思,泣是什么意思 两块同型号手机电池,铜片负极对负极分出一根线 正极对正极分出一根 然后焊接USB口 插上数据线可以充电吗已经搞好了现在正在充电,正负极 分出来一根线是USB口,一个是万能改装充电, 有没有什么好的英语学习软件,能先读英文然后读英文单词的中文意思 《七步诗》萁在釜下然,豆在釜中泣. USB里的红 绿 黑 白线接成1个正极和1个负极的该怎么接? 在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小…………在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小,P越大,P越大,热量就越大,为什么电炉要用电阻小的 “萁在釜下然,豆在釜中泣” 其中“然”是什么意思,“泣”是什么意思;这句话是什么意思?详细 这个usb线哪个是电量正极 哪个是负极 有表扬意思的四字词语 “萁在釜中然,豆在釜中泣”中的“然”和“泣”分别是什么意思? 3D眼镜中,红蓝和红绿有什么区别?买3D眼镜的时候会发现有红蓝 红绿两种,有什么区别吗? 关于设定行政许可,下列说法正确的是a.较大市政府规章可以设定行政许可b.省政府规章设定行政许可最长期限为2年c.国务院部门规章不可以设定行政许可d.省政府规章不可以设定行政许可答案 家用电器长期使插头插在插座上不拔会有什么不好的影响吗?火灾?电器线路损坏? 和红蓝、红绿眼镜有区别吗? 关于规章设定行政许可,下列说法正确的是()A、有规章制定权的机关就有权设定行政许可B、规章可以增设前置性行政许可C、上海市人民政府可以设定临时性行政许可D、国家部委可以设定 电器不拔插头费电吗用电器不工作,插头还插着, 直流电源插头的中心线是正极还是负极? 形容龙的词语,不要四字词语. 家用电器关闭后如果不拔插头,对电器有没有影响,会不会有危险 有哪些词语顺着读和倒着读意思不相同 百科、复制看不懂.焦距是镜头长度的意思、还是镜头到成像孔的距离、还是能把被摄物体放大多少距离的意思?(或者是什么)还有通常我们说的什么120相机 35mm相机又是指什么?是指镜头到 哪种拔罐器好 金正恩参谒牺牲烈士墓地 称心疼得睡不从奥巴马借助大数据成功连任说起美国一位妈妈送13岁儿子手机前“约法人民币升值,钱却为何越来越不值钱埃及审判穆尔西或将引发新的流血冲突俄罗斯:严防“黑寡妇”袭击 确保冬奥俄称斯诺登可去德国协助调查窃听事件泰国沉船事故致一中国人遇难 渡轮超载苏格兰首席部长访华 推动双方经贸合作苏格兰首席部长访华 推动双方经贸合作缅甸穆斯林赴邻国避难遇海难 或死伤惨中国海外移民生存录:从\"卖猪仔\"美澳联手监听亚太 “特等舱”行动曝光印度女婴家传怪病 身体多毛酷似狼孩【深秋也会得热射病 永康男子差点没了命男子驾车时低头捡手机 一抬头开偏车道宁海男子欠前女友20万元不还 法官上曼德拉生平电影首映 前妻称反映其“苦英一医院误诊流产百例泰国沉船事故致一中国人遇难 渡轮超载武林CBD将启动推进11大项目 新增武汉化工区跻身全国20强云集酷玩产品的“亚马逊发明家”来了本报2名记者15名志愿者昨起重走长征阮成发部署我市党风廉政建设宋仲基、黄宗泽都要来了协和医院本周六上午 免费检查甲状腺疾高楼镭射灯晃得对面居民家里像舞厅女会计按“克隆老总”旨意转出85万安全解救顶级水彩画双年展来汉龙摄影“超惠团购” 1999元秒杀洪山区政府党组成员、副区长易文军接受男童8楼坠下奇迹生还觅爱情书 寻找不二选择比尔盖茨基金钟情鄂武商A爱美女士打玻尿酸隆鼻致溃烂流脓蜜时Cake爱的纪念日逼停武汉至大冶北城铁1小时司机在家门口就可轻松换驾照留给朴泰桓的时间不多了!CAS处理案“醉猫”驾车逃进非机动车道被卡住
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘