Visual basic 2008 - Achtergrond

[Senquell]

Hey,

is er een code waarmee je met een druk op de knop je achtergrond kan veranderen?
zonder dat je moet aageven waar de foto is opgeslagen.
Maar de foto staat wel in Resources.

 

[Rex 1241]

Me.Backgroundimage = My.Resources.*bg*

waarbij je *bg* door de naam van de afbeelding vervangt

 

[Senquell]

Me.Backgroundimage = My.Resources.*bg*

waarbij je *bg* door de naam van de afbeelding vervangt

Bedankt voor je hulp.

Dat is niet wat ik bedoelde, maar leuk om te weten.
Ik wil graag mijn desktop achtergrond veranderen.

 

[Rex 1241]

ow zo

even zoeken

EDIT:

zet helemaal bovenaan (dus voor public class o.i.d.):
Imports System
Imports System.Runtime.InteropServices

Direct na public class Form1 o.i.d. zet je:
Public Shared SPI_SETDESKTOPWALLPAPER As Integer = 20
Public Shared SPIF_UPDATEINIFILE As Integer = 1
Public Shared SPIF_SENDWININICHANGE As Integer = 2


dan zet je in de sub (button_click):
Dim Img As Image = My.Resources.*resname*
Img.Save(Application.StartupPath & "/wallpaper.jpg", Imaging.ImageFormat.Jpeg)
SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, Application.StartupPath & "/wallpaper.jpg", _
(SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))

waarbij je *resname* vervangt door de naam van de afbeelding

en na End Sub zet je:

Private Declare Sub SystemParametersInfo Lib "User32.dll" Alias "SystemParametersInfoA" (ByVal action As Integer, _
ByVal iparam As Integer, ByVal vparam As String, ByVal opt As Integer)

 

[Senquell]

Rex 1241, jij bent mijn held! Haha,
echt super super super bedankt!!!

een vraagje, ben je wezen googelen?
of heb je nog een leuk VB.net site.

 

[Rex 1241]

een vraagje, ben je wezen googelen?

Ja, en dan de codes een beetje aanpassen zodat ze werken

 

[Cornelis96]

doe nie

volgen mij ligt het aan mij of omdat ik XP pro heb maar wat ik ook voor 1 wallpaper heb hij is
steeds blauw
mischien weet iemand de oplossing???
ofwerkt het alleen in visual basic en niet in VB.net HELP!!!

 

[Senquell]

volgen mij ligt het aan mij of omdat ik XP pro heb maar wat ik ook voor 1 wallpaper heb hij is
steeds blauw
mischien weet iemand de oplossing???
ofwerkt het alleen in visual basic en niet in VB.net HELP!!!

Ehm ligt aan jou windows.
Dit is een code voor VB.net..

 

[Cornelis96]

Ehm ligt aan jou windows.
Dit is een code voor VB.net..

op school is het iets te goed beveiligt dus doet ie het ook niet

 

[Cornelis96]

werkt niet

khe andere comp met Xp home edition doet hij het ook niet!!!:evil:

 

[Tha Slayer]

En als ik hem nou wil veranderen, maar ik heb de afbeelding niet in recources staan. Maar ik weet wel waar de afbeelding staat.(Het pad) Wat moet ik dan veranderen om het goed te laten werken?

 

[Rex 1241]

dan zet je in de sub (button_click):
Dim Img As Image = My.Resources.*resname*
Img.Save(Application.StartupPath & "/wallpaper.jpg", Imaging.ImageFormat.Jpeg)
SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, Application.StartupPath & "/wallpaper.jpg", _
(SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))

waarbij je *resname* vervangt door de naam van de afbeelding

wordt dan:

SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, *pad v. afb*, _
(SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))

*pad v. afb* is dan het pad van de afbeelding

 

[Tha Slayer]

Hartelijk dank!

Ik zit nu even op een andere pc, dus kan nu niet uitproberen... Maar zal ik morgen zeker even doen

 

[Tha Slayer]

Ik krijg een error ( kan dus niet debuggen)
"Name 'SystemParametersInfo' is not declared."

Enig idee wat ik fout doe?

Edit: Ik gebruik trouwens visual basic 2008
En sorry van dubbelpost

 

[Rex 1241]

Ja dat komt als je alleen deze post hebt gebruikt, misschien even de gequote post bekijken en daar het nodige veranderen

 

[Tha Slayer]

Edit: Ik heb het al gevonden, Danku zeer! Ik was vergeten aan het eind dat ene toe te voegen (a)

 

[Cornelis96]

srry maar ij mij werkt hij nog niet ik krijg geen error fzo hij geeft niks aan alleen m'n berualad is blauw

 

[djmaster329]

Ik denk dat jouw probleem is dat je pc de achtergrond niet kan vinden. Het beste (denk ik) is om de afbeeldingen in een aparte map met een zo kort mogelijk pad te zetten.

Aangepaste code:
zet helemaal bovenaan (dus voor public class o.i.d.):

Imports System
Imports System.Runtime.InteropServices

Direct na public class Form1 o.i.d. zet je:

Public Shared SPI_SETDESKTOPWALLPAPER As Integer = 20
Public Shared SPIF_UPDATEINIFILE As Integer = 1
Public Shared SPIF_SENDWININICHANGE As Integer = 2

dan zet je in de sub (button_click):

Dim Img As Image ="*Orgineel pad*"
Img.Save(Application.StartupPath & "C:/wallpaper.jpg", Imaging.ImageFormat.Jpeg)
SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, Application.StartupPath & "C:/wallpaper.jpg", _
(SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))

en na End Sub zet je:

Private Declare Sub SystemParametersInfo Lib "User32.dll" Alias "SystemParametersInfoA" (ByVal action As Integer, _
ByVal iparam As Integer, ByVal vparam As String, ByVal opt As Integer)

 

[Cornelis96]

Bedankt maar...
sorry ik gebruik in plaats van de code in de sub
deze code:

OpenFileDialog1.Show

SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, OpenFileDialog1.Filename, _
(SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))

deze heb ik uit hoofd geschreven dus...
Dus er zou niks fout kunnen gaan??!!??
op normale Xp werktie bij mij ook niet??!!


groetjes