如何知道窗口被拖动了.

cdc2533802 2003-09-27 10:11:59

如何知道窗口被拖动了.

...全文

116 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yunfeng007 2003-10-16

打赏
举报

例子
增加窗体form1、form2；模块modules
在模块中

Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_MOVE = &H3
Public Const WM_SIZE = &H5

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Global lproc As Long

Function DialogProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'该函数为Form的窗口处理函数。

Select Case uMsg

Case WM_MOVE
Form2.Move Form1.Left, Form1.Top + Form1.Height

Case WM_SIZE
Form2.Move Form1.Left, Form1.Top + Form1.Height

Case Else
DialogProc = CallWindowProc(lproc, hwnd, uMsg, wParam, lParam)
End Select
End Function

sub Main()
form1.show
end sub

'--------------------------------------------------------------------
在form1中
Option Explicit

Private Sub Form_Load()
Form2.Show
lproc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf DialogProc)
End Sub

cdc2533802 2003-10-16

打赏
举报

楼上的能不能说清楚一点什么意思

tanta 2003-10-16

打赏
举报

简单的办法：
窗体上加一定时器，时间设定为你的响应时间

Dim x As Long
Dim y As Long

Private Sub Form_Load()
x = Me.Left
y = Me.Top
End Sub

Private Sub Timer1_Timer()
If x <> Me.Left Or y <> Me.Top Then
Print "MOVE!"
End If

End Sub