说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
用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 ,找到以
后点击超文本带出解释, 拷贝即可。
二、创建代码 在通用声明部分输入下列代码并声明一些常量及全程变量:
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 wFlag s 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

谷歌亚马逊微软的烧钱游戏 拉手网CTO官冲:团购网在大数据应用上的探索 究竟谁真正关心比特币,不妨看看基于大数据的百万条推特分析 Firefox 29正式版:高度自定义模式、全新菜单和Australis UI 冼茂源:HBase在垂直搜索业务以及数据存储中的应用! 阿里云计算北京布点 全球第三个云数据中心开放 【走近讲师】友友天宇CEO姚宏宇:与行业结合是私有云厂商的重要出路 万亿移动支付产业的难点和痛点 削减硬件运营成本?亚马逊或自主研发ARM架构芯片 开源框架eMobc:XML开发原生移动应用so easy iOS应用安全开发,你不知道的那些事 市场化API的十个捷径 MongoDB和Cloudera结盟,欲征服大数据市场 红帽收购Inktank,将统一Gluster与Ceph? 那些巨头公司Logo是这么演变来的…… 以史为镜,剖析PaaS大迷局 “心脏出血”还不够?又曝OAuth和OpenID登录漏洞 走近讲师:搜狐于顺治讲述搜狐PaaS云平台实践之路 AppFlood 2014 Q1报告:亚洲和中东市场成为开发者出海首选 华为联合运营商构建能力开放平台 Facebook产品设计主管:揭秘公司如何招聘优秀设计师 【附信息图】美国因软件缺陷导致的十大事件 二十一世纪Windows简史 为什么用户体验和生态系统决定云公司的成败 三星Tizen,路漫漫其修远兮 用户体验是新优势,互联网会受到何种影响? 从GitHub看编程语言流行度 陈沙克:Openstack Horizon Icehouse Blueprint简介 叶琪:Hadoop不是万能的 要明确场景扬长避短 云网融合驱动数据中心技术聚变 给想持续编码CEO的4个建议 操作系统为solaris如何配置才能上internet网? 大虾留步! 根据日期查询数据库的问题(当天结账)急! 请问怎么去打开一个SQL SERVER的数据库,求救 怎样修改注册表? 如何把程序编译为只有一个EXE的文件?(对不起,我的分发光了!) OCP 试题之一 EhLib里TDBGridEh控件的SaveBookmark方法有何作用? 编程不需要创新,我同意 有一个朋友向我要类描述的rose表示的例子,我已经做好了,并上传到下面的网址上 福州的程序员请进................ 如何执行一个*.txt文档中的语句? 怎么在一个button被点击时,播放一段声音呢? OCP 试题之二 怎么用jb5创建一个corba工程? 怎么才能让程序永远在最前面 送分 请问乙肝表面抗原阳性(最最轻的那种,不是小三阳),进外企要不要?作公务员要不要紧?谢谢 怎么样才能处理像VB中的TREEVIEW中的NODECLICK的事件? 我想了解一下国内有多少公司用rose ASP500错误该怎么处理呢?新手请高手赐教!!本人在IIS的根目录下面访问HTM不会出现错误,但是在根目录下面建了虚拟路径有就出现了500错误。为什么? 每一个开发人员都应该拥有的东西 老问题:如何获得鼠标IBEAM的Handle? 用GetCursor()只能获得当前鼠标的Handle. 请问有法律高手在吗?急需要帮助,谢谢。 OCP 试题之三 请问乙肝表面抗原阳性(最最轻的那种,不是小三阳),进外企要不要?作公务员要不要紧 ?谢谢 请教:如何修改ICON? 高分寻求关于vc和mapinfo结合的资料!一定给分!! 怎么我在IE上提供的word文档下载,当点击左键时会打开执行而不能下载, 我公司招聘 做个小调查:做OA用Microsoft的做和用Lotus的做,工资大概各是多少?觉得哪个更难学? 请高手赐教,'ASP 0156 : 80004005' 是什么错误? 在MDI的主窗口CLOSE事件中,返回什么值才能使窗口不会被关闭? 老问题了一直没解决,speechSDK5.1做的程序怎样发布呢? 救命阿?? VC和SQLserver2000可以连么???如何连??????????????? 小弟的“处女作”,请给位捧个场,多提宝贵意见!谢谢! 帮我去见见好吗?http://www.csdn.net/expert/topic/389/389043.shtm 做个小调查:做OA用Microsoft的做和用Lotus的做,工资大概各是多少(最好写明地区)?觉得哪个更难做? 有什么比较好的帮助文件制作软件 chm 或 hlp?那里可以下载? 忍痛送分了,谁知道哪儿有d5开发指南下载,最好是李维的??? 步入设计先锋,专家在线语音交流。你是优秀的平面美术设计师或网页设计师吗?请走进我们的设计联盟。 unix 的安全问题? 分散不出去,因为很简单的问题没人回答出。 小弟的电脑罢工了,还望各路英雄拔九相助!!!!!感激不尽!!(眼泪与鼻涕齐下。。。。) 为什么我在IE的地址栏中一键入www. 就出现了“本程序执行了非法操作”这句话?然后就退出了IE.怎么解决?重装IE也不好用啊! 在Query的SQL中,我想查询一个月内每天某一个小时的记录,如何做? 怎么样可以得到某一组控件的控件数组中,每个控件各能响应的不同的值。用什么判断语句可以实现? 我很烦:两个网卡的问题 (fdogg)继续帮帮吧! 一个安装打包的问题 初一上学期语文第二单元作文材料例文 为什么没有科学家发明热矿泉水,冬天喝冷矿泉水太受不了? 已知m是√13的整数部分,n是√13的小数部分,求m-n/m+n 用方程解..1.一件工作,甲独做20小时完成,乙独做12小时完成,现在先由甲独做4小时,剩下的部分由甲、乙合做完成,完成这项工作甲做了多少小时?2.一项工程,甲单独做20天完成.乙单独做10天完成. 初一下学期语文课内的文言文或者是现代文阅读的题目帮忙找语文课内的文言文或者是现代文阅读的题目要有标准答案 哪里有初一下的语文字词复习主要有注音和字词解释 怎么用matlab画德鲁得公式的图其中公式为:λp=0.16826 λc=8.9342 要求横坐标0.4--1.9 步长0.01 分别画出实部和虚部的图形 初一的语文文言文有哪些 我的孩子开学上初一,想给找个机构补习语文, 用MATLAB编程画二维图,求程序!方程为:x为位移,最后完成的图像应为 1、学了论语十则后,请结合你感受最深的一则谈谈启示.2、请结合论语十则的内容或给你的启示,拟一组不少于五言的对偶句 孩子想补习语文,初一的,请问还点附近哪里的好?特别好的,远些也可以.标题写错了,是“海淀” 矿泉水能否热、凉混着喝? 童趣和论语十则,逐字逐句的翻译,每一个字就算没意思都要说无意, 如果给一个初一的孩子补习语文,他的成绩比较差,应该给他补习哪些内容呢? 矿泉水喝热的好还是冷的好? 运筹学最小元素法中如果有M或0 怎么计算啊初始方案就是产销不平行化成平衡后 会出现M或者0 那怎么计算初始的方案 差额法碰到M的怎么算~ 一下matlab程序错在哪clear allclclamada=0.3;theta=0.7;m=0.4;d=0:0.01:1;r=0:0.01:1;[d,r]=meshgrid(d,r);c=(1-theta+m*(d.^2-r.^2)/2+lamada*(r-d))/2;A2=m.^2*r.^4/(32*(1-theta))+m.^2*d.^4/(32*(1-theta))-m.^2*d.^2*r.^2/(16*(1-theta))-(3-2*theta)*m*la 矿泉水和开水能混着喝吗?为什么 会Matlab请进 帮解决下运筹学的问题minz=1600x1+1600x2+1600x3+1600x4+300x1*x1+300x2*x2+300x3*x3+300x4 *x4-300x1*x2-300x2*x3-300x3*x4-300x4*x1-1433600 st x1>=220 x2>=256 x3>=240 x4>=180 x1.x2.x3.x4都为整数用MATLAB求最优解 我在帮一个刚考完小升中的男孩补习他说他语文差,该给他补小学的呢?还是辅导初一的呢? 用冷矿泉水冲蜂蜜喝,最佳有分. 用matlab解决运筹学中的LP问题用matlab编程,使用单纯形法解决LP问题只需解决max:z=CX,AX≤B,X≥0的情况即可.我不要那么麻烦的,只需要解决上面那种情况就行 matlab中,这个程序错在哪?clc clear alllamada=0.2;theta=0.7;s=0:0.01:1;c=lamada*s+3/2;f=s.^2*lamada.^2/(4*theta)+(1/2)*(-lamada*c/theta+lamada)*s+c.^2/(4*theta)-c/2+theta/8+1/8;plot(s,f,'b');程序提醒f函数错了 matlab 矩阵操作问题例如R=[1 0 1 0 1 1 0 0 0 11 1 1 0 1]L=[-1 0 1 1 00 1 -1 -1 0]我现在要对L逐行用ind求出了-1的列号,再计算R对应ind列里面1的个数,应该怎么写-急用 初一下册语文测试题帮帮忙! 急求运筹学单纯型法的matlab程序代码!期末了急求运筹学上机实验matlab程序代码,题目是单纯型法,知道的请指教, matlab中矩阵操作问题在matlab中:若a为465*576的矩阵,b为1*120的行向量,c为1*144的行向量,d为120*144的矩阵.表达式a(b,改变了a中的那些位置值?这些值与d是什么关系? 卷通天下初一下册语文人教版期末测试题答案写出下面词语的同义词夹杂——( ) 弥散——( )自失—— ( ) 朦胧—— ( ) matlab和运筹学哪个好 在线等------MATLAB 对矩阵的操作:A是矩阵我知道A(:,2)表示的是第二列元素.那么,A(:,2,可否举个简单例子说明一下? 1一辆客车与一辆货车同时从甲乙两地开出,相向而行,客车每小时行120千米,货车每小时行80千米,相遇时客车比火车多行140千米,求相遇时间和甲乙两张的距离.2.客车从甲地开往乙地,速度是55千 .喝矿泉水能补充矿物质吗?★ 当发网 DangFa.com ★ 矿泉水喝多点会胖吗?我夏天一天要喝2000多毫升水,但又没吸收,在校时一天要去10几次厕所. 已知根号7的整数部分是X,小数部分是Y,求y(根号7+y). 一瓶普通矿泉水多少能量出于减肥的目的- -俺衡量下一瓶饮料和一瓶矿泉水的差距问你们多少能量 废话这么多干什么 矿泉水喝多了是不是会长胖共同 已知根号7的整数部分是x,小数部分是y,试探求y(根号7+x)的值 加林山矿泉水的热量是多少? 喝矿泉水肚子会变大么?会胖么? 已知X = 3╱根号7 - 2 ,a 是 X 的整数部分,b 是 X 的小数部分,求a-b╱a+b的值?╱ 是分数线 矿泉水腌萝卜条的热量是多少? 数学建模各种算法MATLAB的编程代码像排队论MATLAB的模拟程序、灰色模型的算法程序等!反正涉及数学建模需要编程的的程序代码尽可能多的给我!好的话在+100分, 已知根号7的整数部分是x,小数部分为y,求y•(根号7+x)的值快 初一的语文基础训练17课的答案 请问如何用matlab遗传算法编程? 已知x=2+根号7,若x的整数部分是a,x小数部分是b,求xb-a的值 不抄,只是第一课有些题不会, 求助matlab编程!算法寻优其中 求最小z值以及取最小值时各变量取值分别为多少 Matlab M文件运行问题我将一段程序命名为try.m,保存在目录E:\Software\Matlab\work文件夹中,在M文件的编辑窗口运行之后就弹出一个对话框:File E:\Software\Matlab\work is not found in the current directory or on the 立刻给我写下来,简洁点 计算机图形学的题:已知起点A(16,-5)和终点B(-4,8),用DDA法在A和B之间生成一段直线 matlab中m文件运行错误,m文件中程序如下:function my13()x0=[1,1,1,1,1,1,1];A=[1,1,1,1,0,0,0;1,1,1,1,1,1,1];b=[5;10];C=[0,0,0,2,1,0.8,1];d=[5];xm=[0,0,0,0,0,0,0];xM=[];[x,y]=fmincon(@ffun,x0,A,b,C,d,xm,xM,@ghun)function y=ffun(x)y=-5*x(1) 两道数学行程问题,要求用方程解答1.某人从A地去B地,如果他以每小时4千米的速度前进,正好在预定的时间内到达,他用这个速度步行了全程的一半后,其余路程搭乘速度为每小时20千米的公共汽 请问matlab中使用遗传算法编程,如何自己定义编码方式染色体分为六位,每位限制在[-10:0.5:10]这40个数当中,看成[0:40]也行,是不是一定要自定编码方式?自定的话怎么写啊 还有如果编码方式custom matlab M文件怎么运行啊, 几道数学行程问题(用方程)1.敌、我相距28千米,得知敌军1小时以前以每小时8千米的速度逃跑,现在我军以每小时14千米的速度追敌军,几小时可以追上敌军?2.甲、乙两架飞机同时从相距750千 人教版初一下册语文第二单元 试卷阅读是主要 经期间可以喝冷的矿泉水吗? matlab编程问题m=3,n=6,r=4;a=m*x^2+n*x;b=r*x+sinx;c=cosx;d=(a+b)*c+a^2;用matlab编程实现:输出x表示d的方程式,并输出d对于x的一阶导数、二阶导数方程式(均用含数字和x的式子表示).
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn