用VB制作常居上层的浮动工具箱---vb,工具,vb,工具-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>VB编程>>正文	新版上线！[旧版]

注:打开慢时请稍等

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

http://www.iyit.net 日期：2006-5-22 15:54:41 来源：网络转载点击：

【参加讨论】通过形象化的图标，浮动工具箱可以省去用户点击主菜单的麻烦。当鼠标位于其图标上时，在鼠标下方会自动“掉出”一个小标签，说明它的功能。而且常居上层，不会被打开的文件所覆盖。并且可以改变形状及位置，尽可能地减少所占用的桌面面积。

能不能在我们自己的应用程序中使用这种先进手段呢?这里介绍一种用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)、Text1(1)、Text1(3)……。

3.调整按钮及文本框位置。

在此期间，每一项工作都是必要的，如文本框的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, ByVal
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 ，找到以后点击超文本带出解释，拷贝即可。

二、创建代码在通用声明部分输入下列代码并声明一些常量及全程变量：

Declare Sub setwindowpos Lib ″User″ (ByVal hwnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer,
ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)

Const SWP_NOSIZE = 1

Const SWP_nomove = 2

Const flags = SWP_NOSIZE Or SWP_nomove

Const hwnd_topmost = －1

Const hwnd_notopmost = －2

Dim I As Integer

Dim B As Integer

为GP3D1按钮的MouseMove 事件添加如下代码，这里仅实现鼠标在其上时注释器弹出、不在其上时隐去的功能，读者可再加一个计时器控件和一些代码，即可很容易地实现鼠标位于其上片刻后注释器弹出的效果，这样就不会出现鼠标“路过”按钮时，注释器即出现的结果了。

Sub GP3D1_MouseMove (index As Integer, Button As Integer, Shift

As Integer, X As Single, Y As Single)

I = index ′记录下当前鼠标位于哪个按钮上

text1(I).Visible = True ″使其弹出

If B <> I Then ′使其它按钮隐去

text1(B).Visible = False

End If

B = I ′请好好体会这个变量B的作用

End Sub

为Command1按钮的Click事件添加如下代码：

Sub Command1_Click ()

do While DoEvents() ′用DoEvents()实现空闲循环下的多任务监测

setwindowpos hwnd, hwnd_topmost, 0, 0, 0, 0, flags ′实现常居上层

loop

End Sub

为Command1按钮的MouseMove事件添加如下代码：

Sub Command1_MouseMove (Button As Integer, Shift As Integer, X

As Single, Y As Single)

text1(I).Visible = False ′鼠标离开按钮区，位于命令按钮上时隐去注释器

End Sub

为Form1的MouseMove事件添加如下代码：

Sub Form_MouseMove (Button As Integer, Shift As Integer, X

As Single, Y As Single)

text1(I).Visible = False ′鼠标离开按钮区，进入表单时隐去注释器

End Sub
编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：用VB编写FLASH动画播放器
下一篇：VB中Winsock控制的UDP协议的使用
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

VB两种操作Access数据库方法的比较	Access2003开发者扩展工具集概述	SQL Server 的工具--SQL Mail
SQL Server 2000 的工具	用VB备份和恢复SQL Server数据库的方法	SQL Server 2005中的SQLCMD工具使用
在Windows下安装MySQL的图形管理工具ph	MySQL导入导出方法与工具	MySQL数据导入导出方法与工具
VB程序如何访问数据库	VB程序如何连接数据库	VB+Oracle 9i如何构建开发和运行的环境
Oracle 9i管理工具的使用	在Oracle9i中如何自行编译BBED工具	本人编写的两个Oracle的帮助小工具
使用Oracle Wrap工具加密你的代码	分区工具对SATA硬盘的支持问题	DDoS攻击使用的常用工具
菜鸟＋Sa＋注入工具组合＝肉鸡成群	进行傻瓜式攻击揭露工具黑客的秘密	网络安全讲座之六：侦察与工具(7)
网络安全讲座之六：侦察与工具(6)	网络安全讲座之六：侦察与工具(4)	网络安全讲座之六：侦察与工具(3)