vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Animation: Bild über Bild schieben 
Autor: Manfred X
Datum: 26.06.20 12:26

Public Class frmPicMove
 
    Dim bmp As Bitmap
    Dim bmp_rect As Rectangle
 
    Dim WithEvents timMove As New Timer With 
         {.Interval = 50, .Enabled = False}
    Dim WithEvents btnStart As New Button With 
         {.Parent = Me, .Width = 150, .Text = "Move"}
    Dim WithEvents pbMove As New PictureBox With 
        {.Parent = Me, .Top = 50,
        .SizeMode = PictureBoxSizeMode.Zoom}
 
 
    Dim startleft, stopleft, anim_left As Integer
 
 
    Private Sub frmPicMove_Load(sender As Object, 
               e As EventArgs) Handles MyBase.Load
 
        Me.Width = 1050
        Me.Height = 550
 
        pbMove.Width = Me.Width - 20
        pbMove.Height = 
             Me.ClientSize.Height - (btnStart.Top + btnStart.Height + 20)
 
        Dim picfile As String = "G:\Daten\x1.jpg"
 
        bmp_rect = BitmapFunctions.GetPicRect(picfile, pbMove.Size)
 
        Using bmp_orig As New Bitmap(picfile)
            bmp = New Bitmap(bmp_orig, 
               New Size(bmp_rect.Width, bmp_rect.Height))
        End Using
 
        'Das Bild im Hintergrund in die Image der Picturebox
        pbMove.Image = bmp
 
 
        startleft = -bmp.Width
        stopleft = bmp_rect.Left
        anim_left = startleft - 5
 
    End Sub
 
 
    Private Sub pbMove_Paint(sender As Object, 
        e As PaintEventArgs) Handles pbMove.Paint
 
        Dim rect_paint As New Rectangle(anim_left, 0, bmp.Width, bmp.Height)
 
        'Das animierte Bild in die Zeichenebene der Picturebox
        e.Graphics.DrawImage(bmp, rect_paint, 
                             New Rectangle(0, 0, bmp.Width, bmp.Height),
                             GraphicsUnit.Pixel)
    End Sub
 
 
    Private Sub timMove_Tick(sender As Object, e As EventArgs) Handles _
      timMove.Tick
 
        anim_left += 5
        If anim_left >= stopleft Then
            timMove.Enabled = False
            anim_left = startleft - 5
        Else
            pbMove.Invalidate()
        End If
 
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, 
           e As EventArgs) Handles btnStart.Click
 
        timMove.Enabled = Not timMove.Enabled
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bild auf Bild einblenden138Dikn22.06.20 11:57
Re: Bild auf Bild einblenden68Manfred X22.06.20 13:14
Bild-Datei zentriert in eine vorgegebene Fläche einpassen63Manfred X22.06.20 14:15
Re: Bild auf Bild einblenden29Dikn23.06.20 13:41
Re: Bild auf Bild einblenden48Manfred X23.06.20 16:35
Re: Bild auf Bild einblenden17Dikn25.06.20 12:26
Animation: Bild in Picturebox verschieben30Manfred X25.06.20 13:34
Re: Bild auf Bild einblenden14Dikn26.06.20 08:48
Re: Bild auf Bild einblenden19Manfred X26.06.20 11:40
Animation: Bild über Bild schieben21Manfred X26.06.20 12:26
Re: Bild auf Bild einblenden16Dikn28.06.20 13:50
Re: Bild auf Bild einblenden12Dikn28.06.20 14:04

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel