Tabel laten verplaatsen door gebruiker

[Spy1]

beetje overdreven lange code vind je ook niet?

Public Class Form1

    Dim StartX, StartY As Integer
    Dim Dragging As Boolean

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        Dragging = True
        StartX = e.X
        StartY = e.Y
    End Sub

    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If Dragging = True Then
            Label1.Left = (Label1.Left + e.X) - StartX
            Label1.Top = (Label1.Top + e.Y) - StartY
        End If
    End Sub

    Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
        Dragging = False
    End Sub

End Class

is meer dan genoeg hoor!

Heb je de code is getest? Hij doet heel vaag, als ik ergens klik doet hij soms niks, en op een andere plek klikt vlieg die zo weg .

 

[Pizara]

ja hoor , met vb2008

 

[Spy1]

Nou, bij mij doet hij het niet .

 

[Pizara]

net nog even getest , is echt niets mis mee... heb je een express version misschien?

 

[Spy1]

Ik heb Visual Studio 2008.

 

[Pizara]

je hebt 1 label op je form gezet , en de complete code gepaste?

 

[Spy1]

Jaaah.

 

[Pizara]

Je VS2008 spoort gewoon niet...
kan iemand anders dit even testen...

 

[Spy1]

Nou, ik weet niet hoor. Ik weet bijna zeker dat me Visual Studio van 1500,- niet spoort.

 

[bn2vs]

Err... ik heb al de gebruikte properties en methods bij zowel vb8 als vb9 gebruikt, en geen vreschillen waargenomen. denk niet dat het aan de fw versie licht dus...

 

[Spy1]

Hij doet het nog steeds niet.

Is het mogelijk om een location van een tabel te converteren naar een string? Zo ja, hoe?