Bild in einer Picture Box "durchlaufen" lassen

[roeb]

Hi,

ich würde gerne einen Bildstreifen von etwa 100X600px durch eine Picturebox von 100x150px "durchlaufen" lassen. Würde das ganze evtl mit nem Timer veranstalten, falls es ruckelt evtl auch anders. Aber mein größtes Problem, wie ist die funktion um anzugeben welche possition des bildes angezeigt werden soll? Wie mach ich das wenn ich zB auf position 350px von 600px möchte? Hab einfach keinen weg gefunden

Würde mich sehr über Hilfe freuen

Wenn es zu unverständlich ist, zeichne ich auch gern noch eine Skizze zum besseren Verständnis



Gruß
roeb

 

[RJZ]

Schau dir das einmal an:

Imports System
Imports System.Drawing

Public Class Form1
    Dim MeinBild As Image, MeinGraphics As Graphics, Rec As Rectangle
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static Akt As Integer, Richtung As Integer = 1
        With PictureBox1
            MeinGraphics.DrawImage(MeinBild, Rec, Akt, 0, .Width, .Height, GraphicsUnit.Pixel)
            Akt = Akt + Richtung
            If Akt = MeinBild.Width - .Width Then Richtung = -1
            If Akt = 0 Then Richtung = 1
        End With
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MeinBild = New Bitmap("C:\Bild.png") 'Pfad zum Bild
        MeinGraphics = PictureBox1.CreateGraphics
        Rec = New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)
    End Sub
End Class