Bildausschnitt in PB verschieben

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

    Bildausschnitt in PB verschieben

    Moin,

    irgendwie stehe ich herade ratlos da, ich habe eine PB in der ich ein Bild lade und dieses möchte ich dann mit der Maus verschieben, sofern das Bild größer als die PB ist.
    Das funktioniert auch bereits super. Nun möchte ich jedoch, dass man das Bild nicht über die Maximalmaße schieben kann, also wenn die rechte Seite erreicht ist, soll man nicht weiter schieben können, ebenso beim unteren Ende.
    Oben und Links habe ich bereits einfach hinbekommen.

    Hier erstmal mein Code

    Global

    VB.NET-Quellcode

    1. Private bButtonPressed As Boolean = False
    2. Private MousePos As Point
    3. Private PicPos As New Point(0, 0)
    4. Private CurrentPos As Point
    5. Private BigPicture As Bitmap ' das geladene Hauptbild


    VB.NET-Quellcode

    1. Private Sub imgHeader_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles imgHeader.MouseDown
    2. Dim This As PictureBox = TryCast(sender, PictureBox)
    4. If Not bButtonPressed AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
    5. bButtonPressed = True
    6. MousePos = New Point(Cursor.Position.X - PicPos.X, Cursor.Position.Y - PicPos.Y)
    7. End If
    8. End Sub
    10. Private Sub imgHeader_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles imgHeader.MouseMove
    11. Dim This As PictureBox = TryCast(sender, PictureBox)
    13. If bButtonPressed Then
    14. Dim bNew As New Bitmap(This.Width, This.Height)
    15. Dim g As Graphics = Graphics.FromImage(bNew)
    16. If BigPicture.Width - This.Width > 0 Then
    17. If Cursor.Position.X - MousePos.X < 0 Then CurrentPos.X = Cursor.Position.X - MousePos.X
    18. End If
    20. If BigPicture.Height - This.Height > 0 Then
    21. If Cursor.Position.Y - MousePos.Y < 0 Then CurrentPos.Y = Cursor.Position.Y - MousePos.Y
    22. End If
    24. g.DrawImage(BigPicture, CurrentPos)
    25. g.Dispose()
    26. This.Image = bNew
    27. End If
    28. End Sub
    30. Private Sub imgHeader_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles imgHeader.MouseUp
    31. If bButtonPressed AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
    32. PicPos = New Point(CurrentPos.X, CurrentPos.Y)
    33. End If
    35. bButtonPressed = False
    36. End Sub


    Wenn ich nun ein Bildlade welches z.B. bei Abmaße 1280x1024 hat und mir die Position des Bildausschnitts anzeigen lasse, so hat CurPos.X den Wert 1218 wenn das Bild am rechten Rand der PB angelangt ist. Meine Frage ist nun, wie komme ich mathematisch auf diesen Wert?
    PS: Die PB hat die Abmaße 490x68.

    Es sollte so gehen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub imgHeader_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles imgHeader.MouseMove
    2. Dim This As PictureBox = TryCast(sender, PictureBox)
    4. If bButtonPressed Then
    5. Dim bNew As New Bitmap(This.Width, This.Height)
    6. Dim g As Graphics = Graphics.FromImage(bNew)
    7. If BigPicture.Width - This.Width > 0 Then
    8. If Cursor.Position.X - MousePos.X < 0 Then CurrentPos.X = Cursor.Position.X - MousePos.X
    9. End If
    11. If BigPicture.Height - This.Height > 0 Then
    12. If Cursor.Position.Y - MousePos.Y < 0 Then CurrentPos.Y = Cursor.Position.Y - MousePos.Y
    13. End If
    15. If (CurrentPos.X < This.Width - BigPicture.Width) Then
    16. CurrentPos.X = This.Width - BigPicture.Width
    17. End If
    18. If (CurrentPos.Y < This.Height - BigPicture.Height) Then
    19. CurrentPos.Y = This.Height - BigPicture.Height
    20. End If
    22. g.DrawImage(BigPicture, CurrentPos)
    23. g.Dispose()
    24. This.Image = bNew
    25. End If
    26. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Bei mir ist alles da.
    Hast Du noch irgendwo einen Rand?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was für ein Rand??

    Also diese Formel macht ja auch Sinn, aber funktioniert bei mir eben nicht ^^ wie gesagt das Bild mit 1280px Breite ist bei 1218px genau am rechten Rand der PB.
    1280 - 490 = 790 das heißt es fehlt vom Bild noch eine ganze Menge.

    Ein Bild mit der Breite von 790px ist bei CurrentPos.X = 302 am rechten Rand.

    Ich seh gerade, hab auch ein großes Bild drin, da scheint CurrentPos irgendwie beschnitten zu sein. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Du verwendest

    VB.NET-Quellcode

    1. Cursor.Position.X
    2. Cursor.Position.Y
    3. ' anstelle
    4. e.X
    5. e.Y

    Isses das vielleicht?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    zieht e.x und e.y nicht NUR wenn sich die Maus auf der PB befindet? Ich will aber die globalen Mauskoordinaten haben, damit ich die Maus im gedrücken Zustand übern gesamten Bildschirm bewegen kann um das Bild zu verschieben.

    An der Position liegt es ja nicht, die korrekte Position bekomme ich ja indem ich den Klickpunkt ebenfalls mitspeichere und das passt auch, da sich das Bild identisch mit der Maus mitbewegt, als wäre die Maus fest auf dem Bild verankert. Würde da was nicht stimmen würde sich das Bild unabhängig von der Mausbewegen, schneller oder langsamer.

Facebook
Telefonspende