با اين كد ميتوانيد تصوير پس زمينه ويندوز خود را از طريق ويژوال بيسيك عوض نماييد
ابتدا تعاريف زير را در يك ماژول انجام دهيد
سپس كد زير را براي عوض كردن تصوير اجرا نماييد.
ابتدا تعاريف زير را در يك ماژول انجام دهيد
کد:
'Module (Declaration of Api Functions)
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
'constants
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPIF_UPDATEINIFILE = &H1
Public Const SPI_SETDESKWALLPAPER = 20
سپس كد زير را براي عوض كردن تصوير اجرا نماييد.
کد:
'Form Code
Private Sub cmdChangeWallPaper_Click()
Dim ret As Long
ret = SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, "c:\windows\bubble.bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub
Private Sub cmdClearWallpaper_Click()
ret = SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, "(None)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub