今天图老师小编给大家介绍下如何实现窗体的自动隐藏显示功能，平时喜欢如何实现窗体的自动隐藏显示功能的朋友赶紧收藏起来吧！记得点赞哦~
【 tulaoshi.com - 编程语言 】
现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单，原理是：判断鼠标是否移到了屏幕的最左边或最右边，如果移到了则显示窗体，如果鼠标移开了窗体则隐藏窗体。在本程序中，我们将用到GetCursorPos这个API函数熓鞘迪终飧龉δ茏钪匾的一步牐这个函数的作用就是获取当前鼠标的坐标值，我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘.下面我们就开始吧。
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）新建一窗体，将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 浏览器中查找到。
在AutoHide窗体中，输入如下代码： Dim Mouse As POINTAPI '这句代码在声明部分中加入 Private Sub Form＿Load煟 AutoHide.Height = Screen.Height '使窗体高度与屏幕高度相同 '调整窗体的显示位置 AutoHide.Top = 0 AutoHide.Left = 0 - AutoHide.Width + 50 '使窗体在屏幕的最左边显示并显示出一小部分窗体煷耸蔽收缩状态 End Sub Private Sub Timer1＿Timer煟 a = GetCursorPos烳ouse If Mouse.x = 0 Then '鼠标移到了屏幕的最左边焫为屏幕的纵坐标，当纵坐标为0时，表示鼠标已经移到了最左边，因此这是最关键的一步 AutoHide.Left = 0 '使窗体居左显示 End If If Mouse.x AutoHide.ScaleWidth Then '如果鼠标没有在窗体之上则隐藏窗体.
注意：窗体的ScaleMode属性一定要设置为2-Point，否则达不到隐藏的效果 AutoHide.Left = 0 - AutoHide.Width + 50 '如果前面没有加上50熣饫镆膊患由稀 End If End Sub 好了，单击F5运行一下就可以看到我们的效果了。
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/）来源:http://www.tulaoshi.com/n/20160219/1608390.html
看过《如何实现窗体的自动隐藏显示功能》的人还看了以下文章 更多>>
