Ejemplos usando el Api de windows para Visual basic

74 - SystemParametersInfo - Cambiar el papel tapiz en NT y XP

Volver al Listado Api - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este es otro ejemplo que muestra como cambiar el fondo del escritorio usando el Api SystemParametersInfo.

Nota: al final de la página hay otro poyecto para cambiar el fondo del escritorio

Controles para el formulario

Command1 ( selecciona el archivo de imagen ),
Command2 ( cambia el fondo)
Command3 lo reestablece
También un control Commondialog (CommonDialog1)

Código fuente en el formulario:

Option Explicit 'Api SystemParametersInfo 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 'Constantes Const SPIF_SENDWININICHANGE = &H2 Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 'Seleccionamos una imagen para el papel tapiz Private Sub Command1_Click() With CommonDialog1 .Filter = ("Archivos BMP (*.BMP)|*.BMP") .ShowOpen If .FileName <> "" Then Me.Picture = LoadPicture(.FileName) End If End With End Sub Private Sub Command2_Click() If CommonDialog1.FileName = "" Then Exit Sub 'Ejecutamos el Api pasandole la ruta del bitmap y las constantes SystemParametersInfo SPI_SETDESKWALLPAPER, 0, _ CommonDialog1.FileName, SPIF_UPDATEINIFILE Or _ SPIF_SENDWININICHANGE End Sub Private Sub Command3_Click() 'Para sacar el papel Tapiz se le envía una cadena vacía en lpvParam SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "", _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE End Sub Private Sub Form_Load() Command1.Caption = " Seleccionar Bitmap " Command2.Caption = " Establecer papel Tapiz " Command3.Caption = " Eliminar papel Tapiz " End Sub

Ejemplo 2

Cambiar el fondo de pantalla en windows 95 y windows NT

Recurso enviado por Helmuth Campos.

Hola, les dejo una utilidad que realize, que permite cambiar el fondo de panalla de windows, y también deshacerlo, no cambiara nada si esta activado Active Desktop, de todos modos es útil

Saludos.

Descargar proyecto

Formulario para cambiar el tapiz.

formulario para cambiar el tapiz del escritorio

Enlaces relacionados

SystemParametersInfo - Posición y dimensiones de la pantalla sin contar el Taskbar

Buscar en Recursos vb