首页 相关文章 如何实现窗体的自动隐藏显示功能

如何实现窗体的自动隐藏显示功能

  现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单,原理是:判断鼠标是否移到了屏幕的最左边或最右边,如果移到了则显示窗体,如果鼠标移开了窗体则隐藏窗体。在本程序中,我们将用到GetCursorPos这个API函数熓鞘迪终飧龉δ茏钪匾的一步牐这个函数的作用就是获取当前鼠标的坐标值,我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘.下面我们就开始吧。

  新建一窗体,将Form1更名为AutoHide熃玽bBorderStyle属性设置为4-Fixed ToolWindow熣庋就不能改变窗体的大小牐琒caleMode属性设置为2-Point。加入一个Timer控件,将Interval的值设为1。

  再新建一个模块,输入如下代码: Public Declare Function GetCursorPos Lib "user32" 焞pPoint As POINTAPI As Long Type POINTAPI x As Long y As Long End Type 该代码则是用于声明GetCursorPos这个API函数的。这个API函数可以在VB6中自带的API 浏览器中查找到。

  在AutoHi...[ 查看全文 ]

2016-02-19 标签:

如何实现窗体的自动隐藏显示功能的相关文章

手机页面
收藏网站 回到头部