Dragging a form by a control
This code is reusable and small enough to paste into whatever you're doing and instantly have a form that has no need for a title bar.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
In the Mousedown event of the control, insert: Sub Command1_MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim Ret& ReleaseCapture Ret& = SendMessage(Me.hWnd, &H112, &HF012, 0) End Sub
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine