vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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

Visual-Basic Einsteiger
Re: Bilder aus Verzeichnis auslesen 
Autor: Boro
Datum: 17.10.05 21:07
Hallo Harry!

Vielen Dank für den Tipp.
Mit der Dir() Funktion hat es geklappt.
Nun möchte ich folgendes erreichen.
Ich habe eine Userform mit einem ListView Element und einen Frame.
In dem ListView werden die Bildnamen geladen und in dem Frame die Bildchen.

Klick ich nun auf einen Eintrag in dem ListView, dann soll das entsprechende Bildchen gekennzeichnet werden.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Then ???????
End Sub

Klick ich auf ein Bildchen, dann soll der entsprechende ListView Eintrag blau unterlegt werden.

Bislang hab ich dieses:

Private Sub cmd2_Click()
Dim NewImage As Image
Dim LastTop As Integer
Dim LastLeft As Integer
Dim cFile As String
LastTop = 10
LastLeft = 10
cFile = Dir("C:\Temp\*.wmf")
Do While cFile <> ""
Set NewImage = Me.Frame1.Controls.Add("Forms.Image.1")
NewImage.Height = 40
NewImage.Width = 40
NewImage.PictureSizeMode = fmPictureSizeModeZoom
NewImage.BackStyle = fmBackStyleOpaque
NewImage.BorderStyle = fmBorderStyleNone
NewImage.BackColor = Application.Preferences.Display.GraphicsWinModelBackgrndColor
Set NewImage.Picture = LoadPicture(cFile)
cFile = Dir
NewImage.Left = LastLeft
NewImage.top = LastTop
Me.ScrollHeight = LastTop + NewImage.Height + 30
If LastLeft + 50 > Me.Width - 20 Then
LastTop = LastTop + NewImage.Height + 30
LastLeft = 10
Else
LastLeft = LastLeft + 50
LastTop = NewImage.top
End If
Loop
End Sub

Private Sub UserForm_Initialize()
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Temp")
Set fc = f.Files
Dim oItem As ListItem
With UserForm1.ListView1
.View = lvwReport
.ColumnHeaders.Clear
.ListItems.Clear
.ColumnHeaders.Add , , "Datei Name"
End With
For Each f1 In fc
If VBA.Right(f1.Name, 4) = ".wmf" Then
Set oItem = Me.ListView1.ListItems.Add(, , f1.Name)
End If
Next
End Sub

Für weitere Hilfe wäre ich sehr dankbar.

mfg.

Dirk Borowski (Boro)
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder aus Verzeichnis auslesen1.747Boro15.10.05 21:13
Re: Bilder aus Verzeichnis auslesen816Boro16.10.05 18:37
Re: Bilder aus Verzeichnis auslesen795HarryC17.10.05 00:02
Re: Bilder aus Verzeichnis auslesen878Boro17.10.05 21:07
Re: Bilder aus Verzeichnis auslesen806HarryC17.10.05 22:06
Re: Bilder aus Verzeichnis auslesen706Boro18.10.05 13:11
Re: Bilder aus Verzeichnis auslesen719Boro19.10.05 19:19
Re: Bilder aus Verzeichnis auslesen665HarryC19.10.05 20:08
Re: Bilder aus Verzeichnis auslesen759Boro20.10.05 09:54
Re: Bilder aus Verzeichnis auslesen704HarryC21.10.05 00: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ü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