evilbunnie
Kryce Addict
Posts: 20
Join date: 2009-09-13
Age: 18
Location: New Zealand
 |  Subject: Make the Updater Moveable *with code*  Tue Sep 22, 2009 7:29 am | |
| Hey, I find the updater quite annoying somtimes when i cant move it around the screen so i came up with this ideaa for you. Make controlnamehere the control like the picture of the bar thing (i bet you knew that) Make formnamehere the formname | Code: |
Dim OldX as Integer, OldY as Integer, MoveIt as Boolean
Private Sub controlnamehere_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
OldX = X
OldY = Y
MoveIt = True
End If
End Sub
Private Sub controlnamehere_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MoveIt = True Then
formnamehere.Top = formnamehere.Top + Y - OldY
formnamehere.Left = formnamehere.Left + X - OldX
End If
End Sub
Private Sub controlnamehere_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveIt = False
End Sub
|
But before you click ok you need to put
At the very top of the form or whatever!
So hope it works !
Last edited by evilbunnie on Tue Sep 22, 2009 11:00 am; edited 4 times in total (Reason for editing : Forgot to tell where to put some code) |
|
kris_hole
Admin
Posts: 279
Join date: 2008-06-23
Age: 17
Location: Behind You!
| | Subject: Re: Make the Updater Moveable *with code* Tue Sep 22, 2009 3:21 pm | |
| yo know bunnie i never ythoght of ptting that in  thanks i'll have a go layter XD
_________________
Kryce-Online Administrator...
|
|
kris_hole
Admin
Posts: 279
Join date: 2008-06-23
Age: 17
Location: Behind You!
| | Subject: Re: Make the Updater Moveable *with code* Sat Sep 26, 2009 2:06 pm | |
| worked, i cant believe i never thought of doing that though
_________________
Kryce-Online Administrator...
|
|
evilbunnie
Kryce Addict
Posts: 20
Join date: 2009-09-13
Age: 18
Location: New Zealand
| |
kris_hole
Admin
Posts: 279
Join date: 2008-06-23
Age: 17
Location: Behind You!
| | Subject: Re: Make the Updater Moveable *with code* Sun Sep 27, 2009 9:43 am | |
| aye. i'm gnna make a video later to show everyone the epic new pet system. its 1 pet per player now like but i think people will be really happy. once i get these last few LONNNNGGGGG bits of code done XD
_________________
Kryce-Online Administrator...
|
|
evilbunnie
Kryce Addict
Posts: 20
Join date: 2009-09-13
Age: 18
Location: New Zealand
| |
. I am getting a new one at the moment right now i am on my friends pc ill try play...
