SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Azanza en Martes 20 de Noviembre de 2007, 09:17
-
Hola a todos, estoy intentando poner una imagen jpg como fondo de escritorio, pero por ahora no lo he logrado, a no ser que la transforme a Bmp, lo cual no me interesa. Por favor si alguien sabe como debo hacerlo se lo agradecería mucho, o si sabe como asociarla al ActiveDesktop, que también valdría.
Gracias.
-
holas, queres poner una i,agen en el fondo de escritorio de windows???? si es asi..
clickea con el boton derecho del mouse, sobre la imagen, elegir la opcion "setablecer como fondo", nos vemos saludos!!!
:hola: :comp:
-
La verdad es que me interesa hacerlo desde una aplicación de visual basic. Pero gracias de todas formas
-
Este código lo encontré en PSC, y le agregué el código del Path.
Option Explicit
'This code is developed by Ivan Uzunov
'e-mail: kicheto@goatrance.com
'Just add this code on a form add a Command1 and press F5
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 SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
Dim WallPaper As Long
Dim strAppPath As String
' Always set working directory to directory containing the application.
ChDrive CurDir(App.Path)
ChDir App.Path
strAppPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "")
'Just change "C:\REDCAP.bmp" with a existing bitmap on your computer
WallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strAppPath & "REDCAP.bmp", 0)
End Sub
Te recomiendo que no escribas "Pero gracias de todas formas" porque das a entender que ya no te interesa otra contestación y cierras la discusión.
:comp:
-
Gracias a todos por la ayuda, al final lo he logrado hacer