Home › 1_2002 › Move a No-Border form by any thing!
Advertisement
1_2002 VB function enhancement #109765

Move a No-Border form by any thing!

Kenny Lai, Lai Ho Wa
★★★★★
4.8 · Downloads: 2,341

To have a better UI, programmers usually use a borderless form. But there's no caption bar and the form cannot be move. This code help you to move a form by clicking anything that support mousemove, mouseup, mousedown events. See it , it's cool!

AI

AI Summary: 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.

Source Code
original-source 
<p><b><<<General_Declaration>>></b><br>
Dim ism as boolean</p> 
<p><br> 
Public Type POINTAPI<br> 
  x As Long<br> 
  y As Long<br> 
End Type</p> 
<p><br> 
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long</p> 
<p><br> 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long</p> 
<hr> 
<p><br> 
<br> 
Private Sub lbltitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)<br> 
ism = True<br> 
x1 = x + lblTitle.Left<br> 
y1 = y + lblTitle.Top<br> 
End Sub</p> 
<hr> 
<p><br> 
Private Sub lbltitle_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)<br> 
If ism = True Then<br> 
i = GetCursorPos(Pos)<br> 
x2 = Pos.x * Screen.TwipsPerPixelX<br> 
y2 = Pos.y * Screen.TwipsPerPixelY<br> 
Me.Move (x2 - x1), (y2 - y1)<br> 
End If<br> 
End Sub</p> 
<hr> 
<p><br> 
Private Sub lbltitle_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)<br> 
If Me.Top &lt; 0 Then Me.Top = 0<br> 
If Me.Left &lt; 0 Then Me.Left = 0<br> 
If Me.Top > (Screen.Height - (Me.Height / 10)) Then Me.Top = Screen.Height * 9 / 10<br> 
If Me.Left > (Screen.Width - (Me.Width / 10)) Then Me.Left = Screen.Width * 9 / 10<br> 
ism = False<br> 
End Sub</p> 
 
</body> 
 
</html>
Original Comments (3)
Recovered from Wayback Machine