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

使用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\中。
□山东 张嵘
Appcore:在企业内部部署IaaS平台 B轮融资600万美元 超现实主义!用脑电波控制你的计算机设备 搜狐否认“情理之中”的退市 上市仍是最优选择 六大BaaS产品推荐:移动开发必备的后端云服务 未遵守承诺 微软遭遇欧盟7.31亿美元巨额罚单 PaaS正能量:6人团队,仅1人全职后端 支撑6000万用户 三星:我不抽成,收益100%让开发者拿去! 腾讯开放平台推“送红利计划” 承诺半年内不参与分成 JavaEE快速开发框架Wabacus 4.0发布,开发效率提高五倍以上 市盈率创新高 谷歌为什么会在苹果博弈中暂时胜出 从Rovio遇到危机,看现在应用市场的演变 Windows Azure支持Android应用 面向东亚推广云服务 抛弃DRAM、拥抱闪存,Facebook重做Memcached 夏普三星联姻 电子行业或将多元化发展 从下拉菜单设计细节看Amazon对用户体验的把握 Chartboost美女CEO:40人团队服务3亿移动玩家 Distimo:新晋开发者想让产品得到关注越来越难 OpenFeint绝迹后,开源项目OpenKit继续前进 美FDA通过搜索引擎和社交平台预警药品副作用 挖坟三星“眼球追踪技术”背后的技术团队 为什么开发者热衷在Stack Overflow上查阅API文档? Facebook推新News Feed 欲造就“个性化报纸” 女神程序员的一天:暴力测试social爬虫代码 2013IBM云存储路线图:更快,更简单,更安全 二战大数据故事:数学家、物理学家、概率论击败德国潜艇 软件定义网络服务商Pertino B轮融资2000万 Scringo社交组件,让你的应用“热闹”起来! Android开发必备:Eclipse 4.2 SR2版本发布 32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 菜鸟有道数组问题请教!!!!!!help,help 关于CStringArray的使用问题???? !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 好东东 !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 请教高手,给高分!!!!!! 难呀,很多高手都说难!!!! 屏蔽右键??如何做。。。。。 有简单的访问StoredProcedure的方法吗? 简单问题:redhat linux7.2 支持中文输入吗? 谁有ASP上载组件的源代码下载 !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! Label控件拖放时,拖放结束(放开鼠标)触发哪个事件?急... 技术问题中的非技术问题》》》》》 请大侠看看这个怎么实现比较好!读取文件的一部分。。。 如何把c++builder开发的程序移植到 windows ce环境下???共有6870分送!!! 如何显示JPG文件? 再问审批流程中的多角色定义 屏蔽IE工具栏等的高难度问题?????路过的高手都都看看吧;-) 急问:在VC中怎样些中断服务程序? 关于时间字段的问题 怎样用ATL制作一个Dialog容器,里面可以放置别的窗口 请问VC中为什么需要动态创建(与序列化有关的)?求通俗的解释或举例说明。谢。 紧急求助!! 请问那里有tc++ 3.0的下载?小弟先行谢过啦! 怎样从句柄得到对象,附有具体代码? 关于CStringArray的使用问题???? 我的程序错了么?? 我的程序错了么? DHCP问题 关于IIS的使用 XML中华网(www.xmlchina.net)诚邀您的加盟,让我们共同讨论.NET!! 请问:DCOM连接成功,但是不执行客户微服务器代码是什么原因? 建议有CMM实施经验的同仁定期召开一个讨论会,交流一些方法和思想。 请问在哪儿可以下载c++编译期(在UNIX环境下运行) 听说新出的JB6是4张盘,是吗?都是什么内容?大家讨论一下好吗? 一个菜鸟的问题,请问 rs_user.open sql,conn,3,2 中的3,2 是什么意思 test 如何显示AUTOCAD 生成的DWG矢量文件?(来者有分) 我送分来了 名词解释........ 一个菜鸟的问题,请问 rs_user.open sql,conn,3,2 中的3,2 是什么意思 c#中的DataGrid问题 请教关于jdk库的文档的问题 机器一启动,IE就跳出来,转到指定的网站,怎么办? 有空来坐坐啊各位大虾们 微狗是什么東西﹐它的原理是什么. 谁知道用vb怎么编出来能读出PCI数据的程序啊。我有高分相送啊 jsp 中 include 的问题 高手请指点:winuser.h明明有KBDLLHOOKSTRUCT的说明,但在程序中却老是出现未定义,你知道原因吗? 可以用例子说明一下ORACLE的外连接的SQL语句吗? 水晶报表的菜鸟问题 春秋战国时期,标志生产力水平有巨大进步的是什么?A.都江堰的兴修B.变法的实行C.铁农具和牛耕的使用和推广D.农作物产量的提高 化学反应的几种类型 大家帮我越南语翻译成中文是什么名字 nguyen thi hau 英语翻译Paused by customer翻译成中文是:客户已暂停.翻译成越南语是? 有关于生命的故事要短的 nguyen thi uyen这个翻译成中文叫什么名字```谢谢 冰乙酸勾兑15度醋精怎么勾兑 碱性氧化物与酸性氧化物的概念及区别无 尊严的小故事要简短的尊严的 春秋战国时期百家争鸣的代表性思想及代表人物 碱性氧化物跟酸性氧化物的定义分别是什么 雷锋事迹要简单一点的!拜托! 春秋战国时期的诸子百家都有哪些代表人物 他们的代表思想是什么? 酸性氧化物碱性氧化物的确切定义 Toi xin tu thanh toan bo phan minh.如题 春秋战国时期儒家代表人物头有哪些 白糖晶体什么形状白糖重新结晶后的晶体形状还有味精 越南人姓名英语读法、规律及寓意 如:Bui Quoc Cong,Truong Binh Nguyen,La Thanh Thuy 氯化钾 跟 硫化钾 肥料有赛区别 苹果树上多了有什么反应 历史概括春秋战国时期士人阶层的变迁并分析变迁的原因 急! 分析河姆渡和半坡原始居民的生活状况 氯化钾适合做什么肥料 春秋战国历史春秋和战国时期都有那些国家?各国家又有怎样的兴衰及更替? thanh thanh 区分氯化铵,氯化钾,磷酸钙三种化肥说初三学生能听懂的. 酸性氧化物与碱性氧化物分别是怎么定义的? 河姆渡和半坡原始居民应该过着什么样的生活 翻译中文成越南语麻烦高手翻译这句话啦,谢谢,在线等啦夏天那里很热吧 麻烦帮越南语翻译下、就一个单词.在线等.1兴趣爱好.最好要有调调的.谢谢啦! 成语背后的小故事,要简练,50字. 英语翻译tìm kiếm 怎样鉴别稀硫酸、稀盐酸、氢氧化钠溶液、氢氧化钙溶液?具体的实验过程 描写神话故事的四字成语 如何快速制作白糖晶体! 请把越南语翻译成中文chau doc 关于成语中的名人故事的研究报告结论,不要超过150字 【化学作业】如何制作白糖晶体? 白糖如何制造的,需要什么原料 成语故事读书笔记150字 古代文武官级别 粉状白糖与颗粒状白糖,其原料、成分、加工工艺和甜度有哪些不同? 自编成语小故事300字左右 春秋战国时期上下等级之间是如何称呼的例如大臣家中的仆人该如何称呼家中的主母?又如何称呼其子女?有没有朋友知道有关这方面的书籍,请介绍一本. 关于士的故事(简短、一两句) Thanh Ba 英语翻译ái chà,cute nhá 关于生命的故事 简短 越南语在线翻译 Thanh tuyen sau rieng banh dai 明朝武官官名及级别 有关布衣之怒,士之怒的例子各3个.各用用简短的一句话概括.(有名一点的) 越南语的Thanh ngang是“平声”还是“横声”? 英语翻译“水果店”这个词怎么写?能不能用越南语写出来啊 关于英雄的简单的事迹 葡萄糖是高浓度电解质溶液吗 春秋战国时期为什么社会等级分类减少?个人认为社会大变革期,像是地主阶级产生,等级分类不是应该增多吗 请问碱性氧化物和酸性氧化物的定义是什么? 氢气是否与氢氧化钙及氢氧化钠发生化学反应说出化学方程式 英语翻译 关于化学反应类型我想知道例如CO2+2NaOH=Na2CO3+H2O属于什么反应类型 NGUYEN THI HANH 将越南名字翻译中文
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘