Tilfældigt billede...

http://fusoft.virtualave.net/wr/

Forresten... Billedet skal vises som BAGGRUND og ikke bare ligge der som fil!

Tak "jensb", men jeg kunne så godt tænke mig at lave mit eget... :-)

Nårh ups...jeg havde ikke lige set at det var den kategori jeg var kommet ind i.

:-)

Under declarations:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Så sætter du Windoes desktop således:
SystemParametersInfo 20, 0, WallFile, &H1

Her er WallFile en string, som indeholder sti og filnavn på baggrundsbilledet.

Beklager, "Driis", men jeg er ikke så god til den slags, så jeg forstår det desværre ikke!!!

Du kan bruge driis' forslag således:

Lav et projekt der kun indeholder et modul (ingen form).
Indsæt følgende kode i modulet:

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Sub Main()
    Dim WallFile As String, RetVal As Long, PicNr As Integer
    Randomize
    PicNr = Int(Rnd * 5) + 1
    WallFile = App.Path & "\pic" & PicNr & ".bmp"
    RetVal = SystemParametersInfo(20, 0, WallFile, &H1)
End Sub

-Dette kompilerer du til en exe-fil.

Lav nu 5 baggrundsbilleder, der hedder pic1.bmp til pic5.bmp, og læg dem i samme mappe som exe-filen. Nu vil dit baggrundsbillede skifte hver gang du kører programmet. (Du kan være "uheldig" og få det samme 2 gange i træk).
-Jeg kunne KUN få det til at fungere med bmp billeder.(?)

Du kunne så oprette en genvej til din exe-fil i "start"-mappen i startmenuen:
Programmer/Start.

Så vil du automatisk få skiftet hver gang du starter Windows.

/tjacob

Det var jo driis der kom med API-kaldet, så jeg synes han skal have halvdelen.

driis se her: http://www.eksperten.dk/spm/233086

/tjacob