Cambiar el Wallpaper de Windows con Visual Basic 2005

[cobossagrav]

Cambiar el Wallpaper de Windows con Visual Basic 2005

Eh buscado la forma de establecer fondos de pantalla desde Visual Basic 2005
Sin tener éxito, me dijeron q el código cambia según el Ordenador si es de 16 o 32 bits

Y no entiendo eso, no hay alguna forma de hacerlo con éxito…
Ósea algo simple busco una imagen:

Dim Bus_Img As OpenFileDialog = New OpenFileDialog
Bus_Img.Filter = "Image Files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg"
Bus_Img.Title = "Cargar Imagen para Fondo de Pantalla"
Bus_Img.ShowDialog()
Pic.Image = Image.FromFile(Bus_Img.FileName)
Bus_Img.Dispose()

y Ahora como hago para ponerlo como Fondo de Pantalla

Y q se conserve cuando el programa q cierre
(ya q probé algunos códigos pero al cerrarse se borraba el fondo de pantalla como si estaría en ninguno)

Ayúdenme por favor

[maycolalvarez]

tendrías que investigar en la api de windows

[cobossagrav]

No entiendo eso de API, como va eso, como manejas un API con Visual Basic 2005

[elhombredeblanco]

que tal , por que no mejor, mandas llamar la pantalla donde se ponen los fondos de escritorio y listo

aqui el codigo

System.Diagnostics.Process escritorio = new System.Diagnostics.Process();
escritorio.StartInfo.FileName = "Desk.cpl";
escritorio.Start();

espero te ayude

gracias

[seba123neo]

Hola, con la api SystemParametersInfo se hace...

saludos.

[cobossagrav]

Ya exelente me Puse a Invertigar y ah Aplicar el API que mencionan pero al parecer no funciona
se supone que con en esta linea del codigo:

SystemParametersInfo(20, 0&, "Ruta de la Imagen", &H1 Or &H2)

Deberia estableser dicha imagen como fondo de pantalla, pero no corre. no hace eso, no hace nada la verdad....

q pasa por que eso...

[seba123neo]

pone el codigo entero de como lo estas haciendo, aparte esa api solo acepta .BMP

saludos.

[cobossagrav]

Eh probado muchos métodos y no lo eh logrado, estoy intrigado
Tengo una interrogante,
Si digamos desde el mismo Windows XP simplemente logro esto
Haciendo click derecho a una imagen y estableciéndolo como fondo de escritorio
Es q acaso no puedo haces esta simple y sencilla tarea desde el Visual Studio 2005
Sabiendo cual es y donde está la imagen, clickear un botón en el VS2005
Y q se produzca tal evento
Establecer la imagen deseada como fondo de escritorio
Valga la redundancia
Agradezco la ayuda…

[jaullo]

Prueba esto:

Código ASP:

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 Integer
 
    Private Const SPI_SETDESKWALLPAPER As Integer = 20
    Private Const SPIF_UPDATEINIFILE As Integer = 1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim od As New OpenFileDialog()
        With od
            .Filter = "Bitmaps(*.bmp)|*.bmp" '/// only seems to work on bitmaps ( atleast on XP pro here )
            .InitialDirectory = "C:\"
        End With
        If od.ShowDialog = DialogResult.OK Then
            If MessageBox.Show("would you like the changes to remain next time you re-boot", Application.ProductName, MessageBoxButtons.YesNo) = DialogResult.OK Then
                SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, od.FileName, SPIF_UPDATEINIFILE)
            Else '/// dont save changes for after reboot.
                SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, od.FileName, 0)
            End If
        End If
    End Sub
 

Y otros recursos
http://www.dotnetspider.com/resource...ng-vb-net.aspx

http://devcity.net/Articles/119/1/vb2005_wallpaper.aspx

[cobossagrav]

Gracias por el dato lo probare...

Dime esto ba en Visual Basic?

[jaullo]

Exacto, es visual basic

[cobossagrav]

chevere gracias, si no me sale haber si escribo algo jejeje