Как сменить картинку рабочего стола

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Alex_new_2030
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 20.02.2003 (Чт) 8:00
Откуда: Kazakhstan

Как сменить картинку рабочего стола

Сообщение Alex_new_2030 » 07.04.2003 (Пн) 14:16

Я нашел программный код (см. ниже) все работет прекрасно, НО только с BMP файлами, а с JPG не хочет работать. Помогите, как лучше сделать? Или jpg сначала конвертировать в bmp (но тогда подскажите как это сделать программно) или ...?

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20

Public Sub SetWallpaper(File As String)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True
End Sub

Использование: SetWallpaper "me_pc.bmp"

areh
Постоялец
Постоялец
 
Сообщения: 530
Зарегистрирован: 02.12.2002 (Пн) 12:28
Откуда: РОССИЯ, Салехард

Сообщение areh » 07.04.2003 (Пн) 14:19

Чтобы на рабочий стол поставить JPG, надо включать ActiveDesctop, а как это сделать, я не знаю.

Alex_new_2030
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 118
Зарегистрирован: 20.02.2003 (Чт) 8:00
Откуда: Kazakhstan

Сообщение Alex_new_2030 » 07.04.2003 (Пн) 22:04

Так ActiveDesсtop включен из самой винды. Всеравно ен хочет работать.

Elmer
Обычный пользователь
Обычный пользователь
 
Сообщения: 51
Зарегистрирован: 12.02.2002 (Вт) 2:19
Откуда: Russia

Сообщение Elmer » 14.04.2003 (Пн) 17:00

Когда то, летом помоему, я задавал этот вопрос! Так и не нашёл, функции которая мне Сразу Джпег выводит на стол.... Вот так вот! :)

Firestorm
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 946
Зарегистрирован: 02.05.2002 (Чт) 14:36
Откуда: Russia

Сообщение Firestorm » 14.04.2003 (Пн) 17:04

разве обязательно нужен activedesctop? 8)
может сменить картинку через реестр? :lol:
...просто гламурный падонак...
_________________
reborn! v.2 :twisted:
_________________

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 14.04.2003 (Пн) 17:36

Помнится мне, где-то уже проскакивала такая тема, и по-моему, на десктоп можно класть только bmp картинки...
А решение конвертации такое:
На форме нужен PictureBox или Image:
Для них устанавливаем нужную картинку любого ими поддерживаемого формата, а затем пишем, например:
Код: Выделить всё
Savepicture MyImageBox.Picture, App.Path & "\SavedInBMP.bmp"

,а затем именно эту картинку (App.Path & "\SavedInBMP.bmp") кладём на десктоп :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 5

    TopList