Функция для размещения изображения на рабочем столе - VB
Формулировка задачи:
Кому нибудь, надеюсь, известно название функции в VB6.0 или в VBA чтобы программным путём размещать gif, bmp или jpg как картинку рабочего стола?
Заранее благодарен
Решение задачи: «Функция для размещения изображения на рабочем столе»
textual
Листинг программы
- Private 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
- Function FF()
- Const SPI_SETDESKWALLPAPER = 20
- Const SPIF_UPDATEINIFILE = &H1
- Const SPIF_SENDWININICHANGE = &H2
- SystemParametersInfo SPI_SETDESKWALLPAPER, 0, 'C:WINNTШтукатурка.bmp', SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
