Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Картинку на рабочий стол. Добавлено: 07.01.09 16:32  

Автор вопроса:  Crio | ICQ: 462217470 
Ну... как? Карнинку берешь я делаешь обоиной рабочего стола. Как реализовать?

Ответить

  Ответы Всего ответов: 15  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 07.01.09 17:45
  1. Private Const SPI_SETDESKWALLPAPER As Integer = &H14
  2. Private Const SPIF_UPDATEINIFILE As Integer = &H1
  3. Private Const SPIF_SENDWININICHANGE As Integer = &H2
  4.  
  5. Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
  6.     ByVal uAction As Integer, ByVal uParam As Integer, _
  7.     ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
  8.  
  9. ' change this to whatever filename you want to use
  10. Const WallpaperFile As String = "MovieCollectionImage.bmp"
  11.  
  12. ''' <SUMMARY>
  13. ''' Sets the background of your Windows desktop.  
  14. ''' The image will be saved in MyPictures and the background
  15. ''' wallpaper updated.
  16. ''' </SUMMARY>
  17. ''' The image to be set as the background.
  18. ''' <REMARKS></REMARKS>
  19. Friend Sub SetWallpaper(ByVal img As Image)
  20.     Dim imageLocation As String
  21.     imageLocation = My.Computer.FileSystem.CombinePath( _
  22.         My.Computer.FileSystem.SpecialDirectories.MyPictures, WallpaperFile)
  23.     Try
  24.         img.Save(imageLocation, System.Drawing.Imaging.ImageFormat.Bmp)
  25.         SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imageLocation, _
  26.             SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  27.     Catch Ex As Exception
  28.         MsgBox("There was an error setting the wallpaper: " & Ex.Message)
  29.     End Try
  30. End Sub
  31. '''''''''''''''''''''''''''''''''''''''''
  32.     SetWallpaper (Me.PictureBox1.Image)

Ответить

Номер ответа: 2
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #2 Добавлено: 07.01.09 17:50
ппц

Ответить

Номер ответа: 3
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #3 Добавлено: 07.01.09 17:59
это единственный способ? я вообще толком не понял что там написано...

Ответить

Номер ответа: 4
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #4 Добавлено: 07.01.09 18:21
Пипец это нежно сказано!
Я так думаю нэтчикам больно смотреть как их любимый фрэймворк юзают чтоб апи вызвать и рисунок как бмп сохранить.

Ответить

Номер ответа: 5
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #5 Добавлено: 07.01.09 19:03
как сделать то

Ответить

Номер ответа: 6
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #6 Добавлено: 07.01.09 20:18
ну и... обьясните мне хотя бы где тут прописывать путь к картнинке и её название...

Ответить

Номер ответа: 7
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #7 Добавлено: 07.01.09 20:32
ппц

нет, это не пипец.. это всего лишь твое незнание и непонимание сути ответа..
обьясните мне хотя бы где тут прописывать путь к картнинке и её название - а вот это уже реальный пипец!

Ответить

Номер ответа: 8
Автор ответа:
 Фенягz



ICQ: 387437448 

Вопросов: 7
Ответов: 202
  Web-сайт: atauenis.narod.ru/
 Профиль | | #8 		Добавлено: 07.01.09 21:01
Crio пишет:
обьясните мне хотя бы где тут прописывать путь к картнинке и её название...

:-|

Ответить

Номер ответа: 9
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #9 Добавлено: 07.01.09 21:05
так, блин, если вы и это не можете обьяснить, то куда уж просить у вас обьяснить весь код...

Ответить

Номер ответа: 10
Автор ответа:
 Crio



ICQ: 462217470 

Вопросов: 9
Ответов: 38
  Профиль | | #10 Добавлено: 07.01.09 22:15
Люди, простите за тупость, я новичек много чего не знаю. В общем с кодом разобрался. Спасибо.

Ответить

Номер ответа: 11
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
  Web-сайт: atauenis.narod.ru
 Профиль | | #11 		Добавлено: 08.01.09 08:26
Просто вызвать SystemParametersInfo - мало.

  1. ' Узнать настройки
  2. Dim k As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop")
  3. Dim s As Integer = CInt(k.GetValue("WallpaperStyle", 2)) ' 0, 1, 2 (растянуть, по центру, заложить)
  4. Dim t As Integer = CInt(k.GetValue("TileWallpaper", 0)) ' 0 - не залаживать, 1 - заложить плиткой
  5. Dim w As String = CStr(k.GetValue("Wallpaper", vbNullString)) ' адрес к файлу


Чтоб назначить обои - сохранить файл + запись в реестр + SystemParametersInfo

Ответить

Номер ответа: 12
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #12 Добавлено: 15.01.09 13:39
EROS, ты прям как Медведев разговариваешь :)

Ответить

Номер ответа: 13
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #13 Добавлено: 15.01.09 13:40
Может ты и есть виртуал Медведева? :)

Ответить

Номер ответа: 14
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #14 Добавлено: 15.01.09 21:43
чорт.. спалилсо..

Ответить

Номер ответа: 15
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #15 Добавлено: 17.01.09 16:01
А-А-А! МЕДВЕД НА МИТУЕ!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам