Смена фонового изображения рабочего стола программно - VB

Узнай цену своей работы

Формулировка задачи:

Для этого я использую API-функцию SystemParametersInfo:
Однако использовать её не получается, т.к. при вызове процедуры SetWallpaper возникает ошибка 453: программа не может найти входную точку в библиотеку User32. В чём может быть дело?

Решение задачи: «Смена фонового изображения рабочего стола программно»

textual
Листинг программы
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long  
Private Const SPI_SETDESKWALLPAPER = 20    
 
Private Sub SetWallpaper(File As String)  
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True  
End Sub  
 
Private Sub Form_Load()  
SetWallpaper "C:\123.bmp"  
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы