wallpaper

Er det via VB du vil sætte det eller gennem styresystemet ?

Hvis det er gennem styresystemet skal du omdanne din jpg-fil til en bmp-fil (f.eks. via PaintShop Pro) og gemme den i Windows eller Winnt afhængig af hvad du bruger.

sjensen

VB....
med activ desktop kan man godt bruge jpg filer
Jeg vil ha' VB til at sætte en fil som wallpaper

OK, men der findes ingen direkte VB syntax til at gøre dette. Du skal ændre den registrykey der fortæller hvilket billede der bruges som wallpaper.

Denne info ligger i:

HKEY_CURRENT_USER\Control Panel\Desktop
som en strengværdi kaldet WallPaper der indeholder den absolutte sti og filnavn. Eks. C:\winnt\julesne.bmp

Men.. De fleste data i HKEY_Current_User oprettes automatisk når en bruger logger på og fjernes igen når brugeren logger af. De bliver oprettet af de tilsvarende data under HKEY_Users, men her ligger den enkelte brugers info. under en hovednøgle der er et hel..... langt nummer. Eks.

HKEY_USERS\S-1-5-21-1488525776-282281801-1606240830-500\Control Panel\Desktop
og også her er det værdien WallPaper der som strengværdi skal pege på det absolutte filnavn (drev+sti+navn)

Når du siger at du har activ desktop vil jeg ikke udelukke at der kan være flere mulige. Jeg bruger ikke selv active desktop.

Men check hvad det wallpaper du har fremme nu hedder og søg registry igennem for det navn. Det sted du finder det under HEY_Users er der du skal rette det, og det kan du gøre fra VB ved at skrive en ny værdi i nøglen.

sjensen

Her er noget kode... Denne kode virker dog vistnok kun med .bmp filer!

Lav et Modul og indsæt følgende kode:
-----

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
Public Const SPI_SETDESKWALLPAPER = 20

-----
Lav en form og indsæt følgende kode - evt. i Form_Load:
-----

Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "c:\windows\bolte.bmp"
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

-----

Håber at koden kan bruges!

/The Portal

Hvor der står
strBitmapImage = "C:\windows\bolte.bmp"
kan du jo selv skrive placeringen af bmp filen...

/The portal

Er det muligt at for VB til at konverer fra jpg til bmp, når en fil valges? så jpg filer kan bruges istedet for? de er jo en del mindre, og derfor hurtiger om at loade (jeg sider på et gammel æsel af en computer)

Tak....

Nej... Det er en *MEGET* slem kode der skal til at gøre det!

/The Portal

Ja man kan godt konvertere et jpg billede til bmp. Det er i øvrigt ganske let. Du loader blot jpg billedet til et image objekt og gemmer det igen, så er formatet ændret. Eks:

adresse = \"f:\\billeder\\\"
filnavn = \"0002.jpg\"
Image1.Picture = LoadPicture(adresse & filnavn)
SavePicture Image1.Picture, adresse & \"0002.bmp\"

Jeg synes da ikke denne kode er så slem?.
Hilsen

Erling