Fenster nur nach oben und unten bewegen

[popelmaster]

gibt es eine funktion mit der es möglich ist das man ein fenster nur nach oben und unten bewegen kann also nich nach links und rechts? hab diese funktion:

Im Form1 Code:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveWindow Me.hwnd
End Sub

Im Module Code:
Public Sub MoveWindow(OHwnd As Long)
' Verschieben eines Formulars mit der Maus
ReleaseCapture
SendMessage OHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub


damit kann ich das fenster aber auch nach links und rechts bewegen ... will es aber auf oben und unten einschränken... gibt es da ne möglichkeit... wäre um jeden Tip dankbar

Grüsse,

Roman

 

[MM4213]

Hallo!

Kann man das Problem nicht lösen, indem man beim Ereignis mousemove nur die Bewegungsdifferenz der Mouse im Y-Wert errechent und die Position der Form nur um diese Differenz ändert?

Das dürfte doch auch nicht viel länger sein!

Gruß! MM

 

[JensG]

Hallo ,

sowas ähnliches hatten wir erst vor kurzem. Vielleicht hilft das
als Lösungsansatz.

Option Explicit


Private fLeft As Integer
Private Sub Form_Load()
    
    fLeft = Form1.Left
    
End Sub
Private Sub Timer1_Timer()
    
    If Form1.Left <> fLeft Then
        Form1.Left = fLeft
    End If
    
End Sub

 

[popelmaster]

danke war ne super grosse hilfe ...echt super ...

THX