精彩编程与编程技巧-用VB制作常居上层的浮动工具箱...

用VB制作常居上层的浮动工具箱

通过形象化的图标，浮动工具箱可以省去用户点击主菜单的麻烦。当鼠标位于其图
标上时，在鼠标下方会自动“掉出”一个小标签，说明它的功能。而且常居上层，
不会被打开的文件所覆盖。并且可以改变形状及位置，尽可能地减少所占用的桌面
面积。 能不能在我们自己的应用程序中使用这种先进手段呢?
这里介绍一种用VB来实现的简单方法。主要编程思路是：引用 Windows APL函数，
实现表单常居上层；建立控件数组，通过控件的 MouseMove事件，引发注释的弹出
和消失。 
一、浮动工具箱的可视化实现方法 
1.在Form1 上放置控件SSRIBBON按钮(因为它本身有三种状态：按下、弹 起、禁止
使用，大部分图标按钮都是这类按钮)。再放置文本框 Text1(也可以用 Label控件，
但效果会有所不同，稍后会讲到)，再放置一个命令按钮Command1。各控件属性见
表1(表中只列出一个例子，其它的只要修改相应的属性即可)。
2.单击GP3D1，按 ALT＋Del剪切，然后按 ALT＋Insert 复制若干，形成 控件数
组GP3D1(0)、GP3D1(2)、GP3D1(3)……，再如法建立Text1(0)、T ext1(1)、Text1
(3)……。
3.调整按钮及文本框位置如图所示，右表为Tools窗体的特性表。 在此期间，每
一项工作都是必要的，如文本框的Visible值为 False，以 确保程序启动时不显示
文本框，而Enable值为False是为了在运行过程中 ，文本框不能输入文本。如果使
用标签(Label)代替文本框，则不能纵向 排列图标按钮，只能横向。因为下面的按
钮会盖住Label，但使用Label要比文本框省内存。 为了实现常居上层的效果，必
须调用Windows API 函数，事实上VB的很多方法都引用于Windows API 。这里我们
用SetWindowsPos过程，此过程在User.exe中定义，它是Windows系统重要的动态链
接库。在VB中引用 API函数时，必须在通用声明部分声明注册。声明API函数往往
比较麻烦且易出错，比如： Declare Sub SetWindowPos Lib ″User″ (ByVal 
hwnd As Integer, B yVal hWndInsertAfter As Integer,ByVal X As Integer, 
ByVal Y As Integer,ByVal cx As Integer, ByVal cy As Integer, ByVal 
wFlags As Integer) 如果所有的API函数声明都这么输入，效率太低。好在各版本
的VB都提供了一个Windows API Help程序，打开它，搜索 SetWindowPos ，找到以