Hallo zusammen,
ich hab' da ein Problem, das banaler wohl nicht sein kann:
Ich habe 20 Label die mit der Maus verschoben werden können - hier funktioniert alles bestens.
Wenn nach dem verschieben die Maustaste losgelassen wird (MouseUp-Ereignis), möchte ich die Position (Location) des verschobenen Labels haben.
Mein Code ist: Alle 20 Label zusammengefasst
ich hab' da ein Problem, das banaler wohl nicht sein kann:
Ich habe 20 Label die mit der Maus verschoben werden können - hier funktioniert alles bestens.
Wenn nach dem verschieben die Maustaste losgelassen wird (MouseUp-Ereignis), möchte ich die Position (Location) des verschobenen Labels haben.
Mein Code ist: Alle 20 Label zusammengefasst
VB.NET-Quellcode
-
- Private Sub lblNomen1_MouseUp(sender As Object, e As MouseEventArgs) Handles lblNomen9.MouseUp, lblNomen8.MouseUp, lblNomen7.MouseUp, lblNomen6.MouseUp, lblNomen5.MouseUp, lblNomen4.MouseUp, lblNomen3.MouseUp, lblNomen20.MouseUp, lblNomen2.MouseUp, lblNomen19.MouseUp, lblNomen18.MouseUp, lblNomen17.MouseUp, lblNomen16.MouseUp, lblNomen15.MouseUp, lblNomen14.MouseUp, lblNomen13.MouseUp, lblNomen12.MouseUp, lblNomen11.MouseUp, lblNomen10.MouseUp, lblNomen1.MouseUp
- Dim lblN As Label = DirectCast(sender, Label)
- Dim lblT As String = lblN.Text
- Dim lblNam As String = lblN.Name
- 'Über lblT kann ich den Text des verschobeben Labels auslesen.
- 'Über lblNam wird der Name des Labels gelesen.
- 'Hier möchte ich die Position des Labels auslesen.
- 'Habe aber einen kompletten Blackout wie ich daran kommen soll?
- Dim labelPos As Point = ?????
- End Sub
Schönen Gruß
Trebron
- Visual Studio Community 2017 -
Trebron
- Visual Studio Community 2017 -