Xin code thay đổi Thame của hệ thống (1 người xem)

[quoc nhat]

Em đang dùng Win XP và dùng Thame Windows XP
Giờ muốn dùng EX để thay đổi sang Thame Windows Classic
Mong các thầy cô và anh chị chỉ giúp
EM cảm ơn nhiều!

 

[phanminhphuong]

Nghiên cứu vấn đề gì thực tiễn/ phục vụ công việc đi bạn

Em đang dùng Win XP và dùng Thame Windows XP
Giờ muốn dùng EX để thay đổi sang Thame Windows Classic
Mong các thầy cô và anh chị chỉ giúp
EM cảm ơn nhiều!

Nghiên cứu vấn đề gì thực tiễn/ phục vụ công việc đi bạn! Còn những vấn đề màu mè này, làm "bằng tay" cho nhanh. hic
Google đi. 1 trong số link

Sub ChangeClassicTheme()
Dim sClassicTheme As String
    sClassicTheme = "C:\WINDOWS\Resources\Themes\Windows Classic.theme"
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /file:" & Chr(34) & sClassicTheme & Chr(34))
    SendKeys "{ENTER}"
End Sub

 

[quoc nhat]

Nghiên cứu vấn đề gì thực tiễn/ phục vụ công việc đi bạn! Còn những vấn đề màu mè này, làm "bằng tay" cho nhanh. hic
Google đi. 1 trong số link

Sub ChangeClassicTheme()
Dim sClassicTheme As String
    sClassicTheme = "C:\WINDOWS\Resources\Themes\Windows Classic.theme"
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /file:" & Chr(34) & sClassicTheme & Chr(34))
    SendKeys "{ENTER}"
End Sub

cảm ơn anh nhiều.
Thế mà em không biết search Google