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

用Visual Basic设计三维图形按钮

HTML文档下载 WORD文档下载 PDF文档下载
用Visual Basic设计三维图形按钮

  Visual Basic是一种非常有效的编程工具,它简单易学,功能强大。世界上百分之八十的Windows应用程序都是用它编写的。本文仅在这里讨论怎样用Visual Basic编制一个三维图形动态按钮。


  三维动态按钮,就是在窗口中凸起显示的按钮。当用鼠标点击它时,变为凹下显示,当鼠标按键松开时,又恢复为凸起显示。还可以为它设计一个提示信息,当鼠标移至按钮上面时,显示在窗口的下端。Visual Basic下的Command控件虽然也是三维显示的,但可惜不能在按钮上设置图案。


  首先,需要两个图标,这两个图标图案一样,只是一个为凸起显示,另一个为凹下显示。凸起显示的图标左、上两边线为亮线条,右、下两边线为暗线条。凹下显示的图标则刚好相反。Visual Basic已经在VB\BITMAPS\TOOLBAR3子目录下为用户准备了一些现成的三维按钮。如果它们不能满足你的愿望,就需要自己设计图标了。图标可以用Windows的画笔软件Paint制作成BMP位图文件,也可以用Borland C下的Work Shop软件制作成ICO图标文件。建议大家用前者,这样更灵活方便一些。不过,千万记着将图案缩放至所需要的大小(用鼠标箭头点住位图四周几个边界缩放点拖动即可)。否则,您的按钮可能大的将充满整个格式窗口。较简单的方法是打开一个Visual Basic现有的三维位图,在上面大肆修改以后,换一个文件名存盘。假定,你的凸显位图文件名为3D-up.bmp。凹显位图文件名为3D-dwn.bmp。


  现在来设计三维按钮控件。Image控件和Picture控件均可用于制作三维按钮。但Image控件效果较好一些。假设你的三维按钮控件名为Image1。设置其Picture属性为C:\....\3D-up.bmp。三维按钮事件的过程程序可以有两种方法编程:


1. Sub Image1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)


  image1.Picture = LoadPicture("C:\......\3D-up.bmp")


  End Sub


  Sub Image1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)


  image1.Picture = LoadPicture("C:\......\3D-dwn.bmp")


  End Sub


  Sub Image1_Click ()


  [用户按钮执行程序]


  ......


  ......


  End Sub


  另一种方法是:


2. Sub Image1_Click ()


  image1.Picture = LoadPicture("C:\......\3D-dwn.bmp")


  [用户按钮执行程序]


  ......


  ......


  image1.Picture = LoadPicture("C:\......\3D-up.bmp")


  End Sub


  如有必要,可参照上面程序再编制一个双击按钮事件过程。


  当鼠标移到按钮上面时,在格式窗口下端显示一行提示信息的设计方法是:在格式窗口最底部增加一个标签控件Label1,设置其Caption属性为空。编制按钮事件过程如下:


  Sub Image3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)


  Label1.Caption = "<提示信息......>"


  End Sub


  别忘了当鼠标移出按钮时擦掉提示信息。编制格式事件过程:


  Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


  Label1.Caption = ""


  End sub


  除非你把格式边界类型BorderStyle定义为0-None、3-Fixed double类型或者1-Fixed Single类型外加取消最大化按钮和最小化按钮(将格式的MaxButton、MinButton属性设置为False)。否则,当用户改变格式窗口大小时,你的提示信息有可能不在窗口的底部、或者短于窗口宽度甚至丢失,所以提示信息的位置和长度应随着窗口的变化而改变。具体编程如下:


  Sub Form_Resize ()


  label1.Top = scaleheight - label1.Height


  label1.Width = scalewidth


  End Sub


$.merge(first,second)-JQuery API $.trim(str)-JQuery API Ajax-JQuery API $.ajax(properties)-JQuery API $.ajaxSetup(settings)-JQuery API $.ajaxTimeout(time)-JQuery API $.get(url, params, callback)-JQuery API $.getIfModified(url, params, callback)-JQuery API $.getJSON(url, params, callback)-JQuery API $.getScript(url, callback)-JQuery API $.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API loadIfModified(url, params, callback)-JQuery API serialize()-JQuery API Accordion(settings)-JQuery API activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API *******ASP调用数据库记录集的报表,你用什么写******** 善待自己 NO.1 事缓则圆 有关波兰表达式的问题 请各位大虾帮我一把,谢谢! 首先谢谢d983074(d983074)和 ssl2000(大宋)两位大虾。但我在stringgrid中只删除选种的一行,后面行不删除,该怎办? 数据库的问题,小弟刚来,分太少,请各位谅解 太棒了!!! 散分!!! 快进来! 如何让子控制不截获发送给父窗口的消息? 关于文本框的问题 在菜单项中加入小图标 求救: 这是什么语言!!!! "::="??? 100分请教,如何将DBGrid中某字段为空的记录全部删除, 和过滤掉重复的记录? 繁体版的软件选什么字体? 关于虚拟主机的问题 DELPHI7带了一个挺不错的工具:ModalMake 6.2 如何得到文件控件中的值? SOS!!!在线等待,立即给分 关于密匙的问题? 关于Kylix unix系统有中间件吗? 架設smtp的問題??? FastNet组件 怎样在sql语句中进行数据转换啊 在线等 ,,,怎样获得汉字的编旁 在程序中用函数设置session的时效、存放路径 如何在ms-dos下降低cpu的运行速度?(汇编,C高手请进) 求解决链表问题 请教:如何在linux嵌入系统中编写外设驱动程序.谢谢 Micrsoft JDK nmake生成的EXE文件反编译问题!!! 多态问题 专业调查:军训练什么,学到什么!!????? 使用IS for Delphi 4制作安装盘.安装时时出现401号错误(字符串变量不够长) 介绍几本VC入门的好书 大家谈谈,数据库应用程序如何设计及使用类! Oracle的登录问题! 请问如何在VC中取得传入的参数? 现在的浏览器还支持不支持applet啊?高手救我!--------怎么写一个applet兼容更多的浏览器? 请问那里有这种工具??近来看看!! 请capboy等写过filter的各位前辈指点 利用DW制作一张确定最佳分辨率为800*600或者1024*768的页面, 急 求助: 怎样获得系统当前可用的字体? 如何打印FormView? 如果你是VC高手,对COM有深入了解,欢迎! 我今天看了我英语过级的公布成绩,我得了一个天险数字60。5分,请问。。。。。? 谁有linux下的mod_webapp.so DW UltraDev里rs.source="select * from stu where banci=request.QueryString("banci")这样是不是不行? Microsoft JDK nmake生成的EXE文件反编译问题!!! 各位大虾:请问谁能告诉我哪里能找到win xp home edition plus???如果能让我找到,送1000分 请问如何将PaintBox.Canvas的当前内容保存至内存, Linux下c语言程序该怎样运行? 请问:vb.net中oracle数据库能否支持blob格式? 傅科摆是怎么一回事? 关于诱惑的作文 一道电磁感应的物理题目一根电阻为R=0.6欧的导线弯成一个圆形线圈r=1m,m=1kg磁线圈放在绝缘光滑的水平面上,在y轴右侧有B=0.5T的匀强磁场,线圈以初动能E=5j沿x轴方向滑入磁场当进入磁场0.5m时 调味料食品包装机,辣椒粉包装机,五香粉包装机这些的四边封粉末包装机哪里有? 作文 诱惑 人们为什么将地球称为美丽的蓝色"水球?" 假定在北极点放置一个傅科摆,初始时摆沿90度E和90度W线摆动,则3小时以后此摆的摆动方向是怎样的? 运用文化传承的知识分析我们应该如何增强文化自觉与文化自信 地球为什么被称为是一个水球? 摆在摆动的过程中,能量是怎样转化的?摆为什么能长时间不停的摆动?过一段时间,为什么会慢慢的停下来? 运用生活与哲学的知识,应如何进行创新. 一道有关电磁感应的物理题如图所示,用电动机沿竖直导体框架牵引一根原来静止的金属棒ab,棒的长度L=1m,质量m=0.1kg,电阻R=1Ω,导体框架处在水平的匀强磁场中,磁感应强度B=1T,棒ab与框架接触良 三鹿三聚氰胺事件是怎么引发的 摆在摆动的过程中能量是怎样转化的? 引起植物向光性外因是单侧照光,内因一定是生长素分布不均.为什么? 一个圆柱形状的煤堆,底面周长25.12m,8m.(1)这个煤堆的占地面积是多少平方米?(2)如果1立方米的煤重1.35吨,这堆煤约重多少吨?(得数保留整数) 食品干燥剂有毒吗 高中政治题必修三文化的影响!求知识扩展!两千多年前,孔子提出了“君子和而不同”的思想.这一思想对中华文化产生了深影响.(1)请你列举一个事例,说明中华文化的这一特点.并写出本题 摆具有保持摆动方向不变的的特点吗? 摆动如何改变方向 晶体结构题22.理想的宏观单一晶体呈规则的多面体外形.多面体的面叫晶面.今有一枚MgO单晶如右图所示.它有6个八角形晶面和8个正三角形晶面.宏观晶体的晶面是与微观晶胞中一定取向的截 用层次分析法分析下面两句句法结构层次人人 都 热爱 自己 的 家乡老师 和 学生 制定 出 了 复习 计划 摆在自由摆动过程中,快慢有变化吗 父亲基因为Aa,母亲基因为Aa生出来一个男孩,正常.孩子长大后,与另一个基因为Aa的女孩结婚,胜出的孩子患病几率为. 可逆反应CO(g)+H2O(g)=CO2(g)+H2(g)在密闭容器内达到平衡,当温度为749K时,当CO的起始浓度仍为2mol/L,水的起始浓度为6mol/L,则CO的转化率为? 请推荐一款可以测量电压、电流和功率的IC... 广告的作文 可逆反应CO(g)+H2O(g)==CO2(g)+H2(g)+Q(Q大于0)达到平衡后,改变下列条件,不能使正反应速率增大的是A升高温度B充入H2O(g)C增大压强D降低温度 急求输出电压0~5V可调IC和电路图输入3~6V,输出0~5V,电流要求不高300MA~800MA都行,最一直在找相关IC,请各大侠推荐下IC或电路,我看过LM317好像是1.25V到37V可调,我想要的是0~5V这段,还有输入电压问题 说是“地球”实为“水球”为什么世界上好多地方缺水(含我国)? 硫酸可不可以腐蚀电桩?什么可以快速腐蚀电桩? 作文:欣赏广告语,如果没有联想 世界将会怎样? 为什么男人秃头要比女人多 用层次分析法分析这个句子的句法结构:“具体过程我也不清楚”(左边的就是句子,不是说我不清楚) 求直流可调电压的电路,或大功率IC ,内详开关电源输出36V,电流有10A,我需要弄一个可调节电压的电路,最好是0到36V,当然5到30V也可以的,但是电流最好能保证在7A左右,请问有什么简单一点的电路 为什么总是男人比女人先秃头?这是脑筋急转弯 用层次分析法分析句法结构!怎么分析啊?“非常热爱祖国和人民的英雄”这句话用层次分析法分析句法结构,怎么分析啊? 袋式过滤器工作原理及工作特点 人类男人秃头,对非秃头是显性.现有褐色秃头的男人和蓝眼非秃头的女人配婚,生下一个蓝眼秃头的女儿和一个褐色秃头的儿子这对夫妇的基因型分别() () 除去乙醇醇中的苯酚怎么去除 剧毒鹤顶红,其剧毒是来自丹顶鹤吗? 人类中男人的秃头(S)对非兔头(s)是显性,女人在S基因为纯合时才为秃头,褐眼(B)对蓝眼(b)为显性,现有秃头褐眼的男人和蓝眼非秃头的女人婚配,生下一个蓝眼秃头的女儿和一个非秃头褐眼 乙醇中含有苯酚为何不能用溴水除去急 鹤顶红跟丹顶鹤有什么关系? 如何讲作文课 乙醇和苯酚的区别 鹤顶红是不是由丹顶鹤头上那一点点红颜色做成的? 英语作文:如何看待青少年看电视 解释为什么傅科摆具有摆动方向不变的特点,而它的摆动方向会发生变化? 为什么博科摆能证明地球自转? 100厚的c25混凝土地面承受力每平米有多大 粉末和颗粒包装机只局限包装粉末和颗粒吗、是从进料口决定吗? 什么是“博科摆”?它是怎样证实了地球在自转的? 问一题物理电磁感应的题目10.如图7所示,平行金属导轨的间距为d,一端跨接一阻值为R的电阻,匀强磁场的磁感应强度为B,方向垂直于平行轨道所在平面.一根长直金属棒与轨道成60°角放置,且接 为什么“摆”(例如傅科摆)总是会在一个平面内摆动?这个问题就是证明地球自转的一个重要元素啦……但阿拉不懂啊……希望高手们能够解释得稍微通俗点哦……俺的知识还没那么丰富啦 请问其是独体字还是上下结构? 一道物理电磁感应题如图所示,粗细均匀的电阻为r的金属圆环,放在图示的匀强磁场中,磁感应强度为B,圆环直径长为L,电阻为r/2的金属棒ab放在圆环上,以速度v向左运动,当ab棒运动位移为L/4和L/2 包装机 包装秤 包装称 吨包机 吨包装机粉体包装机 粉剂包装机 粉末包装机 颗粒包装机 液体灌装机 超微粉包装机 桶装包装机 敞口袋包装机 矿粉包装机及定做包装机 吸引旅游顾客的广告语是去西安广告语.我实在没分了.是去西安旅游广告语.我实在没分了. 一道电磁感应的物理题一半径为r2电荷线密度为λ的均匀带电圆环,里面有一半径为r1总电阻为R的导体环,两环共面同心(r2>>r1),当大环以变角速度ω=ω(t)绕垂直于环面的中心轴旋转时,求小环中的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘