Help Wallpaper

[phongvan1002]

Đệ đang định viết một chương trình đưa hình ảnh trong máy làm wallpaper bằng VB. Chương trình cho phép chọn một hình bất kỳ và nhấn xác nhận thì tự động chuyển hình đó thành hình nền. pác nào biết hàm nào có thể làm được việc này chỉ hộ đệ với.
Cam ơn trước.

[PMT]

Hàm trong VB không có, hàm API thì có nhưng chỉ đưa được file BMP làm ảnh nền thôi, file khác nó bó tay. Muốn đưa JPG, GIF, PNG thành ảnh nền thì phải dùng VC++, viết 1 cái ActiveX control làm chuyện này. VB không làm được đâu.

[Trunks]

Xem thử hàm này đi

' Set Wallpaper
Public Sub SetWallpaper(ByVal Filename As String, ByVal Wallpaperstyle As Long, ByVal ForceEnable As Boolean)

Dim ActiveDesktop1 As ActiveDesktop
Dim Component1 As COMPONENTSOPT
Dim Wallpaper1 As WALLPAPEROPT

Set ActiveDesktop1 = New ActiveDesktop

Component1.dwSize = Len(Component1)

ActiveDesktop1.GetDesktopItemOptions Component1, 0&
If Component1.fActiveDesktop = 0 And ForceEnable Then
Component1.fActiveDesktop = 1 'Enable Active Desktop if it must be enabled
ActiveDesktop1.SetDesktopItemOptions Component1, 0&
End If

Wallpaper1.dwSize = Len(Wallpaper1)
Wallpaper1.dwStyle = Wallpaperstyle

ActiveDesktop1.SetWallpaperOptions Wallpaper1, 0&
ActiveDesktop1.SetWallpaper Filename, 0&
ActiveDesktop1.ApplyChanges AD_APPLY_ALL

Set ActiveDesktop1 = Nothing 'Clean up after we're done

End Sub

[phongvan1002]

hàm này có phải khai báo gì nữa không mà sao mình chạy nó báo là hàm chưa được định nghĩa vậy hả bạn. Hàm này là tự viết hay là hàm Vb hổ trợ vậy hả. có gì chỉ rỏ hơn cho mình nhé.

[PMT]

VB mà đòi dùng interface ActiveDesktop à? Chạy thử chưa mà đưa code lên vậy?
À mà cái này có phải là dùng VB6 không vậy?