Results 1 to 5 of 5

Thread: Dragging Forms

  1. #1

    Thread Starter
    Member
    Join Date
    Apr 2000
    Posts
    35
    Can anyone tell me how I can make the form itself , not a control, draggable if the borderstyle is set to 0? Thanx

  2. #2
    transcendental analytic kedaman's Avatar
    Join Date
    Mar 2000
    Location
    0x002F2EA8
    Posts
    7,221
    This one should work:
    Code:
    Dim xx, yy
    
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        xx = X: yy = Y
    End Sub
    
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = 1 Then
            left = left + X - xx
            top = top + Y - yy
        End If
    End Sub
    Use
    writing software in C++ is like driving rivets into steel beam with a toothpick.
    writing haskell makes your life easier:
    reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
    To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.

  3. #3

    Thread Starter
    Member
    Join Date
    Apr 2000
    Posts
    35
    Yeah man Thanx alot!

  4. #4
    Hyperactive Member
    Join Date
    Jun 1999
    Posts
    308
    Hi.

    Check this tip: http://www.vb-world.net/tips/tip114.html

    Larisa

  5. #5

    Thread Starter
    Member
    Join Date
    Apr 2000
    Posts
    35
    Thanx for your help, too, Larisa. Its greatly appreciated!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width