添加一个timer控件 Interval属性为200 **********模块代码*************** Option Explicit Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetwindowRect Lib "user32" (ByVal hwnd As Long,lpRect As RECT) As Long Public 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 Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type POINTAPI X As Long Y As Long End Type Public Const HWND_TOPMOST = -1 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const HWND_TOP = 0 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_SHOWWINDOW = &H40 *********窗体程序代码************** Private Sub Form_Load() SetwindowPos Me.hwnd,HWND_TOPMOST,SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Timer1_Timer() On Error Resume Next Dim p As POINTAPI Dim f As RECT GetCursorPos p 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 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 ElseIf 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 Sub ****************END*************************
原文地址:https://www.jb51.cc/vb/259969.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。