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

用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


检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 理解面向对象编程 -VB资料 VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 VB判断剪贴板的所有可用格式 VB判断驱动器类型 VB判断是否已经建立 Dial Up 连接 VB判断一个年份是否为闰年 VB判断一个驱动器的类型 屏蔽文本框默认的右键菜单——浅谈如何控制Windows消息 -VB资料 奇数和偶数校验-VB资料 启动控制面板命令大全 -VB资料 VB取得 DOS 环境变量 VB取得并设置双击间隔时间 VB取得磁盘序列号、卷标和文件系统类型 请问,存储过程在VC如何调用,用ADO,ODBC。 怎么实现这个SQL? 没事瞎问~~~黑客软件能走向海外吗?(比如扫描器,键盘记录器,木马等) windows protect --error ,我装不了系统啊 DbEdit里的数据用adoquery如何更新才好? 有没有办法调试存储过程? 我是个菜鸟,请教大家,VC++和C++ Builer的优点和缺点。 请问如何改变显示文本的颜色? delphi 6 的补丁包 浏览器为NS6时如何获取屏幕分辨率? 如何控制 ValueListEditor ?有一个Help这样写道: 各位斑竹请进来,紧急求救呀!!!!! 是否可以把用asa建的数据库转变为access? 在java中如何压缩和解压文件夹? 如何在运行期把最大化,最小化按钮灰掉!? 求一句广告词 请教一个毕业设计的问题,关于在c++buileder中OLe对象调用:怎么样把word中的表格导入到数据库 请问如果在首页中加入一个论坛的登陆对话框? 这样的IIS错误信息,是什么意思,怎么解决? 问一下,vb怎么连接数据库呀`~(access)有代码吧~~给分呀` 如何画箭头? C#进行嵌入式开发,方便吗? 她为什么看上我??! 如何用BCB从mp3文件中得到歌名,歌手名,唱片集,流派等! 各位知道有关于ORACLE系统管理实例方面的书籍吗? ADO访问access数据库,怎样编辑一条记录啊? 请教各位关于win2000默认共享的问题 喜欢德国队的进来,坚韧不拔的意志和不到最后一刻不放弃的精神!!!! 如何判断图像大小 com的参数传递问题 请问:如何将pb数据库中的表倒入vf数据库中???急!!!!!! 大家好,关于数据库的问题请,大家帮忙。 一个关于button的简单问题 有没有将图片设为桌面的api函数,若有怎样用?若没有,怎样实现该功能? 我在adotable中删除数据它老是报错:”键列信息在最后读取中改变“(急用) 如何将CString类型转换为int型? wyx病毒的所有症状表现、危害性、解决方法。 在线等待--100分(很简单的问题) 急急急!! 隐藏任务栏的问题 急急急 我配置的cgi为什么不能访问? 实在不知哪里有问题,csdn....,帮忙up一下好吗。50分捧送。 具体怎样实现对FSO(FileSystemObject)文件系统对象的禁止 为什麽我在netscape下<input type="file" name="file2">什么都没有显示 一个简单的关于运行和关闭的问题 怎样用asp实现声音留言? 怎样用asp实现声音留言? 怎么样破解电子信箱密码?? 用treeview装注册表了,有问题 从线程如何从主线程的窗口类中获得其成员变量? 电煤是什么煤 是怎么形成的? 用排水集气法制取氧气,收集氧气后,玻璃片容易滑动的原因 次氯酸钙怎么变次氯酸? 2Al+2NaoH+2H2O===2NaAlO2+3H2 水有参加反应吗?NaOH和水都是氧化剂吗?请解析为什么? 单质铝既能和强酸反应又能和强碱反应所以铝是两性金属单质对还是错?请解释 次氯酸怎样变成次氯酸钙 Fe、H2SO4、Fe2O3、CuCl2、KOH、KCl在常温下两两混合能发生化学反应的个数为 物质电离生成水合离子时放热还是吸热 短周期元素中,谁的单质既能与强酸反应,又能与强碱反应放出氢气 NaH是离子化合物,与水反应可生成碱和氢气,现有NaH与Al粉混合物共M克,和足量水反应共收集到H2的质量N克 则原混合物中铝的质量可能是A 12n-m B24m-5n C36n-4m Dm-24n\m 铝和氢氧化钠反应2Al + 2NaOH + 2H2O = 2NaAlO2 + 3H2↑求铝,氢氧化钠和水的准确比例?本人不想浪费原材料,请老师们精确回答! 非金属单质A分别与中强酸B和强碱C的溶液反应,均产生氢气,写出反应方程式 关于水合离子和水和分子.水合和电离有什么关系?氢氧化钠溶解于水电离出氢氧根离子和钠离子 哪有水合离子? 2Al+2NaOH+2H2O=2NaAlO2+3H2↑ NAOH不做氧化剂也不做还原剂吗?为什么还有特例吗?NAOH的H 的化合价不是有变化吗? 实验室制取氧气用排水法,收集满的现象 水合离子分子带水分子个数与什么有关? 铝和氢氧化钠溶液反应:2Al+2NaOH+2H2O=2NaAlO2+3H2 氧化剂是水.为什么N铝和氢氧化钠溶液反应:2Al+2NaOH+2H2O=2NaAlO2+3H2氧化剂是水.为什么NaOH不是氧化剂? 下列实验室制取氧气并用排水法收集的有关操作,正确的是 ( )A.给试管加热时应先均匀加热,再对有药品的部位集中加热B.加热后,待放出的气泡连续均匀后方可收集C.气体收集完毕后,先移 什么是水合离子? 琼脂糖电泳能检测50bp的DNA吗?能用琼脂糖电泳检测的50bpDNA条带吗?我用过2%的胶,80V电泳.Mark是PBR322/Mspl,电泳了90分钟,Mark还没跑开.我都先后看了30分钟,60分钟,90分钟的电泳效果图,都没有目的条 实验室用高锰酸钾制取氧气时,开始收集氧气的适宜时刻是? 溶质的分子或离子和水分子作用,形成水合分子或水合离子.这里的分子离子水合分子水合离子是什么意思 描绘了春雨的特征的诗句是什么? 雪碧等碳酸饮料喝前摇晃再打开,其PH值( ) 亚硫酸钾加盐酸中和再加浓溴水的离子方程式是 描写春雨缠绵,细的特点的诗句 Ca(ClO)2+2HCl---CaCl2+2HClO这个属于什么反应类型为什么能发生反应 亚硫酸钾和浓溴水怎么反应谢谢! 细致地描绘春雨的特征的古诗有哪些? 可乐和雪碧的ph那个更小 NaH是离子化合物,与水反应可生成碱和氢气,现有NaH与Al粉混合物共M克,和足量水反应共收集到H2的质量N克,则原混合物中铝粉的质量为A(12N-M)B(24M-5N)C(36N-3M)D(M-24N/5) 如何鉴别硫酸钾和硫酸铵 Ca(ClO)2+2HCl--------CaCl2+2HClO 写出它的电离 把下列四组物质分别溶于水,得到的四组水溶液中,哪几组含有的离子种类完全相同1.NH4CI KNO3 Na2SO42.K2SO4 NaNO3 NH4CI3.NH4NO3 K2CO3 NACI 4.NaCI (NH4)2SO4 K2SO4 NaNO3 保存下列物质可以不要密封的是_____(填序号) 1.烧碱 2.浓硫酸 3.大理石 4.浓盐酸 5.碳酸钠晶体 雪碧打开其pH值会变化吗?变大还是变小还是不变? 340gNH4所含的原子数与多少摩尔的O2所含的分子数相同? 氨气泄露用哪种挥发性液体检验?A浓盐酸 B烧碱 C浓硫酸 D碳酸钠溶液 雪碧等碳酸型饮料PH值小于7,晃动后打开瓶盖PH值将8 雪碧等碳酸饮料的PH小于7,晃动后打开瓶盖,其PH将【】 A 变大 B 变小 C 不变 D 无法判断 (为什么) 沼气燃烧产生什么气体.有没有毒 惊天魔盗团最后什么意思 农村沼气池.利用沼气作燃料,其能量转化是什么自己用砖瓦建造的沼气池,用久后内部会出现破损,修补时所用的三合土中含有Ca(OH)2,当三合土干后慢慢变硬,其中Ca(OH)2发生的化学反应 O2分子的质量和O2的摩尔质量有什么区别? 《惊天魔盗团》这部电影怎么样? 醋酸溶液中醋酸和醋酸根离子的浓度大小比较 大气中含有甲烷吗?或者是可燃烧的气体现在全球变暖,大气中如果含有可燃气体的话;一旦发生气体自燃,会发生什么样的情况呢?到那时候会不会真的是世界末日呢? 某温度时,蒸干40克氯化钾饱和溶液,得到10克氯化钾,计算:(1)求该温度时氯化钾饱和溶液的质量分数(2)配制该温度的氯化钾饱和溶液200克,需要氯化钾和水各多少克 实验室制取氧气实验结束后为什么要先移出导管后熄灭酒精灯 如何理解甲烷燃烧前后气体体积不变 惊天魔盗团结局到底是什么意思为什么迪伦要陷害那个摩根弗里曼 最后催眠师说的卡牌又是怎么一回事 牛奶变质还能叫牛奶吗? 化肥硫酸钾是何种物质?对人体有何影响?长期被人体吸入该物质会有什么后果? 惊天魔盗团第一个问题:在第二段,在四骑士将保险公司老总账户里的钱,转移到在场观众账户里时,为什么观众们会表现出愤怒,而不是高兴,四骑士曾经说“在场的每一位观众都是这家保险公 稀醋酸加水稀释,醋酸根离子的浓度 比上 醋酸浓度与氢氧根浓度的积 的值如何变化 如何鉴别碳酸钙,碳酸氢铵,硫酸钾三种化肥如题 惊天魔盗团的结尾到底什么样的?为什么我看了两个版本?都是PPS上看的……一个是FBI的那个探长现身,和四个人一起上了旋转木马;还有一个是车子穿越沙漠,但是好像四个魔术师还是头一次见 跑DNA的琼脂糖凝胶在EB中泡染时间我想知道跑DNA的琼脂糖凝胶在EB中泡染所需的最短时间和最长时间大概是多少?为什么? 如何鉴别真假硫酸钾镁肥料 汽油中加入乙醇可节省石油资源,减少污染吗 EB病毒DNA测定很高怎么办女,23岁,EB病毒DNA测定结果为5140,参考值是
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘