vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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
Re: Bild auf Bild einblenden 
Autor: Dikn
Datum: 28.06.20 13:50

Ich habe eine Bildschau von einem Architekturentwurf erstellt.
Es werden CAD-Zeichnungen, 3D-Bilder und 3D-Videos von Außen und Innen in einer vorgegebenen Reihenfolge automatisch angezeigt.
Die Videos zeigen Wege um bzw. durch das Gebäude.
Die Bilder können in vorgegebenen unterschiedlichen Zeiten angezeigt werden.
Gleichzeitig ist eine Bildbeschreibung unterhalb der PictureBox sichtbar.

Nun möchte ich noch die Bilder unterschiedlich überblenden.

Mein letzter Stand:
Public Class Form1
    Private Bmp As Bitmap
    Private PB_Size As Size = New Size(560, 315)
    Private PicLeft As Integer
    Private PicExpan As Integer = 5
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PbMove.Image = GetPic("C:\...\Pic1.jpg", PB_Size)
        Bmp = GetPic("C:\...\Pic2.jpg", PB_Size)
        StartLeft = -Bmp.Width
        PicLeft = StartLeft - PicExpan
    End Sub
 
    Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles _
      BtnStart.Click
        PicLeft = -Bmp.Width - PicExpan
 
        If TimerMove.Enabled = False Then
            TimerMove.Enabled = True
            BtnStart.Text = "Stop"
        Else
            TimerMove.Enabled = False
            BtnStart.Text = "Start"
        End If
    End Sub
 
    Private Function GetPic(FileName As String, PicSize As Size) As Bitmap
        Dim BmpOut As Bitmap
 
        Using Bmp As New Bitmap(FileName)
            Dim w, h, l, t As Integer
            w = CInt(Bmp.Width * PicSize.Height / Bmp.Height) + 1
            h = PicSize.Height + 1
            If w > PicSize.Width Then
                h = CInt(Bmp.Height * PicSize.Width / Bmp.Width) + 1
                w = PicSize.Width + 1
            End If
 
            l = ((PicSize.Width - w) \ 2) - 1
            t = ((PicSize.Height - h) \ 2) - 1
 
            BmpOut = New Bitmap(PicSize.Width, PicSize.Height)
 
            Using gout As Graphics = Graphics.FromImage(BmpOut)
                'gout.InterpolationMode = 
                ' Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.Black)
                gout.DrawImage(Bmp, New Rectangle(l, t, w, h), New Rectangle(0, _
                  0, Bmp.Width, Bmp.Height), GraphicsUnit.Pixel)
            End Using
        End Using
 
        Return BmpOut
    End Function
 
    Private Sub PbMove_Paint(sender As Object, e As PaintEventArgs) Handles _
      PbMove.Paint
        Dim Rect_Paint As New Rectangle(PicLeft, 0, Bmp.Width, Bmp.Height)
        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 _
      TimerMove.Tick
        If PicLeft >= 0 Then
            TimerMove.Enabled = False
            PicLeft = 0
            PbMove.Invalidate()
            BtnStart.Text = "Start"
        Else
            PicLeft += PicExpan
            PbMove.Invalidate()
        End If
    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 verschieben29Manfred 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 schieben20Manfred X26.06.20 12:26
Re: Bild auf Bild einblenden16Dikn28.06.20 13:50
Re: Bild auf Bild einblenden11Dikn28.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