cambiar fondo escritorio - VB-MUNDO

alvedel · #1 (**permalink**) 20-02-2008, 20:06:47

Hola, estoy intentando cambiar el fondo de escritorio con visual basic 2005, y he probado este codigo y no consigo ke funcione.

Public Class Extras

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, <System.Runtime.InteropServices.MarshalAsAttribute (System.Runtime.InteropServices.UnmanagedType.AsAn y)> ByVal lpvParam As Object, ByVal fuWinIni As Long) As Long

Private Sub fondo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fondo.Click

Dim fallo As Long
fallo = SystemParametersInfo(20, 0, "C:a.bmp", 0)
End Sub

Me da el siguiente error al leer la linea fallo=Systemparame.... ... ...

Una llamada a la función PInvoke 'Concesionario!Concesionario.Extras::SystemParamet ersInfo' impidió la correspondencia de la pila. Es posible que la razón sea que la firma PInvoke administrada no coincida con la firma de destino no administrada. Compruebe que la convención y los parámetros de llamada de la firma PInvoke coinciden con la firma no administrada de destino.

Alguien puede ayudarme?

PD: Tambien he probado con
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

y me da error el "as any"

seba123neo · #2 (**permalink**) 21-02-2008, 01:27:15

Hola,mira este ejemplo es del guille:

Código:

Public Class Form1
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As Object, ByVal fuWinIni As Integer) As Integer
    Const SPIF_UPDATEINIFILE = &H1
    Const SPI_SETDESKWALLPAPER = 20
    Const SPIF_SENDWININICHANGE = &H2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim FileName As String
        Dim X As Long

        FileName = "c:\windows\pinstripe.bmp"

        X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

        MsgBox("Wallpaper Cambiado")
    End Sub
End Class

saludos.

alvedel · #3 (**permalink**) 21-02-2008, 18:43:50

Gracias seba123neo, al final modificando cosas k ni sikiera entendia lo he solucionado:

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

Private Sub fondo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fondo.Click
Dim fallo As String
Dim ruta As String
ruta = "c:\a.bmp"
fallo = CStr(SystemParametersInfo(20, 0, ruta, 0)) 'solo funciona con imagenes .bmp
End Sub

khiloko · #4 (**permalink**) 23-02-2008, 10:46:08

hola, mi problema es que despues de usar y manipular el codigo no me funcionaba el doble click para abrir un programa o para acceder a una carpeta, no se si a podido ser el que halla manipulado el codigo por antes de eso me iba perfectamente y despues no me iba, mi pregunta es que si a podido ocurrir a causa de eso y, aunque este no sea el lugar del foro donde deberia poner esto, como solucionarlo.