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

使用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\中。
□山东 张嵘
《程序员必读之软件架构》作者Simon Brown:架构师与程序员的区别 Xcode 6.3 Beta发布,Swift 1.2带来哪些新变化? 应用生与死:移动测试究竟该怎么搞? Chrome将跟SPDY说再见,拥抱HTTP/2 ImageNet挑战赛中超越人类的计算机视觉系统 用VB自带打包生成安装程序,安装时出错 一个字段的SQL语句问题,百分有奖争答! 用VB能发送内嵌图片的邮件吗? 高手,救急! 怎样设计一个功能让程序在运行时自动申级. 哪里能下载电子版的《C++编程高手箴言》a ? 我用IIS中的SMTP发送邮件,能发送,不能接收,是怎么回事?(邮件列表) ADOQuery 查询Access数据库问题:Select * from MUse Where DoDate >= #2003-11-01 00:00:01# 报错! 项目经理要求写一份测试流程,供以后培训新员工使用,主要是针对开发人员的单体测试。望各位大虾给与指点 我需要锚杆直径,锚杆钻头,以及树脂锚固剂的合理搭配 M27锚杆的直径 华北平原农业发展的三大障碍是什么? 华北平原发展农业最不利的因素是? 我国华北平原发展农业的主要障碍是什么? 华北平原是我国主要的农产品出口基地,制约该地区发展 求20l0.5m的硝酸溶液加水20l的摩尔浓度? 质量分数为10%的硝酸的摩尔浓度是多少 GRE改革了,怎么选择单词书 澳洲使馆被指替美监听亚洲 北京河内均英议员拒降低果酱含糖量 称或“降格”律师称斯诺登将从11月起在俄大型网站乌克兰加入欧盟协定签署期或推迟到20韩国防部:无计划推动签署韩日军事情报【点心债】轻舟已过万重山,与在岸收益黄金山药条范玮琪双胞胎儿子【资产配置】增持美元资产!人民币贬值天弘基金赵洁:业务HR,从伯乐到业务无限虚空生死游命周天大衍界巫领主系统云南铁路博物馆旅游浑源旅游晋华宫矿矿山公园旅游军马场旅游峨眉山滑雪场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘