Visual Basic Forum

Bahamut · Poster Anmeldedatum: 17.04.2008 Beiträge: 142

Beschreibung:
Mit diesem Code könnt ihr auch Formen ohne Rand verschieben. Wenn solange der User auf das Label drückt, kann die Form verschoben werden. Als Timer-Intervall sind ca 10 ms zu empfehlen.

Code:
Visual Basic: [code]Private Sub Label1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles Label1.MouseDown

Timer1.Enabled = True ' Timer wird gestartet
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick

Dim position As System.Drawing.Point
'Ein Punkt mit den aktuellen Mauskoordinaten wird angelegt
position.X = Me.MousePosition.X
position.Y = Me.MousePosition.Y

Me.Location = position ' Form Location ist Mauslocation

End Sub

Private Sub Label1_MouseUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp

Timer1.Stop() ' Stoppen
Timer1.Enabled = False

End Sub[/code]

Dieser Code wurde von Marduk geschrieben
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Hmm, das ist noch der alte Code, ich hab mal einen neuen geschrieben, denn bei dem "springt" die obere linke Ecke der Form an die aktuelle Mausposition beim Klicken. Die überarbeitete Version hat das nicht mehr, bin mal eben suchen.

//So, hier mal die verbesserte Version. Es wird 1 Timer benötigt.

^^kev#### · Verfasst am: 21.05.2008, 20:58

Wieso benutzt ihr eigentlich nie die VB Tags Very Happy

?

Visual Basic: [code]Private Sub Label1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles Label1.MouseDown

Timer1.Enabled = True ' Timer wird gestartet
Timer1.Start()

End Sub

[/code]
_________________

Bahamut · Poster Anmeldedatum: 17.04.2008 Beiträge: 142

(^^kev####;2614)

Wieso benutzt ihr eigentlich nie die VB Tags Very Happy

?