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   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Fortgeschrittene Programmierung
Dateien aus Verzeichnis / Ordner einlesen 
Autor: Boro
Datum: 02.07.05 08:12
Hallo Zusammen!

Ich programmiere mir in VBA für AutoCAD einige kleine Tools.
Nun möchte ich mir eine Block Vorschau basteln.
Zu jeden Block wird eine Bild/Image Datei erzeugt (*.wmf oder *.bmp).
Diese *.wmf Dateien befinden sich in dem Ordner C:\Bloecke.
Ich möchte alle *.wmf Dateien zur Laufzeit in eine ListView Anzeige laden.
Aus dieser ListView werden diese dann aus kleine Bildkachelungen in einem Frame angezeigt.
Dieses Tool habe ich. Ich weiß nur nicht, wie ich die *.wmf Dateien aus dem Ordner C:\Bloecke in die ListView Anzeige bekomme.
kann mir dabei jemand helfen.

Code:
Private Sub cmd2_Click()
Dim NewImage As MSForms.Image
Dim NewLabel As MSForms.Label
On Error Resume Next
LastTop = 10
LastLeft = 10
For i = 1 To ListView1.ListItems.Count
Set NewImage = PreviewFrm.Frames1.Controls.Add("Forms.Image.1")
NewImage.Height = 40
NewImage.Width = 40
NewImage.PictureSizeMode = fmPictureSizeModeZoom
NewImage.BackColor =_ Application.Preferences.Display.GraphicsWinModelBackgrndColor
Set NewImage.Picture = LoadPicture(Application.Preferences.Files.TempFilePath &_
ListView.ListItem(i).Text & ".wmf")
NewImage.Left = LastLeft
NewImage.top = LastTop
PreviewFrm.ScrollHeight = LastTop + NewImage.Height + 30
If LastLeft + 50 > PreviewFrm.Width - 20 Then
LastTop = LastTop + NewImage.Height + 30
LastLeft = 10
Else
LastLeft = LastLeft + 50
LastTop = NewImage.top
End If
Next
End Sub

Vielen Dank im voraus.

Gruß

Dirk
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Dateien aus Verzeichnis / Ordner einlesen683Boro02.07.05 08:12
Re: Dateien aus Verzeichnis / Ordner einlesen458vbtricks02.07.05 09:22

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-2025 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