模块函数
Public Type POINT X As Long Y As Long End Type
Public capture As Boolean Public CursorPosition As POINT
Global Const WM_GETTEXT = &HD Global Const WM_GETTEXTENGTH = &HE Global Const HWND_TOPMOST = -1 Global Const HWND_NOTOPMOST = -2 Global Const SWP_NOACTIVATE = &H10 Global Const SWP_SHOWWINDOW = &H40 Public Declare Function GetCursorpos Lib "user32" (ByRef lpPoint As POINT) As Long Public Declare Function WindowFromPoint Lib "user32" (ByVal X As Long,ByVal Y As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long Public Declare Function SendMessagebystring Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,lParam As String) As Long Public Declare Sub 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) 窗体函数(option)
Private Sub Check1_click()If Check1.Value = 1 Then SetWindowPos Form1.hwnd,HWND_TOPMOST,Form1.Left / 15,Form1.Top / 15,Form1.Width / 15,Form1.Height / 15,SWP_NOACTIVATE Or SWP_SHOWWINDOWElse SetWindowPos Form1.hwnd,HWND_NOTOPMOST,SWP_NOACTIVATE Or SWP_SHOWWINDOWEnd IfEnd Sub (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|