Breadcrumbs

[Agust1337]

Hi this is just a basic tut how to move a panel or any control at run time
OK the project has some extra stuff, so if you want that just dl the project.
Okay now you'll need to put this under Public Class ..
So we have a panel called pnl1..

Code: Select all

Dim smth as Point'Smth is something I dont know what to call it xD, you can call it pt or something.

 Private Sub pnl1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnl1.MouseDown
        smth = New Point(-e.X, -e.Y)
        lb1.ForeColor = Color.White
    End Sub

Private Sub pnl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnl1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim cp As Point = Me.PointToClient(MousePosition)
            cp.Offset(smth.X, smth.Y)
            pnl1.Location = cp
        End If
    End Sub

You'll find everything you need in this app:

[XTechVB]

i've made this a long time ago but still Nice Tut.
This program is not too complicated perhaps you should write the tutorial here

[MrAksel]

Yeah, write it instead of just posting a file. You get much more reputation and you get more people to read it.

[Agust1337]

Well i was in a hurry, but i will put the codes.