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

用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


门票销售过半 从2014微信开发者大会购票者特征说起 当来自金星的Devs碰上火星的Ops——共话应用扩展 移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 轻博客始祖Tumblr:哈希以支撑2.3万Blog请求/秒 《近匠》FIR.im:简单易用的内测分发工具 传苹果公司将于9月9日召开新一代iPhone发布会 近百家微信开发商参与征集评选活动 TOP10正浮出水面 Java程序猿,手游引擎怎么选? MDCC 2014优秀移动团队免费展位火热申请中 【微信讲师面对面】你在企业服务号开发中遇到的坑和难点 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务 浅谈Apache Spark的6个发光点 安卓 “假ID” 签名漏洞,竟然骗过了支付宝和360 从Social到Big Data,移动App蚂蜂窝转型推新品 《近匠》nice曹大鹏,从男装导购到潮人社区的心路历程 DevOps扼杀的不是开发者,而是开发生产力! 利用Docker构建开发环境 Netflix公布Cassandra新性能:基于AWS的百万次写入每秒 一周消息树:谷歌Android遭遇“颠覆”危机 微软发布新应用Snipp3t,iOS平台首发且无Windows Phone版 TOP10优秀微信开发商随后揭晓 2014微信开发者大会开幕在即 8月12日:PC鼻祖IBM 5150迎来33周年 平板创作3D展现:蒙特利尔大学发明Hyve-3D设计系统 Quick Charge技术解析:关于手机快速充电的那些事儿 性能分析十八招,你用哪一招? 流程在企业内的作用及成熟度 Gartner:至2017年Chromebook销量将增2倍 后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 我是菜鸟,问一个很菜的问题,!!!!!!!!! ATL中创建的ActiveX控件,是怎么在程序中使用的???????????? 一个关于LotusScript的一个问题。调用公试。 **请教:怎么让MSFlexgrid的一行显示一种颜色. 一个小问题,希望有人能解答! DLL高手请入,关于在DLL中引出对象的问题?????? 求教!!有关DLL调用中返回字符串类型出错的问题。 Delphi怎么实现子类化? session 和 cookie 各有千秋,区别在那里啊?敬请赐教! fm1008leaf(小幻姬(玉笛书生的徒弟)):我考考你就知道你是真是假! jneu(沧海桑田)怎么不理我?有关宏拷贝问题 paradox中的NUM类型在sql语句中是什么类型?为什么asfloat会出错? 关于J2EE的就业前景,值不值的花二万元参加一个二十天的培训,欢迎大家热烈讨论 在listbox 中,如果知道了一个Item的内容,怎么知道它的indix 今有同仁问到,三十以后咋过。恰巧心情郁闷,发上几句牢骚。 少年暗恋对象,早已嫁作人妇。那天遇见街头,孩子叫我叔叔。 OICQ问题! 如何可获得Table 内字段的类型及长度? windows2000 server 的internet 共享怎样设置权限 软件开发的请进来讨论,关于报酬的问题。大家多提建议。 1.为什么有些地方可以用MessageBox函数,有些地方不可以2.mfc的CView::OnFilePrint提供了打印的方法,要是一个程序没有视图要打印一般用什么方法? 请问在DEVELOP2000里面可以使用进度条控件吗?怎么编程实现? ???oracle监听器问题? WebBrowser控件获得网页中文本框的名称该如何写? CFtpConnection 怎样在FastReport中控制或判断所连接的数据库表到了eof? CTypedPtrList模板对象中,如何删除指定位置的元素??十分着急! ms sql server 的技术问题 怎样清除事务日志????????? 在那里改个人在cdsn.net注册信息(如名字,地秩)? 关闭窗口的事件如何触发?( 高手们请问deiphi如何实玩宏代换???????????十分火急!!!!!!! 请帮忙!!SOS!!! 请问如何实现宏代换????????????? 关于打印的一个不错的设想 我是新手,初次接触网络管理,请问要管理局域网需要具备哪些方面的知识,需要安装那些应用软件?有什么好书可以介绍吗?谢谢各位! 在VB中设计控件,其上放有uText1、Text2,当uText1失去焦点时,并不触发Validate事件 如何在程序中判断是否做了超级连接? 怎样使listview中的大图标左右居中,上下居中。 怎么样处理聊天室的退出问题? 比较大的问题,请做过JAVA系统集成方案的朋友指点!!! applet,这个霸道的家伙!怎么解决阿? c++类的一个小问题 一个大家都很棘手的问题 关天构造函数的问题 学习《windows程序设计》中的问题? pb8里的autoscript怎么弹出那么慢 消息:c++与Visaul c是不是有一定的区别呢? 怎样通过程序获得当前可用的拨号网络列表?? 高手在哪里?-------> 如何在第一时间里获得屏幕的变化呢?及获得屏幕变化的那部分?各位大师,帮帮我。谢了。 请问想具备基本的网络和数据库管理方面的知识,看什么书好啊?请大家帮忙推荐一下,谢谢! 请教W2k下使用Access的问题 大家帮帮忙,sql菜鸟问题, 食醋有什么好处? 纯粮酿造和食醋酿造的白醋有什么区别 食盐加碘为什么只可加碘酸钾而不可加碘单质或其他碘化合物? 食醋都有哪些种类 食醋是白醋吗 为什么要吃含碘的盐? 食盐、碱面、食醋、小苏打哪个所含元素种类最多 已知NAHCO3不稳定,受热易分解成NA2CO3、H2O、CO2气体.现将某碳酸钠和碳酸氢钠的混合物共27.4g加热到质量不再变化时,称得剩余固体质量为21.2g.求混合物中碳酸钠的质量.(Na—23,H—1,C—12,O—16) 加碘食盐所含的碘元素是以什么形式存在的.单质还是化合物? 瓶子里的蜂蜜放了一年多了 现在观察蜂蜜表面起了很细的泡 比较多 但是瓶子密封性良好 蜂蜜还能喝吗我记得以前可能在用汤匙取蜂蜜的时候 汤匙可能沾有点水 但是肯定很少水 是不是这个 有关金属化学反应的问题前段时间,我在大街上碰到一个哑巴尼姑,听人说是量尺算命,把我拽过来给我量完后,就送给我一个黄金色的观音像,(并且还给我开了光).我回去之后就把黄金色的观 无水硫酸铜加水是化学反应吗? 在蜂农那里买的蜂蜜放在密封塑料瓶子里半年了还能食用么.原来的一瓶现在只有半瓶了.是因为水分太多蒸发了么?有一股酒味.而且蜂蜜里有白色气泡. 活泼金属的化学反应,. 无水硫酸铜吸水变蓝是化学反应么/ 镁条放入食醋中的现象实验结果是什么 加热3.24gNa2CO3和NaHCO3的混合物至质量不再变化.盛衰固体质量为2.51g.计算原混合物中Na2CO3的质量分数. 无水硫酸铜溶于水是化学反应吗 镁条与食醋反应现象具体点! 将36mlKBr和KI的混合溶液分为两等份.向其中一份通入足量的cl2,完全反应后,将溶液蒸干,灼烧所得物质,得到6.1g固体残留物.测得另一份混合液中I离子的浓度为0.86mol/L.计算:1)原溶液中含有KBr的 高一“碱金属”的化学计算题1-2个正确选项!标况下,CO2、CO的混合气体充满盛有足量NA2O2的密闭的22.4L的容器中.用火花使其反应完全.反应后,容器内有:()A.0.5molCO B.0.125molCO2 c.0.25mol NA2CO3 D.0.5 硫酸铜与食醋反应 在50g46%的乙醇水溶液中,含有的分子总数为多少?(不考虑物质的电离)写出计算过程.可以给出必要的解释更好. 化学计算题,关于金属的某样品为铜和锌的合金,为测定合金中铜的含量,取用20G此样品,分四次向其中加入稀盐酸与这充分反应.每次所用盐酸体积与反应剩余固体的质量如下:第次 样品质量(G 我曾经做了个实验,把一种类似于爬山虎的植物放到了一个瓶子里,瓶子里是蜂蜜和水,本来我天天打开瓶盖换下空气,然后有大概1个星期没有换空气,然后再次打开有巨大的声音和刺激味道的气 上海某些工厂用硫磺生产硫酸,现将S燃烧生成SO2,进一步氧化成SO3,最后与谁反应制的98%的硫酸(1)98%的硫酸的密度为1.84g/ml,则该硫酸的物质的量的浓度(2)取100g的该硫磺,加水稀释至1 化学金属的计算题,急.小娟取CU-ZN合金的粉末32.5g,与该足量盐酸反应后,产生了0.4kg的气体,计算 出该合金中铜的质量分数. 高中化学选修3总结 一道化学计算题,(一)将一定量 Cl2 通入250mL KBr 溶液中,反应后将溶液蒸干,测知所得固体中含溴元素10g,且 K+ 与 Cl- 的物质的量之比为2:1.试求:(1)通入Cl2的体积(标准状况).(2)原KBr 由某二价金属氧化物和某三价金属氧化物的等物质的量组成的混合物两者之比为28:51,取这种混合物19.75克,恰好能与166mL浓度为20%、密度为1.10g/立方厘米的盐酸反应.试求这两种金属的相对原 化学配平下列方程(1)Zn+HCl——ZnCl2+H2(2)KClO3——KCl+O2(3)FeCl3+NaOH——NaCl+Fe(OH)(4)Al+O2——Al2O3 谁能给我高中化学选修一的知识总结阿不要全部是方程的,帮忙啦``马上就是分班考` 我希望考的好一点` 食醋是不是就是白醋? 食醋可以治什么 高中化学选修4总结 食醋是不是白醋 食醋可以治疗 食醋的标准有什么? 白醋是不是食醋? 高中化学公式怎么总结归纳 食醋的酒精含量标准是多少? 白醋是不是叫食醋 高中化学计算公式总结 关于食醋的制法的疑问,请专业人士解答?原料先经蒸煮、糊化、液化及糖化,使淀粉转变为糖,再用酵母使发酵生成乙醇,然后在醋酸菌的作用下使醋酸发酵,将乙醇氧化生成醋酸.这句话中我有两 请问水银和水会发生化学反应吗 高二化学方程式配平和电子转移(1)KMnO4+H2O2+H2SO4=K2SO4+MnSO4+O2+H2O(2)NH4NO3=HNO3+N2+H2O 白醋和其他食用醋成分有何区别? 砒霜和汞会产生什么化学反应?中药十九畏里已经明确说了``“水银莫与砒霜见”`` 两种药在一起用不但不会毒性相冲而消失``反而会比原来的毒性更强所以很好奇,砒霜和汞化学反应会产生什 食醋作用是什么 日常食用醋和白醋的区别是什么, 一道化学计算题 高一将6.9g钠和4.2g硅同时投入盛有足量蒸馏的大烧杯中 1、在标准状况下能收集到多少升氢气? 2、无气体生成后所得溶液体积恰好为100ml,求溶液中溶质的物质的量的浓度 食醋有哪些作用? 用白醋洁面可以美白,请问白醋是那种食用醋吗?还是别的什么白醋?具体要怎么弄的?其实我是要问如果用白醋洗脸,可以用那种食用的白醋吗?会对皮肤造成什么损失吗?另外这针对年龄吗? 将氢氧化钠和碳酸氢钠的固体混合物20.8g在密闭容器中加热到约250℃,经充分反应后排出气体、冷却,称得剩余固体质量为15.9g.试计算混合物中氢氧化钠的质量分数.答案为68.1% ,如果是答案错了, 食醋的作用 跪求高一必修一化学计算题求解 急!~~~将0.1mol的铁铝混合物溶于100mL/L硫酸溶液中,然后再加1moL/LNaOH溶液中,然后再滴加1moL/L NaOH溶液(1)若在滴加NaOH溶液过程中,欲使亚铁离子和铝离子刚好沉 一道高一的化学计算题4.3gNa、Na20、 Na2O2的混合物语足量的水反应,生成0.36的混合气体,放点条件下,这些气体恰好完全反应,求各组成物质的质量.谢谢啦!可以顺便求出准确数值吗 食醋有什么作用? 金属和金属会产生化学反应吗?为什么?最外层电子可以通过共用而趋向稳定吗?像镁和氧一样 我国规定食用加碘盐中碘元素的含量为每千克食盐含碘20ng-40mg.生产中通常加入碘元素的稳定化合物碘酸钾(KIO3)来达到这一生产标准.现有10t食盐,大约应加入多少碘酸钾?怎样才能使这些食
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn