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

用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


9月13日:程序员节,一起来过节吧! 欲与Siri、Google Now比高低:微软开始打造个人助理Cortana 【开源专访】禅道创始人王春生:覆盖项目全周期,回归管理的本质 携程无线创业者大赛成功落幕 梁建章为头名“快展”颁20万奖金 Bug报告:小角色,大用处! iOS开发者必备: 五大编程类工具 多核优化软件MCx释放EMC VNX闪存潜能 手把手教学:详解HTML5移动开发框架PhoneJS 快速学习新技术的几条建议 研发周报:Angular.js or Ember.js 谁将成为Web开发的新宠? 10款免费且开源的项目管理工具 Greg Pass:拯救Twitter的无名英雄 Cassandra杀回数据库排行Top 10,及需求Java 7的2.0版本 安全专家王清将揭秘“大数据时代的大安全” BrainSpace:跟传统搜索说再见 艾普网络的OpenStack实践 移动周报:无需编程,分秒钟DIY一个移动网站 抢占先机:豌豆荚发布视频搜索产品 Cloud-Connect大会Day1:OCP与SwiftStack 云智能手机,将会很快威胁到Android和iPhone? 直接拿来用!超实用的Java数组技巧攻略 腾讯云俱乐部上海站:电商如何利用云提高核心竞争力 iOS开发者必备:六大图片、图标处理类工具 腾讯向搜狗注资4.48亿美金持股36.5% 推荐五款流行的JavaScript模板引擎 为何人人都将成为程序员?看32位美国顶尖精英的说法! MySQL再度失势:继维基百科之后,Google也迁移到了MariaDB Werner Vogels:亚马逊热爱艺术的CTO Jolla宣布Sailfish OS兼容Android手机硬件和应用 为什么项目估算偏差如此之大? Cloud Connect大会Day2:开源与云数据中心 &&为何意? sql安全问题 在jsp中有哪个函数可以得到ping一个IP的时间,还有怎样得到从查询到得到结果所发费的时间? 谁有关于sql数据库开发的论文,题目是学生档案管理,相关的也可以。(给500) 请教思归!!asp.net中弹出对话框的问题 怎样设置权限。 很简单的一个关于在文本框中换行的问题 急求VB+sqlserver开发学生档案管理方面的论文。高分(500) 还是多表问题 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问,ConnectionString 属性尚未初始化? 爱上一朵有主之花,郁闷ing,请各位出出注意。 为何我没法将贴子发出去?! 爱上一朵有主之花,郁闷ing,请各位出出注意。 请问全局对象为什么先赋值为NULL? 急急急急!!急死我了!大哥们帮帮忙,打印不正确走纸问题! 硬汉对照:一位计算机大师,LISP语言的创造者之人生感悟。看者玩呗。[zt] 爱上一朵有主之花,郁闷ing,请各位出出注意。 请看这段JDBC代码 ./ 是什么意思? 如何把WEB Method指定为用GET方法传递常数? 像MSN那种有邮件时就提示的那个小窗口要怎么做? 用什么API函数可以实现big5转换为gb 关于文件上传问题,大家都使用htmlcontrols.htminputfile控件吗? 各位大虾,关于扫描仪的错误2800:0000是指什么错误?急!!! 请问如何在载入页面前,跳出一个询问用户名和密码的窗口,然后验证用户身份? MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 关于上网的问题 关于图片的循环移动问题 寻求共同创业的伙伴! 关于Keil C51的编译问题 谁有《 Inside The C++ Object Model》英文版电子版 请教《深入浅出MFC》中有关“动态创建”的一个问题。 图像缩放和居中显示的问题 请教如何用DDraw实现屏幕随鼠标移动而滚动,就象星际中的地图比屏幕大,但可以滚动显示。 一点问题,劳驾各位高手啦。。谢谢!!! 一个双向链表得问提求救啊 截获、修改本地程序通过socket发出的包的问题 帮忙给下面的句子找找错误首先使我们养成良好习惯 to begin with to make people form good habits.其次树立正确的人生观 then set up the correct outlook on life.我们将努力做好这件事 we will try our best to do thing 简述经典力学的发展过程,举例其中重要人物的贡献.结合牛顿自然哲学思想谈谈自己的体会. 形容气势雄伟,不同凡响的词语(最好写成语) 这个句子有3处错误,暑假的一天中午,黎明正在家里看“西游记”.正当他看的津津有味的时候,居然听到妈妈在屋外大声喊道:“下雨啦,快收衣服!”他急忙赶快向屋外跑去. 椭圆到相离直线的最短距离怎么求? 鲸的繁殖过程是怎样的? 帮助找找句中的错误.They can not put up with that the west culture destroys our traditional culture .The travelers hoping to enjoy Chinese traditional culture will not feel our culture exactly. 子弹的速度 普通的降落伞正常在多高打开,最低的打开高度是多少?是不是和打开伞时的下落速度有关?还有,在17楼顶直接打开降落伞跳下去会死吗 半径为R的光滑半圆环轨道固定在竖直平面内,从与半圆环相吻合的光滑斜轨道上高h=3R处,释放一个质量为m的小球,求在A.B点时的速度大小 视你如命表示我的宿命 翻译成英文怎么说? 井水含有碱与小苏打的碱一样吗 如图所示,一光滑斜面连接着一光滑竖直圆轨道轨道半径为R,现有一质量为m的小球从h=3R的高度由静止滑下,试通过计算说明质点能否滑过轨道的最高点?求对轨道的压力 数学椭圆上的电到直线的最短距离问题.椭圆X^2/16+y^2/9上的电到直线l:x+y-9=0的距离最小值.答案是2√2用三角函数什么的.我用直线系算的平行与直线做椭圆切线.求切线与直线距离得4啊.求大神 在CorelDRAW怎么通过节点改变图像形状 哪些牌子的手机有英语字典,具体型号是什么? 蜜蜂、蟋蟀、萤火虫、青蛙、知了同大灯笼、弹琴、跳舞、唱歌、敲鼓连线 含碱高的井水做豆腐有白浆是什么原因 英语词典哪些牌子比较好买电子词典主要是为了发音,帮忙推荐个价格便宜的.音标我没学会,买的那一本新英汉大词典第四版单词都不读 漂白粉受潮了,会影响出厂水的余氯吗?请各位大虾帮帮偶的忙哦!偶要晕死鸟 ```谢谢鸟哈`` 井水烧80度会结碱 我想热水锅炉用井水.有怕对锅炉有危险 吊扇怎么固定在%吊扇怎么固定在天花板上面呀!用什么东西固定的 自来水工艺中,余氯偏低是什么原因? 鲸是怎样繁殖的 英语读书机中哪个牌子最实用?教材最全面 功能最齐全 售后服务有保障 价格最合理的读书机是哪个牌子的>? 在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?Why?在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?为什么?.在2Na+Cl2=2NaCl中,为什么钠失去两个电子? 鲸的繁殖期在几月? 溶解CuS或SnS2沉淀应该选用HCl或HNO3? 并写出其反应式 历史上最杰出的十位物理学家是谁 一滴水多重,有1g吗一滴水有没有一克 CuS能不能溶解在H2SO4中? 历史上最牛的物理学家是谁? “一滴水,承载着无比的重量;----”阅读理解,哪有?帮帮忙 如何用氧化还原法溶解CuS 洗衣机因长期使用会粘上很多污物和细菌如何消毒 什么是交易行号 如农行交易行号1168是哪个地方的农业银行?如农行交易行号1168是哪个地方的农业银行?怎么查这些交易行号的地方银行呢? 第6小题填时间单位? 凸(艹皿艹)用搜狗怎么打 如何改变Excel列标行号大小不小心将Excel列标和行号变得很大,请问要怎么才能调回来?列表就是A.B.C.D.行号就是1.2.3.4.改变显示比例也无法灰复正常.只有列标和行号很大,其它一切正常,我的比便 如图所示,一质量为m的小球由足够高的h处沿光滑轨道由静止开始滑入环形轨道,则 配制溶液时,用生锈的砝码称重,会导致P%变大还是变小? 对excel不熟悉,遇到一个问题,行号不变列号有规律地变化,两个用什么符号粘合来产生一个新的地址.行号不变列号有规律地变化,两个用什么符号粘合来产生一个新的地址,用了一起符号,老是提 碱式碳酸锌制备活性氧化锌的化学方程式 彡用搜狗怎么打? 电子表格中的行号和列号是什么? 中国古代《庖丁解牛》的故事反映的职业道德精神是 在配制一定浓度的溶液中,称量时 如果天平砝码沾有其他物质或生锈了.它的浓度会有什么影响? 又是来自某灯具说明书的句子.A minimun distance from the surface being illuminated must be maintained(fire risk).我的翻译是:哪怕灯具表面有极小距离的漏光都需要被修理.(火灾危险)不过自我感觉自己的 新装修房能使用什么药剂处理? 艹灬●用搜狗怎么打 关于灯具---这句是什么意思呢?Lamps included,NOT installed but packed in poly bag.请翻译以上句子,请注意NOT installed的翻译. 水厂过滤添加药剂,二氧化氯,氯气,氯片有什么区别啊? 初三化学配置溶液中砝码生锈,溶解时液体溅出,没充分溶解,称量时砝码一端未放称量纸 .这些对溶质质量分数变大还是变小.我都乱死了 “健康装修健康灯(灯具)”说说这句广告语的创意.不要重复的,好的话有悬赏, 哪里的水质处理药剂最好!是游泳池的水质处理药剂,现在的游泳池水质都太差啦,池水有的很浑浊,水质颜色有发黄的,有发白的,还有水质颜色是绿色的! 配置一定物质量浓度的碳酸钠溶液若称碳酸钠是所用砝码已生锈,这对所配溶液的浓度有何影响 英语翻译Dear Miss Huang Qiu,We would like to inform you that the following items belows are faulty OR damaged OR u sent wrong item:-1.MD7123A-1,the opal glass is too small,it should be the same size as MD7385 glass,QTY:18 PCS2.MX8292 = 12 pcs,829 1.小车与货物的质量为50kg,沿踏板将其匀速推上汽车.若车厢离地面的高度为1.0m,踏板的长度为4.0m,求在在个过程中人做了多少功,人的推力有多大?如果直接把小车与货物搬上去呢?不计摩擦阻力 戴眼镜能看显微镜吗? 句子说明了什么?“蓝天、白云、绿草”是这个国家最吸引人的地方,满眼的绿色,触手可及的朵朵白云,让人仿佛置身在童话的国度. 德国西部城市疏散两万居民拆除二战炸弹斯诺登抨击美国国家安全局为“最坏犯罪罗姆尼指责奥巴马对医改法案描述“不诚哈瓦那国际博览会着重推介古巴首个经济英一小猫电话\"报警\"致警方破门而哈佛教授质疑美国饮食指南推出新版本饮罕见日食现象横扫非洲 遇恶劣天气仍壮日本约32万人观看自卫队航空节 特技刚果(金)反政府武装陷入绝境 要求立日本浜名湖渔船失火 恰逢货船经过救起坦桑尼亚当局在一中国人家中查出180日本浜名湖渔船失火 恰逢货船经过救起日本九州遭遇雾霾 政府呼吁民众尽量减玻利维亚北部发生坠机事故 已致8人死印度将发射火星探测器 被指火星探测失评论:新一轮财税体制改革应有新突破美国务卿称美国永远不会允许伊朗有核武民调显示超3/4德国人认为美国国安局克里开启中东之行 欲修复美国与沙特关罕见日食现象横扫非洲 遇恶劣天气仍壮日本进行最大规模军事演习 日媒受压力海口美兰机场微信值机运行一周 200永春电信未经许可擅自办理手机号码 致1979年10月25日 人类天花绝迹继承者们素颜照曝光 化妆前后大变样韩国流行\"舌头整形\"称只为学好英李湘爱女送香吻萌翻邱启明 主动为儿子1983年10月25日 美国入侵格林1948年10月25日 毛泽东三则电湖南一财政所长用公章借钱买地下六合彩泾县食药监局调查聚集性药品不良反应“联合2013”进入火力封控阶段 心黑水 达古冰山“冰雪彩林之旅”十四届2002年10月25日 莫斯科人质案美国对中国和印尼产味精发起双反调查浙江一医院3名医生被患者砍伤 行凶者国际反恐会议在伊斯坦布尔召开潘基文呼吁世界各国与联合国共同应对全人社部:养老保险将实现基础养老金全国美国“窃听门”或成欧盟峰会议题 法国叙政府军占领大马士革郊区重镇宁乡5个监测点确保全县水产品质量安全
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘