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:
In Anhang mal ein Beispiel Bild um es etwas verständlicher zu machen.
Wie gesagt sollte das Bild Vertikal in einer Endlosschleife scrollen.
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
- Public Function RotateImage(ByVal Image As Image, ByVal Angle As Integer) As Image
- Dim bmp As New Bitmap(Image.Width, Image.Height)
- Dim m As New Drawing2D.Matrix
- m.RotateAt(Angle, New PointF(Image.Width / 2, Image.Height / 2))
- With Graphics.FromImage(bmp)
- .Transform = m
- .DrawImage(Image, 0, 0)
- End With
- Return CType(bmp, Image)
- End Function
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- PictureBox1.Hide()
- Me.DoubleBuffered = True
- Timer1.Start()
- Timer1.Interval = 20
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- img = PictureBox1.Image
- Static Angle As Integer
- Angle += 1
- Dim bmp As New Bitmap(Me.Width, Me.Height)
- Dim Graph As Graphics = Graphics.FromImage(bmp)
- Graph.DrawImage(RotateImage(img, Angle), PictureBox1.Location.X, PictureBox1.Location.Y)
- Graph.Dispose()
- 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.