فرستادن عکس به والپیپر(WallPaper) از طریق VB

[hex161]

با سلام .
یه کدی میخاستم که بشه با اون یه تصویر که تو پیکچر باکس یا چیز دیگری باشه به Wallpaper یا همون کاغذ دیواری ویندوز بفرستیم.
ممنون.

[بابک زواری]

به توضیحات داده شده دقت کن وگرنه برنامه ات اجرا نمیشه



'This project needs
'- a common dialog box
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
'- a button
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
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private Sub Command1_Click()
'Set the commondialogbox' title
CDBox.DialogTitle = "Choose a bitmap"
'Set the filter
CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Change the desktop's background
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, CDBox.filename, SPIF_UPDATEINIFILE
End Sub
Private Sub Form_Load()
Command1.Caption = "Set Wallpaper"
End Sub

[loads]

میشه بیشتر توضیح بدید

[hex161]

متشکر .
یه سوال دیگه : این کد فقط با تصاویر bmp کار میکنه . میشه کاری کرد که تصاویر jpg رو هم پشتیبانی کنه؟
ممنون.

[بابک زواری]

خوب تو سورس همه چیز معلومه

[hex161]

اگر منظورتان این قسمت از کد ایت CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"

من فیلترشو به JPG هم تغییر دادم و باز هم کرد ولی روی کاغذ دیواری ویندوز هیچ تغییری به وجود نیومد.

[بابک زواری]

نه مسئله من فیلتر نیست اینکه کد رو متوجه شدید یا نه ؟

[hex161]

نه متاسفانه.