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

使用VB设计具有「动感」的命令图标栏

HTML文档下载 WORD文档下载 PDF文档下载
使用VB设计具有「动感」的命令图标栏
作者:张嵘
我们在使用Word、Excel等Windows应用程序时,经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时,程序就执行相应的操作。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令,供用户快速地取用,并且它设计时采用了“立体式”按钮,操作时会产生凹下去和凸出来的“动感”,笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。
使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时,图标显示为凹入状态的图像;当松开时,图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”,具体设计步骤如下:
1首先在窗体中创建一个图片框(Picture Box),将其Align属性置为1,使图片框固定在窗体上端,调节其宽度使其能安置图像或命令按钮。
2在图标框内创建若干个图像框(Image Control),设置其Autosize=True,Picture属性在程序运行中设置。
3编写程序代码。这里假设某个命令图标凸出状态的图像文件名为"zrup.bmp",凹入状态的图像文件名为"zrdown.bmp"。
窗体装入时:Sub form-load()
Imagel.picture=Loadpicture("zrup.bmp") ' 命令图标凸出
End sub
鼠标按下时:Sub Imagel-mousedown(Button As Integer Shift As Integer, X As single,Y As single)
Imagel.picture=Loadpicture("zrdown.bmp") ' 命令图标如下:
End sub
鼠标松开时:Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)Imagel.picture=Loadpicture("zrup.bmp") ' 命令图标凸出
End sub
以上只能使命令图标具备凹下去的功能,但当在按鼠标按钮不放,并拖曳鼠标使光标移到外头,原来图标仍然处于凹下状态。要使其自动凸起,就要编写如下代码:
Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)
Select Case Button
Case 1
If X<=0 or X>Imagel.Width or Y<=0 or Y>Imagel.Height then Imagel.picture=Loadpicture("zrup.bmp") '凸出
else
Imagel.picture=Loadpicture("zrdown.bmp") '凹入
End if
End select
End sub
通过以上三步骤就可以建立具有“动感”的命令图标,若具有多个命令图标时,可通过创建图像控制数组来实现。BMP是常见的一种图像格式,也可以使用VB提供的丰富的不同状态的命令图标位图文件,它在VB的子目录\bitmaps\中。
□山东 张嵘
阿里将推AMOS智能机 斥资10亿鼓励开发App AMPLab开发重构的Hadoop版本Tachyon:吞吐量要比HDFS高300多倍 一名理科生的创业路 十大界面原型与布局工具 Google产品经理Kenneth Norton:如何与工程师共事 如何创建自适应系统来增强用户体验 Jolla下月展示首款Sailfish手机 将重点发展中国区 海外1GB大容量游戏,国内渠道如何分发? 真正的能源大户是WiFi网络 数据中心只是“伪军” CloudFlare创始人传奇人生:7岁编程,法学博士,获哈佛商学院最高荣誉 2013云计算深入实践 jQuery 2.0发布 不再支持IE 6/7/8 Google再发力,更新Dart M4! 【多图】鼠标、光驱等13个即将消失的PC技术 直击OpenStack美国峰会:分享五大经验收获 Project Savanna:让Hadoop运行在OpenStack之上 看Go桌面技术副总,如何解读Facebook Home 增长最快的游戏公司Supercell 你学得会? 移动周报:为什么我们出不了IT神童? AWS、VMware和OpenStack谁是赢家? 消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 App推广的节操呢? iMessage垃圾短信产业链暗访 Apkudo CEO访谈:免费为Android开发者提供测试 Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass 如何让一个后台窗口变成前台窗口 请各位大虾指点:一个主表对应5个明晰表。怎么办????? 有没有OA(办公网)的演示版下载或参考? 有这么一条语句:rs.Open "select * from xxcx", cnn, adOpenKeyset, adLockOptimistic, adCmdText程序提示数据库库找不到输入表或查询“xxcx”,以及确事实定它是否存在或拼写正确。 BBS等网站如何提防自动灌水机的捣乱? 高级程序员+mcsd年薪有多少? 用BCB做一个类BCB的菜单编辑器可能吗,如何实现,欢迎大家一起来探讨探讨,请...... JSplitPane如何动态调整左右帧的大小?如何监听窗口变大,缩小的事件?(java中好像没有) NCR-unix下如何修改网卡上绑定的ip地址? 请教一个简单问题,怎么实现象foxmail那样的,在状态栏中留一个图标,单击再恢复? Mmxado错误 oracle问题!!!分数不多,但望高手不吝赐教 RECORDSET对象的UPDATE方法时出现以下错误提示 致斑竹流方,怎样以树形结构列出并打印PBL中所有对象,包括对象中的控件和事件,并标识哪些有脚本? 怎样学习编写VB代码?以及它与ADO数据库之间的连接? 原来holyfire是这的班主! 我最敬佩的人是:playyuer(女㊣爱)! 问一个关于TTreeView控件中树节点所带数据的问题 菜鸟求救:有关DBGrid显示的问题。 当读取1万条记录以上,应怎么做才有高效率? 那想在记事本中实现“查找,”“替换”。。。。要怎么做,我头猛大 有没有按位图画不规则窗口的代码? 怎样得到LISTCTRL的全部列(COLUMN)的信息,难道要用GETCOLUMN()? 为什么现在学win32 API的人这么少? 还是老问题 redhat安装问题,请高手指点 网页中有一文本框,如何约束用户输入格式 现在fanso怎么回事? 安徒生童话之六---老爹做的事总是对的 (呵呵,好故事,很美丽) 如何调用EXE或DLL程序,使被调用程序是调用程序的MDI中的一个子窗口? 《网络设计师教程》P103表5.2中 4B/5B码和4位2进制之间是怎么转换的? COM进程类组件中,在一个接口中加了一个方法,成员变量类型CString,可是不行,那该用什么? 请问那里有 motif toolkit 开发工具下载 一个mysql的问题! 出售软件源代码以及销售权! byte类型的数据如何转化成二进制数,显示给用户(如8-》0000 1000) 代征:精通vc的深圳朋友,精通网络通讯的开发和多媒体处理。 20分求助!这条警告是什么原因呀?怎么解决 ?LINK : warning LNK4089: all references to "SHELL32.dll" discarded by /OPT:REF 局域网的文件共享传输是基于什么协议的? windows and dos ??? 请问大家几个技术问题!!谁能回答阿!比较着急!:) 有没有代替VB里的PICTUREBOX 的控件,VB里的不好用?????????? 我是新手,请问JSP有些什么开发软件?比如JAVA用JBUILDER。。。 请问知道整型值a=97,什么函数可以得到"a"呢?即97->"a"通过什么函数呢? 如何将十进制数转换成二进制数 函数对象的简单问题 喜欢仙剑的朋友请进。:) 恭喜恭喜? 我想制作C++ Builder4工程的安装程序,不知道用什么软件,请大家帮忙。谢谢! 请问大家几个技术问题!!谁能回答阿! 我是ASP初学者,请求一个简单的问题,Help!!! 寻找一篇英语文章新编大学英语 浙江大学编著 第一版本 第一册 最后一课 内容大意是 描写 某人总是听音乐 在任何可以或应该安静的时候.一安静就受不了就是那篇文章了 请你把它的wor 给我一篇,歌颂祖国,歌颂党的作文, 谁有小学《做风车的故事〉这篇课文? 寻找一篇英语关于爱情的文章1 希望在250字以上,2 每个句子完整,3 每一种从句都要用到,4 分词作状语要用到,5 不要用BE+动词原形的句子, 寻一篇关于“歌颂祖国”的作文!大概要2000个字~ 关于风车故事的原文有一个故事就是讲国王把风车拆了,风车主人把国王告上法庭,主人赢了后来儿子没钱了就卖给国王的儿子,新国王不收,永远保留主人的拥有权麻烦要原文 帮忙找一篇长点的英语文章我想在可与时间看点英语的文章,希望大家可以帮我找一篇英语的文章字数不限,但也不要太多. 歌颂党歌颂祖国这类作文怎样写好一些?不用帮我写,提示提示我就OK! 求小学课文《渔夫和金鱼的故事》 寻找英语美文一篇英语文章题材,抒情散文,大概意思我记得有一段是:我生下来时,我哭着,旁边的人笑着,我将要离开人世的时候,我笑着,旁边的人哭了……,我们可以花一分钟喜欢上一个人,一 以鼓励为话题的作文请以“鼓励”为题,写一篇不少于600字的文章.(题目不能是《鼓励》!) 《做风车的故事》是第几单元的课文? 给一篇英语短文,求提几个关于文章的问题A blonde went into a pizza parlor.When she said that she‘d like a medium pizza,the clerk asked her how many pieces she‘d like to have it cut into:six or twelve.“Oh,goodness,six please,” s 以“鼓励”为话题的作文78979 作文《我心中的桃花源》600字,求求你们了, 求一篇英语短篇文章要求,关于怎样保持身体健康的短篇文章单词量在60~80单词之间初中2年纪水平,单词要简单通俗的.我认识的单词不多哦 求一篇以“鼓励”为话题的作文要是生活中的事,不用写地太好,一般般就可以了。字数不用太多,大概500-600就差不多了。可以是“动车事故”中的小女孩之类的。 求《我心中的桃花源》500字作文先写 请速提供一篇短篇英语美文读的话要在5分钟以内,不要有太多的生词...就这样, 小学课文名 “我心中的桃花源”这篇作文该怎么写好这篇作文该采用怎样的结构,文章又写些什么才好呢?帮忙列下提纲或范文 我要英语短文 介绍自己 写一篇文章 这篇小学课文叫什么名字? 我心中的桃源作文应该怎么写? 党的歌颂为话题的作文怎么写? 求一小学课文名 我心中的桃花源作文600字 以“鼓励”为话题写一篇作文.要求:通过具体的事例表现你对鼓励的体验和认识,要求:通过具体的事例表现你对鼓励的体验和认识,注意:“体验”和“具体的事例”两个词! 小学课文《老人与海鸥》的主要内容(50字以内)我很需要! 以我心中的桃花源为题 400字作文字不要太多 我想找一篇以鼓励为话题的作文 急 小学五年级那篇课文有嘹亮这个词 作文《我心中的桃花源》怎么写? 求一篇英文小文章(3分钟),《写好演讲稿的重要性》英文的,大概3分钟或更少就OK,《写好演讲稿的重要性》,中文的也可以. 以表扬或批评为话题,写一篇作文大哥大姐,行行好,做点善事吧!我感谢你八辈祖宗, 一小孩把斧子掉入河里,一老爷爷拿金斧和银斧问是你的吗?这是什么故事了 `求一篇3分钟的.身边英语演讲短文.垃圾.`会的摆脱了要有翻译(口语比赛急需!围绕日常生活..讲述自己身边的故事.3克油告诉我的人们)追+++++++500分.. 一篇关于歌颂党,赞扬党的文章 《金鸟和银鸟》蕴含的哲理同上和第九段写樵夫看到了金鸟,这是为什么? 找一篇英语文章,记得高中时学过一篇英文文章,Begin again ,有谁知道全文啊, 急求一篇关于歌颂党,赞扬党的文章~ 树与斧子的寓言故事寓意说出 帮我找一篇英语文章关于friendship 不要多只要200词就行了最好是一首诗 谁能帮我写一篇歌颂党的文章?我现在刚入党, 关于 树和斧子的寓言故事 找一篇英语小短文60单词之内,故事内容适合初二水平的人,最后从这编短文中提一个问题(问题简单点).短文带有翻译. 赞美党的文章 普罗米修斯的故事这篇课文怎么分段说清楚怎么分段,意思也说!快,一小时内! 英语翻译开头第一句话是BRITAIN is a popular tourist place.But tours of the country have pros and cons.请帮我找到这篇文章 然后在翻译一下全文 帮帮忙!写一篇歌颂党的文章? 谢谢 普罗米修斯的故事急~~~~!急!急 找一篇关于甲流的英文作文关于 预防 危害 和自己 应该怎么做 等等的 两百单词左右.单词不要太简单 好的句子 短语 麻烦 标明一下 谁可以给我写一篇歌颂党地文章? 普罗米修斯课文的主要内容 英语翻译经过一个月的相处,我想我们之间并不陌生了,彼此都有了了解.所以今天在这里我就不做自我介绍了,所以我今天的报告主题是:朋友.朋友是人一生中的宝贵财富,我非常荣幸能成为 歌颂祖国歌颂党作文提示就行 普罗米修斯课文主要内容是什么 找一篇英语文章大概是一个小女孩很不快乐,有一天救了一只蝴蝶,蝴蝶变成仙子要满足他的愿望,他说他想快乐,蝴蝶就告诉他快乐的秘密,回去以后她比所有人都快乐,他快死的时候别人来问她 求歌颂祖国歌颂党的作文一篇 《普罗米修斯的故事》的主要内容
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn