Ejemplos usando el Api de windows para Visual basic

50 - Api SystemParametersInfo para poder cambiar el papel tapiz inclusive en Windows Xp.

Rutina que permite cambiar el papel tapiz de windows con el Api

En el ejemplo la función cambiarTapiz tiene 2 parámetros, la ruta del archivo de imagen y el estilo. El 0 es centrado, un 1 lo establece como mosaico y un 2 estirado.

Controles para el form

Colocar 1 Commondialog
un Command

Option Explicit 'función Api SystemParametersInfo para establecer el papel Tapiz de windows Private Declare Function SystemParametersInfo _ Lib "user32" _ Alias "SystemParametersInfoA" ( _ ByVal uAction As Long, _ ByVal uParam As Long, _ ByVal lpvParam As String, _ ByVal fuWinIni As Long) As Long 'Variable para escribir los cambios en el registro con Windows Scriptin Host Dim Wsh As Object 'Variable para obtener el directorio del sistema Dim Fso As Object Private Sub cambiarTapiz(Ruta As String, opcion As Byte) 'Usamos Windows Scriptin Host y Windows Scripting runtime Set Wsh = CreateObject("wscript.shell") Set Fso = CreateObject("Scripting.FileSystemObject") 'Dependiendo de la opcion grabamos en el registro la configuración del tapiz Select Case opcion 'Papel tapiz centrado Case 0 Wsh.regwrite "HKCU\Control Panel\Desktop\WallpaperStyle", "0" Wsh.regwrite "HKCU\Control Panel\Desktop\TileWallpaper", "0" 'Papel tapiz - Mosaico Case 1 Wsh.regwrite "HKCU\Control Panel\Desktop\WallpaperStyle", "0" Wsh.regwrite "HKCU\Control Panel\Desktop\TileWallpaper", "1" 'Papel tapiz - expandida o estirado Case 2 Wsh.regwrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2" Wsh.regwrite "HKCU\Control Panel\Desktop\TileWallpaper", "0" End Select 'Grabamos en en el directorio del sistema la imagen con savePicture SavePicture LoadPicture(Ruta), Fso.GetSpecialFolder(1) & "\Imagen.bmp" 'Establecemos la imagen con SystemParametersInfo SystemParametersInfo 20, 0&, Fso.GetSpecialFolder(1) & "\Imagen.bmp", &H1 Or &H2 'Eliminamos las variables de objeto Set Wsh = Nothing Set Fso = Nothing End Sub Private Sub Command2_Click() With CommonDialog1 .Filter = "Imagenes (*.jpg, *.bmp, *.gif)|*.jpg;*.bmp;*.gif" .ShowOpen If .FileName = "" Then Exit Sub 'Le pasamos la ruta y el modo en que se establece el papel tapiz. 'el 0 es centrado, el 1 es mosaico y el 2 es extendido cambiarTapiz .FileName, 0 End With End Sub

Enlaces relacionados

Otro ejemplo que permite cambiar el Tapiz en XP

Buscar en Recursos vb