Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bilderübersicht
Autor: Fran
Datum: 23.01.05 15:54
Hallo Leute, dachte ich wäre endlich fertig mit meinem Program, da hat sich doch bei meiner Bildübersicht(Thumbnails) ein Fehler eingeschlichen. So soll es sein: Bei Button Click - werden alle Bilder(Assembly) als Miniformat in einer neuen Form angezeigt(Übersicht). So ist es jetzt: Es geht soweit alles, nur das tatsächlich nur eins von den 4 Bildern als Miniformat erscheint. Ich habe bestimmt wieder was vergessen, deshalb bitte ich euch mal kurz rüberzuschauen Danke im Voraus. Code: Imports System.IO Public Class Form3 Inherits System.Windows.Forms.Form Private ThumbnailPadding As Integer = 5 #Region " Vom Windows Form Designer generierter Code " Private Sub ShowFilesInFolder() Dim PBox As PictureBox, Img As Image Dim Left As Integer = ThumbnailPadding Dim Top As Integer = ThumbnailPadding Dim ThispBox As Control Dim ThumbWidth As Integer = 90 Dim ThumbHeight As Integer = 120 If Panel1.Controls.Count > 0 Then Exit Sub Me.Invalidate() For Each file As String In System.Reflection.Assembly.GetEntryAssembly.GetManifestResourceNames() If IO.Path.GetExtension(file) = ".jpg" Or IO.Path.GetExtension(file) = ".bmp" Then PBox = New PictureBox PBox.Image = Image.FromStream(System.Reflection.Assembly.GetEntryAssembly.GetManifestResourceStream(file)) PBox.BorderStyle = BorderStyle.FixedSingle PBox.SizeMode = PictureBoxSizeMode.CenterImage If Left > Panel1.Width - Panel1.Left + ThumbnailPadding + ThumbWidth Then Left = ThumbnailPadding Top = Top + 80 End If With PBox .Left = Left .Top = Top .Width = 64 .Height = 64 .SizeMode = PictureBoxSizeMode.StretchImage .Visible = True Panel1.Controls.Add(PBox) End With 'PBox1 = PBox 'Exit For Application.DoEvents() End If Next End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ShowFilesInFolder() End Sub End Class

Bilderübersicht	1.429	Fran	23.01.05 15:54
Re: Bilderübersicht	1.081	DaveS	24.01.05 08:29
Re: Bilderübersicht	1.188	Fran	24.01.05 17:01

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übersicht

Suchen