Tác giả: vo_minhdat2007
Mô tả: Có thể ứng dụng làm chương trình lịch, ...
Khởi đầu, Import 2 namespace cần dùng:
Trước tiên, ta lấy đường dẫn wallpaper hiện tại (của Windows lưu riêng ra, không phải là file gốc đâu!). Có 2 cách: lấy trực tiếp bằng Registry (ngắn) và dùng API (cho biết thôi, không nên dùng
)Dùng Registry:
[vbnet] Dim UserWallpaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False)
'Lấy đường dẫn wallpaper hiện tại
Dim Path As String = UserWallpaper.GetValue("Wallpaper")[/vbnet]
Dùng API:
[vbnet] <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function SystemParametersInfo(ByVal uAction As UInt32, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
End Function
Public Function GetCurrentDesktopWallpaper() As String
Dim currentWallpaper As New String(ControlChars.NullChar, MAX_PATH)
SystemParametersInfo(SPI_GETDESKWALLPAPER, currentWallpaper.Length, currentWallpaper, 0)
Return currentWallpaper.Substring(0, currentWallpaper.IndexOf(ControlChars.NullChar))
End Function[/vbnet]
Sau đó, dùng Graphics để thay đổi, vẽ vời gì đó tùy thích
[vbnet] 'Tạo bitmap từ file đó và vẽ chuỗi lên
Dim bm As New Bitmap(Path)
Dim gr As Graphics = Graphics.FromImage(bm)
gr.DrawString("Made by vo_minhdat2007", Me.Font, Brushes.Red, 0, 0)[/vbnet]
Tham khảo them về Graphics tại đây: viewtopic.php?f=23&t=3840
Cuối cùng, lưu lại và đặt nó làm Desktop mới:
Khai báo API này:
[vbnet] Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1[/vbnet]
Code trong chương trình chính:
[vbnet] 'Lưu lại
bm.Save("C:\Temp.bmp")
'Đặt làm hình nền mới
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\Temp.bmp", SPIF_UPDATEINIFILE)
[/vbnet]
Vậy là xong, đây là kết quả
