大家可能对Ｗｏｒｄ 的工具栏的动态按钮比较了解，其按钮非常的直观，在我们自己编制的应用程序中能不能也加上这样的按钮呢？用ＶＢ即可方便地实现此功能，我们简单地介绍如下。
具体思路
在窗体的合适位置，放置若干个（这里是三个）图片框ＰｉｃｔｕｒｅＢｏｘ。在三个图片框上分别放置按下时的工具按钮图片（ｄｗｎ），再在其上对应着放置三个图片框，用以放置浮起的工具按钮（ＵＰ）。即平时显示浮起的工具按钮，按下后显示另一组带凹陷感的工具按钮，再次点击后又恢复显示浮起的工具按钮，这样就达到了按钮的动态视觉效果。这些图片的文件均能在ｖｂ＼ｂｉｔｍａｐｓ＼ｔｏｏｌｂａｒｓ
目录下找到。
设置图片框属性
在此示例中要用到６个图片框，其中３个按下时的按钮均命名为ｄｗｎ ，ｉｎｄｅｘ 属性为０，１，２，组成控件数组ｄｗｎ（０）、ｄｗｎ（１）、ｄｗｎ（２）；另３个浮起时的按钮均命名为ｕｐ
，ｉｎｄｅｘ 属性为０，１，２，也组成控件数组ｕｐ（０）、ｕｐ（１）、ｕｐ（２），第一个图片框的属性设置如下：
对象属性设置
ＰｉｃｔｕｒｅＢｏｘＮａｍｅ（名称）Ａｕｔｏｓｉｚｅ
ＢｏｒｄｅｒＳｔｙｌｅ Ｉｎｄｅｘ
Ｐｉｃｔｕｒｅ Ｄｗｎ
Ｔｒｕｅ ０＇Ｎｏｎｅ
０ｄ ：＼ｖｂ＼ｂｉｔｍａｐｓ＼
ｔｏｏｌｂａｒｓ３＼ｂｌｔ －
ｄｗｎ ．ｂｍｐ
其他图片框的设置类似，其中，Ａｕｔｏｓｉｚｅ 属性必须设为Ｔｒｕｅ ，这样图片框的大小便能自动调整到图片的大小，Ｂｏｒｄｅｒｓｔｙｌｅ
的属性也必须设为０，没有边框更能突出图片自身的立体效果。
源程序
Ｕｐ －ｃｌｉｃｋ 事件的代码：
Ｐｒｉｖａｔ Ｓｕｂ Ｕｐ －Ｃｌｉｃｋ（Ｉｎｄｅｘａｓ Ｉｎｔｅｇｅｒ）
Ｓｅｌｅｃｔ Ｃａｓｅ Ｉｎｄｅｘ
Ｃａｓｅ ０
Ｄｗｎ（０）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ ＇显示按下钮
Ｕｐ（０）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ ＇隐藏浮起钮，下同
Ｃａｓｅ １
Ｄｗｎ（１）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ
Ｕｐ（１）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｃａｅ ２
Ｄｗｎ（２）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ
Ｕｐ（２）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｅｎｄ Ｃａｓｅ
Ｅｎｄ Ｓｅｌｅｃｔ
Ｄｗｎ －Ｃｌｉｃｋ 的事件代码如下：
Ｐｒｉｖａｔｅ Ｓｕｂ Ｄｗｎ －Ｃｌｉｃｋ（ｉｎｄｅｘａｓ ｉｎｔｅｇｅｒ）
Ｓｅｌｅｃｔ Ｃａｓｅ Ｉｎｄｅｘ
Ｃａｓｅ ０
Ｕｐ（０）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ ＇显示浮起钮
Ｄｗｎ（０）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ ＇隐藏按下钮
Ｃａｓｅ １
Ｕｐ（１）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ
Ｄｗｎ（１）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｃａｓｅ ２
Ｕｐ（２）．Ｖｉｓｉｂｌｅ ＝Ｔｒｕｅ
Ｄｗｎ（２）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｅｎｄ Ｃａｓｅ
Ｅｎｄ Ｓｕｂ（山东新泰电视台杨德海２７１２００）