Jag håller på med ett program som slumpvist ska visa bilder som ligger i en katalog. Programmet ska kunna visa bilderna utan att man ska behöva instruera om filnamn..
Jag programmerar nu i VB .NET. Jag har förrut löst problemet med FileListBox i VB6. Jag använde filelistboxen för att räkna antalet bildfiler i katalogen och sen slumpade jag fram ett nr och med hjälp av det fick jag fram en bild.
Men i VB .NET så hittar jag ingen FileListBox? Har testat med lite olika saker, men jag kommer ingen vart. Någon som har någon idé om vad som ska göras?
Imports System.IO
Module Module1
Sub Main()
Dim di As DirectoryInfo = New DirectoryInfo("c:\")
Dim fsi As FileSystemInfo
For Each fsi In di.GetFileSystemInfos() ' or search pattern ("*.*")
If TypeOf fsi Is FileInfo Then
Console.WriteLine("it's a file: {0}", fsi.FullName)
Else
Console.WriteLine("it's a sub-dir: {0}", fsi.FullName)
End If
Next
End Sub
End Module
Lägg in alla filer i en array och slumpa fram ett index nummer som är mellan 0 och upperbound i arrayen, då har du en slumpad fil :)
Tänk på att spara arrayen så att du inte behöver loopa igenom alla filer varje gång som du ska slumpa fram en bild.
/Viktor
260 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
