VPF::Фон рабочего стола - Форум программистов

Error1

Дата 11.5.2006, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.5.2006

Репутация: нет
Всего: нет

Люди скажите пожалуйста как можно поменять обой рабочего стола с помощью VB
например: когода заходиш в прогу она автоматически меняет Обой Рабочего Стола

Это сообщение отредактировал(а) Error1 - 11.5.2006, 18:31

IcyJet

Дата 11.5.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Надо использовать знаменитую Win32API smile

!

Добавь на форму 2 CommandButton. Первая кнопка помещает на рабочий стол любой рисунок, вторая - убирает этот рисунок.

Код


'Взято с VBNet

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

Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "D:\Basic\tmpProj\Load.bmp", True
'Замени путь D:\Basic\tmpProj\Load.bmp на нужный тебе файл рисунка в формате bmp
End Sub

Private Sub Command2_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, 0, False
End Sub

Ну это конечно надо оформить в процедурку красивенькую smile

, а так в принцепе должен разобратся.

cardinal

Дата 11.5.2006, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

http://www.activevb.de/tipps/vb6tipps/tipp0054.html

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

~FoX~

Дата 12.5.2006, 14:37 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Путь к обои прописан в реестре по адресу HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper
Пишишь туда адрес своей картинки и посылаешь всем сообщение об обновлении через SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE);
В факе есть примеры по работе с реестром....Удачи

Это сообщение отредактировал(а) ~FoX~ - 12.5.2006, 14:38

--------------------

…множественность никогда не следует полагать без необходимости…

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »