实现金山快译工具条的自动收缩功能

使用了二个API：

GetCursorPos（lpPoint As POINTAPI） as Long

ScreenToClient（ByVal hwnd As Long, lpPoint As POINTAPI） as Long

这两个API是用来实现“金山快译”的自动收缩效果的。
＇最重要的是判断鼠标的位置是否在窗体中的事件,如下:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Isout = False
Me.Top = 0
Do While Isout = False     ＇然后通过循环来判断,直到移出标志为True
    GetCursorPos MyPoint          ＇获得当前鼠标位置,并放在结构MyPoint中,单位为象素
    ScreenToClient Me.hwnd, MyPoint     ＇使结构的坐标成为对应程序中的坐标
    If MyPoint.x < 0 Or MyPoint.y < -10 Or _
             MyPoint.x > Me.Width / 15 Or MyPoint.y > Me.Height / 15 Then
＇统一转化为象素后比较(横坐标小于0或大于窗体宽,纵坐标小于-10或大于窗体高)
＇如果条件成立则表示已经不在窗体内,这里纵坐标不要写成MyPoint.y<0,因为尽管窗体的To
＇p =0 紧贴在窗体顶部,但是单单小于0还是可以让鼠标划得到,而(-10)则无论如何也不可能点
＇得到了.
        Isout = True                   ＇置标志为True
        Me.Top = Int(-0.8 * Me.Height)  ＇再次隐藏
        Exit Sub                        ＇退出过程
    End If
    DoEvents                       ＇要记得交还控制权给系统
Loop
End Sub

实现金山快译工具条的自动收缩功能相关推荐

IE工具条不能自动显示
IE工具条不能自动显示 Delphi / Windows SDK/API http://www.delphi2007.net/DelphiAPI/html/delphi_200611060937412 ...
金山快译 2007 下载-个人收藏专业版
金山快译2007下载版客户端 http://dl2.it168.com/1809/IT168.com-15404FastAIT2007_2.rar 请点击右边下载若不能正常下载请留言电信下载 ...
VC++实现全局钩子勾住textout金山快译的原理实现
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 大家都对 ...
Qt实现类似金山快译那种鼠标移到上方移动滑出的窗口（钩子函数）
首先说移到屏幕上方是在windows上操作的,所以必须用到windows自己的api,这里用到了Windows的钩子函数: HHOOK WINAPI SetWindowsHookEx( __in in ...
教你一招：全面认识浏览器工具条
一. 什么是工具条工具条(英文名称为Toolbar),又名工具栏.工具条是什么?在Google的定义搜索结果中,有17种定义.根据微软的官方定义,工具条是由一组工具条按钮或其他功能控件组成的一个 ...
CToolBar工具条控制方法
所谓工具条就是具有位图和分隔符组成的一组命令按钮,位图按钮部分可以是下推按钮.检查盒按钮.无线按钮等.工具条对象类派生于主窗口架框类CframeWnd或CMDIFrameWnd,其类控制CTool ...
VMWARE全屏时隐藏工具条
如果你只想隐藏这个工具条,可以在VMWARE主界面点"编辑--参数--显示--当取消最前显示时显示工具栏边缘",然后启动虚拟机,右键点那个带图钉的工具栏,选"独占模式&q ...
人工在线客服怎么提高工作效率?可借助快回复工具
人工在线客服日常工作中通常会面对回复速度慢.重复对话多.回复时间紧迫等等问题,这也是导致客服工作效率低下的一些很关键的因素,大多数人工客服行业都在强调工作效率,只有高效率的办公才能促进企业的稳步发展. ...
工具条研究手记（5）- 自定义工具条的实现
/*****************************************************************/ /* 工具条研究手记(5)- 自定义工具条的实 ...

实现金山快译工具条的自动收缩功能

实现金山快译工具条的自动收缩功能相关推荐

最新文章

热门文章