Scrollendes Bild stoppen, aber wie?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Scrollendes Bild stoppen, aber wie?

    Servus,

    hätte da eine kleine Frage. :rolleyes:

    Ich möchte ein Bild von oben nach unten scrollen mithilfe von den Cursor-Tasten (Also Pfeil-Rauf und Pfeil-Runter)
    Das klappt soweit ganz gut, jedoch "verschwindet" das Bild oben oder unten, je länger ich die Tasten drücke.
    (Mit "ESC" wird das Programm beendet.)

    Hier der Quellcode:

    VB.NET-Quellcode

    1. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    3. Select Case e.KeyCode
    4. Case Keys.Up
    5. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y + 5)
    6. Case Keys.Down
    7. PictureBox1.Location = New Point(PictureBox1.Location.X + 0, PictureBox1.Location.Y - 5)
    8. End Select
    10. If e.KeyCode = Keys.Escape Then
    11. Me.Close()
    12. End If
    14. End Sub


    Wie kann ich es anstellen, das das Bild "stoppt", sobald es oben oder auch unten aufhört?
    Ist vielleicht jetzt doof beschrieben, aber vielleicht wisst Ihr ja was ich meine.

    Oder ist so etwas gar nicht möglich? ?(

    Manche Männer bemühen sich lebenslang, das Wesen einer Frau zu verstehen.
    Andere befassen sich mit weniger schwierigen Dingen z.B. der Relativitätstheorie.

    Albert Einstein

    Das ist nicht trivial, denn wenn Du dauernd die Pfeiltasten drückst, wird die MessageQueue mit der Taste vollgeblasen (Auto-Repeat).
    Du hast z.B. folgende Möglichkeit:
    Bei KeyDown, KeyPress und KeyUp das Autorepeat unterbinden, abfragen, ob es zu einem KeyPress ein KeyDown gab

    VB.NET-Quellcode

    1. e.SuppressKeyPress = True ' im KeyDown-Event

    Dann musst Du allerdings beliebig oft Deine Pfeiltasten drücken.
    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!

    Wenn Bild.Top + Bild.Height < 0 ist, dürfte es oben rausgescrollt sein, unten sollte Bild.Top > Form.Height sein.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim xpos As Integer
    3. Dim ypos As Integer
    4. Dim schrittweite As Integer
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Me.KeyPreview = True
    8. xpos = pb1.Left
    9. ypos = pb1.Top
    10. schrittweite = 5
    11. End Sub
    13. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    14. Select Case e.KeyCode
    15. Case Keys.Up
    16. ypos -= schrittweite
    17. If ypos < 0 Then ypos += schrittweite
    18. Case Keys.Down
    19. ypos += schrittweite
    20. If ypos + pb1.Height > Me.ClientSize.Height Then ypos -= schrittweite
    21. Case Keys.Escape
    22. Application.Exit()
    23. End Select
    24. pb1.Location = New Point(xpos, ypos)
    25. End Sub
    26. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Unwesen“ ()

    @RodFromGermany & Unwesen:

    Vielen Dank Euch beiden :thumbup:
    Habe lange drüber gegrübelt, aber ist iwie logisch das ganze. :D
    Die Position des Bildes abzufragen, ich denke wohl um zuviele Ecken.... :whistling:

    Manche Männer bemühen sich lebenslang, das Wesen einer Frau zu verstehen.
    Andere befassen sich mit weniger schwierigen Dingen z.B. der Relativitätstheorie.

    Albert Einstein

    professioneller wäre, du würdest das Bild ownerdrawn anzeigen. Dazu musstedich aber in die Thematik einarbeiten: Schnelles Zeichnen mit Lockbits (nagut - das ist schon ziemlich optimiert)

    Achso - hier auch eine Lösung, bei der das Control (ich verwende keine Picbox) über die Autoscroll-Property verschoben wird:Picture-Viewer mit Autoscroll

Facebook
Telefonspende