Bild scrollen

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Otti.

    Bild scrollen

    Hey, zusammen.

    Es geht wie bereits im Thema zu erkennen, um ein Bild welches nicht dreht, sondern scrollen soll.
    Sofern das Bild an ende angekommen ist , soll es wieder neu gezeichnet werden.

    Habe da leider nix passendes finden können und einen Ansatz habe ich auch nicht.

    Hatte mal ein Bild drehen lassen, dies hatte ich so gelöst.
    Vielleicht kann man den Code ja etwas abändern, jemand eine Idee?

    Bild drehen:

    VB.NET-Quellcode

    1. Public Function RotateImage(ByVal Image As Image, ByVal Angle As Integer) As Image
    2. Dim bmp As New Bitmap(Image.Width, Image.Height)
    3. Dim m As New Drawing2D.Matrix
    4. m.RotateAt(Angle, New PointF(Image.Width / 2, Image.Height / 2))
    5. With Graphics.FromImage(bmp)
    6. .Transform = m
    7. .DrawImage(Image, 0, 0)
    8. End With
    9. Return CType(bmp, Image)
    10. End Function
    12. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    13. PictureBox1.Hide()
    14. Me.DoubleBuffered = True
    15. Timer1.Start()
    16. Timer1.Interval = 20
    17. End Sub
    19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. img = PictureBox1.Image
    21. Static Angle As Integer
    22. Angle += 1
    23. Dim bmp As New Bitmap(Me.Width, Me.Height)
    24. Dim Graph As Graphics = Graphics.FromImage(bmp)
    25. Graph.DrawImage(RotateImage(img, Angle), PictureBox1.Location.X, PictureBox1.Location.Y)
    26. Graph.Dispose()
    27. Me.Ba


    In Anhang mal ein Beispiel Bild um es etwas verständlicher zu machen.
    Wie gesagt sollte das Bild Vertikal in einer Endlosschleife scrollen.
    Bilder

    • Bild1.png

      3,69 kB, 236×836, 161 mal angesehen

    @Otti Aus wie vielen Hauptbestandteilen (hier: 8) besteht denn Dein Bild?
    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!

    @Otti Ich hab mal Frau Google nach c# ScrollBitmap befragt.
    Die Antwort 3 scheint vielversprechend:
    docs.microsoft.com/en-us/windo…l-a-bitmap-in-scroll-bars
    Achtung, das ist C++, da kannstr Du Dir vielleicht ne Idee abgucken.
    Ich werd mal was probieren.
    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!

    Hi

    Ich würde ein neues Bitmap in gleicher Größe wie das Original erstellen. Vom neuen Bitmap ein Graphics und das Originalbild mit passender DrawImage Methode 2 mal reinzeichnen. Da kann man ja angeben welcher Bereich vom Original wohin im Graphics gezeichnet werden soll.
    Mfg -Franky-

    @Otti Form mit Button, PictureBox und Timer und ein Bild auf der Festplatte:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    4. Public Class Form1
    5. ReadOnly MyBmp As New Bitmap("C:\Temp\EinBild.jpg")
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Me.PictureBox1.Image = Me.MyBmp
    8. Me.Timer1.Interval = 10
    9. End Sub
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Me.Timer1.Enabled = Not Me.Timer1.Enabled
    13. End Sub
    15. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    16. Me.PictureBox1.Image = Form1.ScrollUp(Me.MyBmp)
    17. End Sub
    19. ''' <summary>
    20. ''' Scrollt die Bitmap un eine Zeile nach oben
    21. ''' </summary>
    22. ''' <param name="bmp">die Bitmap</param>
    23. ''' <returns>die gescrollte Bitmap</returns>
    24. Private Shared Function ScrollUp(bmp As Bitmap) As Image
    25. ' Bitmap locken
    26. Dim bmpData = bmp.LockBits(New Rectangle(Point.Empty, bmp.Size), ImageLockMode.ReadWrite, bmp.PixelFormat)
    27. ' Declare an array to hold the bytes of the bitmap.
    28. Dim bytes = Math.Abs(bmpData.Stride) * bmp.Height
    29. Dim rgbValues = New Byte(bytes) {}
    31. ' Speicher für eine Zeile
    32. Dim line = New Byte(bmpData.Stride) {}
    33. ' die erste Zeile wegspeichern
    34. Marshal.Copy(bmpData.Scan0, line, 0, bmpData.Stride)
    35. ' Pointer auf die zweite Zeile
    36. Dim Second As IntPtr = bmpData.Scan0 + bmpData.Stride
    37. ' Bitmap zeilenverschoben rauskopieren
    38. Marshal.Copy(Second, rgbValues, 0, bytes - bmpData.Stride)
    39. ' erste Zeile hinten dran kopieren
    40. Array.Copy(line, 0, rgbValues, bytes - bmpData.Stride, bmpData.Stride)
    41. ' Array in die Bitmap zurückkopieren
    42. Marshal.Copy(rgbValues, 0, bmpData.Scan0, bytes)
    43. bmp.UnlockBits(bmpData)
    44. Return bmp
    45. End Function
    46. End Class
    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!

    @Otti
    RodFromGermany hat ja schon eine sehr interessante Lösung gepostet. Ich möchte Dir dennoch den Weg zeigen, den ich ja weiter oben beschrieben hatte. Dann hast gleich zwei Möglichkeiten die Du ausprobieren kannst.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Option Explicit On
    5. Public Class Form1
    7. ReadOnly MyBmp As New Bitmap("D:\Programming\VBC\GDI+\City001.jpg")
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. Me.PictureBox1.Image = Me.MyBmp
    11. Me.Timer1.Interval = 10
    12. End Sub
    14. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    15. Me.Timer1.Enabled = Not Me.Timer1.Enabled
    16. End Sub
    18. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    19. ' pixel > 0 = Scroll down
    20. ' pixel < 0 = Scroll up
    21. Me.PictureBox1.Image = Form1.ScrollUpOrDown(Me.MyBmp, 1)
    22. End Sub
    24. Private Shared Function ScrollUpOrDown(bmp As Bitmap, Optional pixel As Integer = 1) As Image
    25. If pixel <> 0 Then
    26. Dim stepping As Integer = Math.Abs(pixel)
    27. Using bmpOut As New Bitmap(bmp.Width, bmp.Height)
    28. Using gra As Graphics = Graphics.FromImage(bmpOut)
    29. If pixel > 0 Then
    30. gra.DrawImage(bmp, New Rectangle(0, 0, bmpOut.Width, stepping),
    31. New Rectangle(0, bmp.Height - stepping, bmp.Width, stepping),
    32. GraphicsUnit.Pixel)
    33. ElseIf pixel < 0 Then
    34. gra.DrawImage(bmp, New Rectangle(0, bmpOut.Height - stepping, bmpOut.Width, stepping),
    35. New Rectangle(0, 0, bmp.Width, stepping), GraphicsUnit.Pixel)
    36. End If
    37. gra.DrawImage(bmp, New Rectangle(0, pixel, bmpOut.Width, bmpOut.Height - pixel),
    38. New Rectangle(0, 0, bmp.Width, bmp.Height - pixel), GraphicsUnit.Pixel)
    39. End Using
    40. Using gra As Graphics = Graphics.FromImage(bmp)
    41. gra.DrawImage(bmpOut, 0, 0, bmp.Width, bmp.Height)
    42. End Using
    43. End Using
    44. End If
    45. Return bmp
    46. End Function
    48. End Class

    Mfg -Franky-

    @Otti Und mach gleich einen Benchmark-Test.
    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!

    @RodFromGermany
    @-Franky-

    Hey Ihr beiden... Vielen Lieben Dank dafür, es ist so ungefähr was ich mich vorgestellt habe.
    Habe dazu jedoch noch zwei Fragen.
    Die erste wäre, ob das scrollen auch schneller geht?
    Die zweite wäre, da ich ja unterschiedliche Felder (In dem Beispiel Bild wäre es Feld 1-8) , diese auch nach Timer Stopp an
    einen bestimmten Feld stehen bleiben kann?

    Die Schnelligkeit habe ich heraus gefunden wie ich diese beschleunige, verstehe allerdings nicht wie???
    Me.PictureBox1.Image = Form1.ScrollUpOrDown(Me.MyBmp, 1)
    was sagt denn die 1 aus?
    Sind das die Pixel?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Otti“ ()

    Otti schrieb:

    Habe dazu jedoch noch zwei Fragen.
    Poste eine vollständige und belastbare Aufgabenstellung / Problembeschreibung.

    Otti schrieb:

    was sagt denn die 1 aus?
    Den Code ansehen, überlegen und wissen.



    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!

    ok war ein bisschen unverständlich...
    - Ja die 1, sind meine Pixel, daher scrollt das Bild schnell. Soweit klar.

    Aufgabenstellung / Problem Beschreibung wäre wie folgt:
    - Ich würde gerne die Bilder im ganzen angezeigt bekommen sofern der Timer gestoppt wird, um das voll Bild zu erkenne.
    Ein Beispiel im Anhang.
    Bilder

    • so nicht.PNG

      2,43 kB, 240×334, 151 mal angesehen

    • so.PNG

      2,06 kB, 235×316, 151 mal angesehen

    Otti schrieb:

    im ganzen angezeigt bekommen
    Warum fängt Dein Bild nicht bei [1] an?
    Zähle die Schritte und wisse, wo Du bist
    oder
    holr Dir das Ur-Bild zurück.
    ====
    Hast Du Dir mal die Geschwindigkeiten beider Codes angesehen :?:
    Danach erst solltest Du weitermachen.
    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!

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

    @Otti

    Jetzt zu Deinen Fragen: Der Parameter pixel gibt an um wieviel Pixel pro Timer_Tick das Bild gescrollt werden soll. Wenn Du eine Beschleunigung erreichen möchtest, dann musst Du pro Timer_Tick den Wert für den Parameter pixel vergrößern bzw dann wieder verkleinern um so etwas wie ein Bremsen zu erreichen. Da nimmst am besten einen Single für und addierst oder subtrahierst einen kleinen Wert damit nicht zu schnell Beschleunigt oder abbremst. Den Single per CInt an pixel übergeben.

    Zum stoppen bei einem bestimmten Feld: Dir ist ja die Höhe eines Feldes bekannt. Sagen wir als Bsp 50 Pixel. Wenn der Timer also 50 mal das Event feuert und Du pixel = 1 verwendest, dann ist das ganze um 1 Feld gescrollt. Ist eigentlich eine einfache Rechenaufgabe. Sofern der Timer Interval gleich bleibt, brauchst also nur zählen um wieviel Pixel das Bild gescrollt wurde und kannst entsprechend den Timer stoppen.

    Speedtest: Trommelwirbel und Fanfare, der Pokal geht an RodFromGermany. Sein Code ist natürlich schneller. Auf meinem PC ca. 2ms bei einem 500x375 großem Bild. :) Aber darum geht es gar nicht.
    Mfg -Franky-

    Hey...

    Habe leider immer noch das Problem das ich nicht klar komme bzgl der aktuellen abfrage der Position des Bildes.
    Nutze aktuell den Code von -Franky-.
    Hatte mir parallel zum vorhanden Timer einen Zähle eingebaut, allerdings läuft dieser unabhängig vom eigentlichen Code.
    Folge ist das, sofern das Bild nicht huntertprozentig ist, sich nach mehrfachem scrollen das Bild trotzdessen verschiebt.
    Nun zu meiner Frage: Wie kann ich aus dem Code von -Franky- die Position ermitteln?

    Ich denke nicht das dies so funktioniert.

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

    @Otti

    Vllt hilft Dir das hier weiter. Bei meinem Bild ist jedes Feld genau 50 Pixel hoch. Mit einer kleinen Änderung im Originalcode, kannst Du das testen ob sich das Bild nach mehrfachem scrollen verschiebt. Achso, die Const pixel sollte einen bestimmten Wert haben. 50 * 6 = 300 / pixel = ganze Zahl.

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    3. Static counter As Integer
    5. Const pixel As Integer = 15
    7. Me.PictureBox1.Image = Form1.ScrollUpOrDown(Me.MyBmp, pixel)
    9. counter += pixel
    11. ' jedes Feld ist 50 Pixel hoch
    12. ' es soll um 6 Felder gescrollt werden
    13. If counter >= 50 * 6 Then
    14. Timer1.Enabled = False
    15. counter = 0
    16. End If
    18. End Sub
    Bilder

    • test.png

      2,79 kB, 150×400, 149 mal angesehen
    Mfg -Franky-

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

    @-Franky-
    Guten morgen...

    Ja danke dafür, hatte es nicht ganz genau so wie du mit dem Code.
    Habe allerdings meinen Fehler gefunden.
    Beim zusammen setzen meiner Bilder in Folge, waren zwei Bilder nicht ganz etwas höher, daher kam der Versatz.

    Habe allerdings noch eine Frage.
    Da dies ein Spiel für unsere Kleingarten Anlage werden, welches über mehrere Bildschirme läuft, wollte ich nochmal fragen ob ich dies auch mit meherern Pictureboxen machen kann,
    ohne den Code mehrfach zu kopieren....

    @Otti

    Otti schrieb:

    welches über mehrere Bildschirme läuft, wollte ich nochmal fragen ob ich dies auch mit meherern Pictureboxen machen kann, ohne den Code mehrfach zu kopieren....

    Werden die Bildschirme gespiegelt oder erweitert? Ansonsten brauchst doch nur im Timer_Tick weitere Pictureboxen mit jeweils einem anderen Bild ansprechen.

    VB.NET-Quellcode

    1. ​
    2. Me.PictureBox1.Image = Form1.ScrollUpOrDown(Bild1, pixel)
    3. Me.PictureBox2.Image = Form1.ScrollUpOrDown(Bild2, pixel)
    4. Me.PictureBox3.Image = Form1.ScrollUpOrDown(Bild3, pixel)
    5. ' usw
    Mfg -Franky-