instwpaper.bas

Windows墙纸更改事例

Attribute VB_Name = "Module1"
'****************************************************************
'*Author: Tony Jones
'*
'*Description:
'*Instant Wallpwarer
'*
'*Email: [e-mail]
'*
'*Visit: Southern Cross Visual Basic Code and Links - Simply...the best in VB!
'*         http://www.geocities.com/CapeCanaveral/6740/index.html
'*
'*
'*
'*Creation Date: Sunday  23 March 1997  1:50 pm
'*Revision Date: Sunday  23 March 1997  1:50 pm
'*
'*Version Number: 1.00
'****************************************************************

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

Public Const SPI_SETDESKWALLPAPER = 20