VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > VB.net教程 >
  • VB中实现窗体自动隐藏 (转)

VB中实现窗体自动隐藏 (转)

OICQ聊天时的窗体自动隐藏功能,用vc 或CBC都可以很简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下的笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。大伙如有好的意见,不妨贴出来,让我学习学习。

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTapi) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Private Type POINTAPI
  X As Long
  Y As Long
End Type

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOP = 0
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40


Private Sub Form_Load()
'窗体放在最前面
  SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()
  Dim p As POINTAPI
  Dim f As RECT
  GetCursorPos p  '得到MOUSE位置
  GetWindowRect Me.hwnd, f  '得到窗体的位置
  If Me.windowstate <> 1 Then
  If p.X > f.Left And p.X < f.Right And p.Y > f.Top And p.Y < f.Bottom Then
  'MOUSE 在窗体上
  If Me.Top < 0 Then
  Me.Top = -10
  Me.Show
  ElseIf Me.Left < 0 Then
  Me.Left = -10
  Me.Show
  ElseIf Me.Left + Me.Width >= Screen.Width Then
  Me.Left = Screen.Width - Me.Width + 10
  Me.Show
  End If
 
  Else
  If f.Top <= 4 Then
  Me.Top = 40 - Me.Height
  ElseIf f.Left <= 4 Then
  Me.Left = 40 - Me.Width
  ElseIf Me.Left + Me.Width >= Screen.Width - 4 Then
  Me.Left = Screen.Width - 40
  End If
  End If
  End If

End Sub


 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10797429/viewspace-101579/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10797429/viewspace-101579/

相关教程