[S] VB6 Desktop Changer Source

[CrazyBoris]

Hey Ho,
Ich bin auf der such nach einem Code.
Wenn ich einen button drücke, soll das programm mir das bild als hintergrund
einstellen, welches ich vorher mit cdl ausgewählt habe!
Weiß vll. jmd wie das gehn soll?
Thx schonma

greetz,
Crazy

[igoe*star]

Das mit dem CDL kannst du ja wohl selber benutz bitte das nächste mal GOOGLE! -__-'

Option Explicit
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

Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Sub cmdOK_Click()
Dim tPicture As String
    tPicture = App.Path & "\TSone_Logo_DINA4.bmp"
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, tPicture, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
    Unload Me
End Sub

Igoe.

[CrazyBoris]

Ähm.. joah
wenn ich die .exe erstellen will, bekomm ich einen fehler:
Fehler beim Kompilieren!
Nach EndSub, End Function oder nach End Property können nur kommentare stehen..

hier der markierte bereich:

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

was is falsch?
greetz

joah was is jetzt los?
es ist dringend nötig, dass ich den source oben zum laufen bring!
kann mir jmd helfen?

greetz,
crazy