实现金山快译工具条的自动收缩功能
来源:互联网 发布:seo外包公司如何优化 编辑:程序博客网 时间:2024/06/10 08:29
使用了二个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
- 实现金山快译工具条的自动收缩功能
- javascript实现收缩功能
- UITableViewCell的展开与收缩功能实现分析
- DIV实现的表格自动伸张与收缩
- VC++实现全局钩子勾住textout金山快译的原理实现
- 完成对话框收缩的功能
- 用table实现收缩栏功能
- 在WinForm中实现收缩功能
- AccordionPane实现自动展开和收缩
- 自动播放功能的实现
- 自动登录功能的实现
- 工具条研究手记 -工具条下拉按钮的实现
- 工具条研究手记(5)- 自定义工具条的实现
- TextView的展开收缩功能的实现;(及判断TextView是否超出)
- JFrame在去掉标题栏的情况下,如何实现拉大收缩边框的功能?
- 实现广告收缩的代码
- jquery实现表格的收缩
- 【IOS】扩展UIImageViewEx实现:手势移动,旋转,缩放(附带一个收缩的文字标签功能)
- C语言之指针、数组和函数
- ASP.NET中将数据输出到Excel
- 自定义处理窗体的移动消息WM_MOVE
- 在ASP.NET中从SQL Server检索图片
- 简单的抓取屏幕生成位图文件(不用内存图象拷贝API函数)
- 实现金山快译工具条的自动收缩功能
- java.lang.Byte翻译
- native2ascii-本地码-至-ASCII 码转换器
- 美国人日常生活中常用的五星级句子
- 字符过滤函数
- Entity Bean vs Hibernate Pojo
- 在ASP.NET中如何用C#.NET实现基于表单的验证
- Microsoft Application Blocks for .NET
- commons-fileupload user guide