Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bitte um Hilfe
Autor: Nici
Datum: 26.08.03 12:34
Hallo, leider kriege ich es nicht gepackt einen Code zu schreiben welches mir das letzte Bild in einem Ordner sucht und in einer Picturebox anzeigt. Hier ein Versuch dank Dieter, doch es klappt nicht ! Was mache ich da falsch ?? Option Explicit Dim File1 As String Private Sub Command1_Click() With File1 .Path = "C:\FH\diplom\Bollmann\Patchworks\13993\13993-01C" .Pattern = "*.jpg" .Visible = False .Refresh If .ListCount > 0 Then End If File1.ListIndex = File1.ListCount - 1 Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) File1.Pattern = "*.jpg,*.png" End With End Sub Private Sub Form_Load() End Sub Bitte um Hilfe !!!

Bitte um Hilfe	446	Nici	26.08.03 12:34
Re: Bitte um Hilfe	274	coyote	26.08.03 12:48
Re: Bitte um Hilfe	256	Nici	26.08.03 13:11
Re: Bitte um Hilfe	304	coyote	26.08.03 13:45

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