Wallpaper
Publicado por Itzcalli (5 intervenciones) el 07/02/2004 22:18:23
tengo un problema para cabiar el fondo de escritorio
Private Sub Command2_Click()
Dim FileName As String
Dim X As Long
FileName = "c:\windows\fondo.bmp"
'la imagen que quiero poner de fondo es mas pequeña que el escritorio quisiera saber como haer para que la imagen se estire automaticamente para que este del tamaño del escritorio
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
MsgBox "El fondo de escritorio se cambio"
End Sub
Private Sub Command2_Click()
Dim FileName As String
Dim X As Long
FileName = "c:\windows\fondo.bmp"
'la imagen que quiero poner de fondo es mas pequeña que el escritorio quisiera saber como haer para que la imagen se estire automaticamente para que este del tamaño del escritorio
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName,
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
MsgBox "El fondo de escritorio se cambio"
End Sub
Valora esta pregunta
0