Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Danke, sorry das ich nicht vorher in die Tips und Tricks geguckt habe
Autor: Nino
Datum: 11.05.02 13:29
Wäre es nicht einfacher, wenn man das Problem so löst: Dim MoveStartX As Long, MoveStartY As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveStartX = X MoveStartY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim PosX As Long, PosY As Long If Button = 1 Then If MoveStartX = -1 Or MoveStartY = -1 Then Exit Sub End If PosX = Me.Left + (X - MoveStartX) PosY = Me.Top + (Y - MoveStartY) Me.Move PosX, PosY End If End Sub MFG, Nino

Verschieben eines Fensters wenn die Borderstyle Funktion auf...	72	Kabal	10.05.02 16:42
Re: Verschieben eines Fensters wenn die Borderstyle Funktion...	295	Dieter	10.05.02 16:48
Danke, sorry das ich nicht vorher in die Tips und Tricks geg...	55	Kabal	10.05.02 16:49
Re: Danke, sorry das ich nicht vorher in die Tips und Tricks...	51	Nino	11.05.02 13:29
Re: Danke, sorry das ich nicht vorher in die Tips und Tricks...	60	E7	11.05.02 16:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen