SlideShow Effekt mit einer PictureBox?!

samson · 17. November 2014, 15:18

Moin Moin Zusammen (schon wieder :whistling:

),

ich google mich nun schon seit einer ganzen Weile durchs netz nach lösungsansätzen (die auch unter VB.Net 2010) funktionieren...
Ich habe eine PictureBox, in der mehrere Bilder nacheinander dargestellt werden...
Nun will ich die Übergänge etwas smoother machen 8-)

Aufstellung ist eine ListBox1 und eine PictureBox1,
in der ListBox1 sind alle Bilddaten (samt Pfadangabe) hinterlergt die aus einem Ordner, inkl. Subdirs ausgelesen wird...
Hier werden NUR jpg Daten übernommen...

Beispieldownload: *zensiert*

Jetzt möchte ich die Bilder aber nicht "stumpf" "ein und ausschalten" sondern schon ein wenig "effektvoller" überblenden...
Ich hab nur keine Plan wo ich ansetzen soll

Im Internet komm ich immer nur auf das, was ich selbst schon realisiert bekommen habe,...

Danke schon mal,...

Grüße samson

Keine ausführbaren Dateien außerhalb des Showrooms -> Link entfernt. ~Thunderbolt

Thunderbolt · 17. November 2014, 15:23

@samson Ich habe deinen Link entfernt (s. meinen Kommentar), mach davon ein Video ö. ä. und verlinke das hier.

nafets · 17. November 2014, 16:54

Ich würde entweder zu WPF oder GDI+ raten. Letzteres hat schlechtere Performance, ist aber einfacher zu integrieren, bei WPF müsstest du dich in MVVM einarbeiten und dann das Projekt neuanfangen, dafür wäre das Ergebnis viel besser.

samson · 18. November 2014, 11:16

@Thunderbolt Sorry... hab ich in der "AGB" wohl überlesen... Ich steck dafür gleich mal was in den Show-Room und verlink es dort

Thunderbolt · 18. November 2014, 11:24

Das ist noch falscher. Dafür ist der Showroom nicht da. Mach ein Video o. ä. und verlink es hier...

samson · 18. November 2014, 12:13

Bin in der Firma... kann hier keine Videograbber installieren,... Daheim hab ich die VB.net nicht installiert...

Niko Ortner · 18. November 2014, 12:20

Du könntest ShareX herunterladen. Benötigt keine Installation und kann den Bildschirm als Gif aufnehmen.

samson · 18. November 2014, 13:12

Da ich anscheinend zu blöd bin den Code fürs einbetten von Videos zu nutzen, hier der Link

youtube.com/watch?v=3SdooE9_g3…=UUFoXJ1DFKK9m02bJHHTz2hQ

Grüße samson

nafets · 18. November 2014, 13:17

Machs doch so, dass man das Video auch anschauen kann - Privat ist da net geeignet.

samson · 18. November 2014, 15:06

@nafets erledigt

Ich kenn mich da nicht so aus mit den ganzen Freigabeeinstellungen für Youtube... bin da einfacher User

Das Embed geht immernoch nicht

nafets · 18. November 2014, 15:34

Das Video spielt bei mir trotztem net ab ^^.

samson · 18. November 2014, 17:00

Hier der komplette Code, wie ich ihn derzeit verwende...

Was ist eingebaut:
Listbox1
Picturebox1
Ein Menüband
Ein Statusband

Code:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Drawing.Printing
Public Class Form1
Public dir As String
Private index As Integer
Private subdir As String
Private filename As String
Private filedir As String
Public Sub ChooseFolder()
Dim FolderSize As Long = 0
ToolStripStatusLabel7.Text = 0
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
ListBox1.Items.Clear()
Try
Dim di As New System.IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
For Each fi As System.IO.FileInfo In di.GetFiles("*.jpg", subdir)
filename = IO.Path.GetFileName(fi.FullName)
filedir = IO.Path.GetDirectoryName(fi.FullName)
FolderSize += My.Computer.FileSystem.GetFileInfo(filedir & "\" & filename).Length
ListBox1.Items.Add(filedir & "\" & filename)
Next
ToolStripStatusLabel8.Text = ListBox1.Items.Count - 1
StartToolStripMenuItem.Enabled = True
ListBox1.SetSelected(0, True)
Catch
End Try
End If
If Format(FolderSize / 1024 / 1024, "#0") > 1024 Then
ToolStripStatusLabel7.Text = Format(FolderSize / 1024 / 1024 / 1024, "#0.00") & " GB"
ElseIf Format(FolderSize / 1024, "#0") > 1024 Then
ToolStripStatusLabel7.Text = Format(FolderSize / 1024 / 1024, "#0.00") & " MB"
Else
ToolStripStatusLabel7.Text = Format(FolderSize / 1024, "#0.00") & " KB"
End If
End Sub
Private Sub PfadWählenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PfadWählenToolStripMenuItem.Click
ChooseFolder()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
index = ListBox1.SelectedIndex + 1
If index > ListBox1.Items.Count - 1 Then
index = -1
Else
PictureBox1.Image.Dispose()
ListBox1.SetSelected(index, True)
End If
End Sub
Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem.Click
Timer1.Enabled = True
StartToolStripMenuItem.Enabled = False
PauseToolStripMenuItem.Enabled = True
StopToolStripMenuItem.Enabled = True
End Sub
Private Sub PauseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseToolStripMenuItem.Click
Timer1.Enabled = False
StartToolStripMenuItem.Enabled = True
PauseToolStripMenuItem.Enabled = False
StopToolStripMenuItem.Enabled = True
End Sub
Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
Timer1.Enabled = False
'ListBox1.SetSelected(0, True)
StartToolStripMenuItem.Enabled = True
PauseToolStripMenuItem.Enabled = False
StopToolStripMenuItem.Enabled = False
End Sub
Private Sub OptionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionToolStripMenuItem.Click
If Timer1.Enabled = True Then
Timer1.Enabled = False
StartToolStripMenuItem.Enabled = True
PauseToolStripMenuItem.Enabled = False
StopToolStripMenuItem.Enabled = True
End If
Dialog1.Show()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = My.Settings.slidespeed & "000"
If My.Settings.subdir = 1 Then
subdir = SearchOption.AllDirectories
Else
subdir = SearchOption.TopDirectoryOnly
End If
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
PictureBox1.Image = Image.FromFile(ListBox1.SelectedItem)
'ToolStripStatusLabel5.Text = Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024 / 1024, "#0.00 MB")
ToolStripStatusLabel10.Text = PictureBox1.Image.Height & "px"
ToolStripStatusLabel12.Text = PictureBox1.Image.Width & "px"
ToolStripStatusLabel1.Text = ListBox1.SelectedItem
If Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024 / 1024, "#0.00") > 1024 Then
ToolStripStatusLabel5.Text = Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024 / 1024 / 1024, "#0.00") & " GB"
ElseIf Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024, "#0.00") > 1024 Then
ToolStripStatusLabel5.Text = Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024 / 1024, "#0.00") & " MB"
Else
ToolStripStatusLabel5.Text = Format(My.Computer.FileSystem.GetFileInfo(ListBox1.SelectedItem).Length / 1024, "#0.00") & " KB"
End If
End Sub
Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
AboutBox1.Show()
Me.Enabled = False
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim gr As Graphics = e.Graphics
' Verweis auf das Bild festlegen
Dim oImage As Image = PictureBox1.Image
Dim rr = e.MarginBounds
gr.DrawImage(oImage, rr)
'gr.Dispose()
End Sub
Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
With PrintDocument1
' Dokument-Title
.DocumentName = "Print Picture"
' Ausdruck starten
If PrintDialog1.ShowDialog = DialogResult.OK Then
PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
End If
End With
End Sub
Private Sub VorschauToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VorschauToolStripMenuItem.Click
' Vorschaudialog erstellen und anzeigen.
Dim ppdld As New PrintPreviewDialog()
With ppdld
' Der Druckvorschau das Dokument zuweisen.
.Document = PrintDocument1
' Die Druckvorschau soll maximiert gezeigt werden.
.WindowState = FormWindowState.Maximized
' Druckvorschau anzeigen.
.ShowDialog(Me)
End With
ppdld = Nothing
End Sub
End Class

Screeshot:

Thunderbolt · 18. November 2014, 17:04

Bei mir wird das Video tadellos abgespielt.

@samson Bitte vermeide Doppelposts. Es gibt eine "Bearbeiten"-Funktion!

SlideShow Effekt mit einer PictureBox?!

SlideShow Effekt mit einer PictureBox?!

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben