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

窗体装入时：
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＼中。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18