|
-
Apr 7th, 2000, 09:10 AM
#1
Thread Starter
Member
Can anyone tell me how I can make the form itself , not a control, draggable if the borderstyle is set to 0? Thanx
-
Apr 7th, 2000, 05:15 PM
#2
transcendental analytic
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.
-
Apr 7th, 2000, 09:14 PM
#3
Thread Starter
Member
-
Apr 7th, 2000, 10:56 PM
#4
Hyperactive Member
-
Apr 8th, 2000, 01:51 AM
#5
Thread Starter
Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|