✔ Form haut ab

[A-G-E-N-T]

Hallo was ist hier flasch die form haut einfach hab ins nix wenn ich auf die form klicke

-- Form --

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button Then
    Form1.Left = Form1.Left + (X - HitMPos.pX) * 15
    Form1.Top = Form1.Top + (Y - HitMPos.pY) * 15
  End If
End Sub

-- Modul --

Public Type Point_Type
  pX As Long
  pY As Long
End Type
Public HitMPos As Point_Type

 

[Alex F.]

Ich weiss ja nicht genau was du vorhast aber ich sehe die probleme folgendermassen:

1. Du addierst zur aktuellen left eigenschaft immer noch mal mindestens dasselbe dazu ( abzüglich hitmpos.px was bei mir 0 war).

Damit hasst du deine Form schonmal um 100% nach links verschoben.

2. nimmst du diesen Wert und multiplizierst ihn mit 15 was eine Verschiebung um insgesamt 1500% ergiebt. D.h. wenn deine Form nicht ganz klein und dein Bildschirm nicht ganz breit ist -> liegt sie danach ausserhalb des sichtbaren bereichs

Gruß bb

 

[A-G-E-N-T]

Ahja naja habe meine lösung gefunden

http://www.vbarchiv.net/archiv/tipp_details.php?pid=63


DANKE