>-->O
همکار بازنشسته
با استفاده از تابع api زیر شما می تونید به راحتی تصویر رو بدون log out کردن تغییر بدید.
و حالا با دستور زیر می تونید تصویری رو که آدرسش در متغیر imagepath قرار داره رو بندازید تو پس زمینه.
کد:
'api to set the systems parameters for changing the wallpaper
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
'constants to be used with the above api
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
و حالا با دستور زیر می تونید تصویری رو که آدرسش در متغیر imagepath قرار داره رو بندازید تو پس زمینه.
کد:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)