Form automatisch scrollen

  • VB.NET

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

    Form automatisch scrollen

    Folgende Situation, es gibt ein MouseDown Event, mit dem etwas auf der Form verschoben wird.
    Wenn man jetzt beim verschieben aber weiterscrollen muss, muss man sofern man überhaupt ein Mausrad hat dieses parallel zur gedrückt gehaltener Maustaste bedienen.
    Ich möchte jetzt gerne das die Form automatisch hoch und runter scrollt, sobalt man mit dem Cursor in der nähe des Randes der Form ist.

    Autoscroll ist an und das ich das mit Me.AutoScrollPosition ansprechen muss ist mir auch schon klar.
    Allerdings habe ich das gesamt konstrukt noch nicht zum laufen bekommen.
    Wenn mir jemand mal eine kleine Vorlage geben könnte wäre ich sehr dankbar.

    Wahrscheinlcih hat niemand was direkt im Ärmel für diese hübsche Knobelaufgabe.
    Vlt magst du ja dein Anliegen auch als Knobelaufgabe zu formulieren, hab ich extra einen Thread mal für aufgemacht: [Sammelthread] Knobel-Aufgaben, knifflige Algorithmen, elegante Lösungen
    Also es ist an dir eine Vorlage zu liefern, und vlt. findet sich ja wer, der eine Scrollerei da dranbastelt.

    hab mal auf die Schnelle was gebastelt.
    Es mit der Heissen Nadel gestrickt und natürlich nur eine Grundlage ! .. aber besser als Nichts :P

    Du musst noch auf der Form einen Timer legen und als Intervall 30 ... 20 oder so angeben.. der entscheidet über die Geschwindigkeit.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim ScrollBereich As Integer = 40 ' Abstand vom Rand wo das autoscrollen losgeht
    3. Dim ScrollStep As Integer = 10 '* immer gleich 10 Pixel
    4. Dim WieScrollen As enmWieScrollen = enmWieScrollen.Garnicht
    6. Enum enmWieScrollen
    7. Garnicht
    8. NachUnten
    9. NachOben
    10. NachRechts
    11. NachLinks
    12. End Enum
    14. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    15. Me.AutoScrollMinSize = New Size(3000, 3000) ' Die Gesamtgröße der Arbeitsfäche
    16. Me.DoubleBuffered = True ' sonst flakkerts
    17. Timer1.Enabled = True
    18. End Sub
    20. Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    21. If e.Location.Y > ClientRectangle.Bottom - ScrollBereich Then
    22. WieScrollen = enmWieScrollen.NachUnten
    23. ElseIf e.Location.Y < ScrollBereich Then
    24. WieScrollen = enmWieScrollen.NachOben
    25. ElseIf e.Location.X < ScrollBereich Then
    26. WieScrollen = enmWieScrollen.NachLinks
    27. ElseIf e.Location.X > Me.ClientRectangle.Right - ScrollBereich Then
    28. WieScrollen = enmWieScrollen.NachRechts
    29. Else
    30. WieScrollen = enmWieScrollen.Garnicht
    31. End If
    33. End Sub
    35. Private Sub ScrollMe()
    36. Select Case WieScrollen
    37. Case enmWieScrollen.NachUnten '
    38. Me.AutoScrollPosition = New Point(System.Math.Abs(Me.AutoScrollPosition.X), System.Math.Abs(Me.AutoScrollPosition.Y) + ScrollStep)
    39. Case enmWieScrollen.NachOben
    40. Me.AutoScrollPosition = New Point(System.Math.Abs(Me.AutoScrollPosition.X), System.Math.Abs(Me.AutoScrollPosition.Y) - ScrollStep)
    41. Case enmWieScrollen.NachRechts
    42. Me.AutoScrollPosition = New Point(System.Math.Abs(Me.AutoScrollPosition.X - ScrollStep), System.Math.Abs(Me.AutoScrollPosition.Y))
    43. Case enmWieScrollen.NachLinks
    44. Me.AutoScrollPosition = New Point(System.Math.Abs(Me.AutoScrollPosition.X + ScrollStep), System.Math.Abs(Me.AutoScrollPosition.Y))
    45. End Select
    46. End Sub
    48. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    49. ScrollMe()
    50. End Sub
    51. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „RoulettePilot“ ()

    das ist nur in zweiter Linie dein Fehler. In erster Linie ist das ein katastrophales MisDesign von MS: die AutoScrollPosition ist eine inkonsistente Property: Du weist ihr einen "positiven" Point (zb {30,30}) zu, und wenn du ihn wieder abrufst ist er ins negative verkehrt: {-30,-30}

    is irre X/

Facebook
Telefonspende