p> 我们在使用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$#@60;=0 or x$#@62;imagel.width or y$#@60;=0 or y$#@62;imagel.height then imagel.picture=loadpicture("zrup.bmp") ’凸出
else
imagel.picture=lo icture("zrdown.bmp") ’凹入
end if
end select
end sub
通过以上三步骤就可以建立具有“动感”的命令图标，若具有多个命令图标时，可通过创建图像控制数组来实现。bmp是常见的一种图像格式，也可以使用vb提供的丰富的不同状态的命令图标位图文件，它在vb的子目录＼bitmaps＼中。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
