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

用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环境下运行通过。
□江苏 蔡可训
透过现象看本质:详谈数据可视化 专家观点:HTML5无法彻底抹杀Native应用 Google地图工程主管Raj Shah跳槽至微软在线服务部门 微软证实Windows 8.1引入类“开始”按钮 系统6月26日开放下载 PHP开发者意向调查:移动开发+云服务成为焦点 研发周报:16种折磨开发者的方式 移动周报:Jolla和Sailfish OS,那些你应该知道的事儿 优化技巧分享:把内存消耗降低至原来的1/20 85后程序员:独自一人,完成一个HTML5开源图形库 关于Waze的前世今生,你所不知道的事 代码审查——提高代码质量的终极武器 值得开发者关注的8个HTML5 API 最初设计方案大公开!LINE STAMP 贴图诞生记 安全宝联合华为成立抗D联盟 储备防御带宽达110G 专访中科院贾海鹏:给异构开发者的六个建议 我们死后的遗留数据将会如何处理? 传微软考虑重大重组 或势在必行 云适配CEO陈本峰:8年磨一剑 Splashtop企业应用:SplashApp让办公移动起来 时空旅行+内付费“植物大战僵尸2”下月18日全球同步发行! 中移动推网络电话Jego 后来者能否居上? 防止数据泄露:BYOD下的管理员5大妙招 咕咚副总裁司建铭谈移动时代的“软硬整合” 未来的物联网结点:可穿戴设备 应用开发的4个技巧,让程序能真正为用户使用 Google早期的10个API:它们现在在哪? 为啥微软开发产品总是慢半拍? Visual Studio 2013 Preview新功能预览 “中国手机游戏四月流水榜”出炉 超半数基于Cocos2d-x引擎 为移动而设计之信息架构篇 难逃厄运:Zynga将关闭Draw Something母公司OMGPOP 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个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,给点提示吧 编译SERVLET时老出现"...包 javax.servlet 不存在..." ? 请教关于 98中 Personal web Server的问题 辽宁4:0狂胜广东,爽丫!SB广东解说员居然说中国足球没戏了~~~~~~~~~~ 用APPLET做一个上传的东西可以吗???? "我的问题"栏中,只剩下未解决的了,已给分的为何都不见了? 在CSDN和大富翁都没人会答的简单OLE问题,唉! 我是shijie819有问题?? 各位高人,看看代码,不能输入汉字只能输入英文,问题在那里? 如何将编好的n个模块连接到一个工程 请教!关于listbox的列属性? Applet为什么能在JBuiler5中调试,而不能在浏览器中显示 SOS!谁有语音卡编程的经验和资料,恳请指教!给分的! 谁有用VC++中ODBC API 编写数据库的例子? sql server 有沒有邏輯型字段!!! 电娃娃领分!!!!---goldsun发 猛禽进来拿分. 谁有画线的函数源码,参数为两点坐标? 如何将xml中的数据转换成动态的数据图形显示啊 我眼中的高中生活(1000字作文) 话题作文之把心放宽800字 关于探索月球奥秘的作文月球又称“月亮”.在望远镜发明之前,古代的人们只能在晴朗的夜晚,用眼睛仰望皎洁的明月.看到月亮表面有明有暗,形状奇特,于是人们就编出如嫦娥奔月、吴刚伐桂 有木有红色书籍读后感300字的? 求一本爱国的书的读后感,200字够字的, 探索月球奥秘 作文 作文我原来没懂600百字 赞美母亲的作文350字henji 探索月球奥秘 作文500多字探索月球奥秘 谢 谢 以快乐的一天为主题,写一篇英语文章写一篇主题为快乐的一天,50词以上 妈妈对我的关爱 作文!350字以上 300字作文 探索月球奥秘 关于《快乐的一天》的英文短文 感谢你,妈妈的作文怎么写要作文! 庆国庆作文1200字我都快愁死了~1 高中生的自我介绍 800字说说自己的兴趣爱好,性格特点,喜欢怎样的人,爱看怎样的书及电视电影,对未来的憧憬等等 一篇(现在进行时)英文作文(写下课) 读爱国书籍有感1000字随便什么爱国书籍都可以```1000字哦`` 原来我没懂 作文急 关于春节期间快乐的一天的英语小短文(跪求)关于春节期间快乐的一天的英语小短文.大家有什么就发上来啊!拜托了! 关于外国作家的作文素材.如巴尔扎克,勃朗特,奥斯汀等等…人文性的作文素材,不是单纯的介绍…是工整生动的语段,可以包含作品,思想…使得多个事例可以整合为排比的语段… 以功名与名声为话题作文 800字..像个高中生写的就行以下列的文字写作文,人一般都很重视自己的身后之名,这常常体现概括一个人一生伟业的墓志铭上,但是,有些伟大人物的墓志铭写的 革命书籍读后感什么书都可以,一定要是革命书籍啊! 高中作文素材作文题目是 《绝处求生》,高中议论文,有什么好的素材吗,比如一个人陷入了一个绝境,但是他通过自己的顽强的拼搏,斗争,化险为夷,最后取得成功或得到新生的那种,如果这样范 原来我没懂,作文 红色革命书籍读后感关于红色革命的书籍作者及内容及读后感,内容简略一点读后感多一点,急 急 中学作文素材求助1、记住这一天2、我眼中的色彩3、在学海中游泳4、黑板上的记忆5、悄悄地提醒6、心里美滋滋的 请提供以上六篇作文题目的素材,每篇写50-100个字左右提纲.先给100分,提纲每 关于幸福的话题作文800字 求1篇1000字关于难受的话题作文 奇思妙想作文100字 作文 “原来我没懂 ”600字 爱国书籍读后感500字,急!1 奇思妙想的作文200字的 狼图腾读后感800字 麻烦帮我找一本爱国书籍的读后感,400-500字左右就行了,快《红岩》不要! 奇思妙想作文(400字) 小学6年级水平狼图腾读后感500字别写太好也别写太烂 有关爱国的书.顺便也写一下读后感500字. 奇思妙想 作文 600字左右体裁为寓言、童话、记事为主 狼图腾之小狼小狼500字读后感 这是幸福的作文怎么写?急啊啊啊啊啊啊啊啊~~~~~~~! 爱国的读后感200字 可以给这篇文章取什么名字? 给写冬天的作文取一个什么样的名字 以和谐话题的作文怎么写 评价下这篇文章顺便取个名字吧谢谢! 一本爱国书籍 读后感 快400字左右 以和谐为话题的作文 我想取一个比较富有哲理的昵称名字, 假如这个星期天你想和家人去公园,请用英语写一篇文章说明你的打算及原因. 以 和谐 为话题的作文不要太长 800字左右就OK1 高中1000字作文 生活就是舞台1000字高中作文 话题:生活就是舞台 周末你和家人干什么 英语 小短文(用上Be going to) 以和谐与发展为话题的作文话题作文行就可,适合现如今的国情,不要老掉牙的!创新作文 高中作文《我的暑假生活》1000字 给文章取好听的名字 以“和谐”为话题写的作文要好的 感恩生活 1000字高中作文! 心灵的屋檐600字 帮忙写篇初一作文(探索月球奥秘)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn