python 窗体在屏幕边缘自动隐藏_VB6 窗体边缘自动隐藏

编程之家收集整理的这篇文章主要介绍了VB6 窗体边缘自动隐藏，编程之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

添加一个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*************************

总结

以上是编程之家为你收集整理的VB6 窗体边缘自动隐藏全部内容，希望文章能够帮你解决VB6 窗体边缘自动隐藏所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

如您喜欢交流学习经验，点击链接加入编程之家官方QQ群：1065694478