Private Declare Sub SHChangeNotify Lib "shell32" _ (ByVal wEventId As Long, _ ByVal uFlags As Long, _ ByVal dwItem1 As Long, _ ByVal dwItem2 As Long)Const SHCNE_UPDATEIMAGE = &H8000& Const SHCNF_FLUSHNOWAIT = &H2000 Const SHCNF_DWORD = &H3Private Sub Command1_Click() Dim l As Long
l = -1 SHChangeNotify SHCNE_UPDATEIMAGE, SHCNF_DWORD, l, 0 End Sub
改了以后,桌面都必变不了呀
2.我想知道刷新桌面的方法,
多谢大侠指教
(ByVal wEventId As Long, _
ByVal uFlags As Long, _
ByVal dwItem1 As Long, _
ByVal dwItem2 As Long)Const SHCNE_UPDATEIMAGE = &H8000&
Const SHCNF_FLUSHNOWAIT = &H2000
Const SHCNF_DWORD = &H3Private Sub Command1_Click()
Dim l As Long
l = -1
SHChangeNotify SHCNE_UPDATEIMAGE, SHCNF_DWORD, l, 0
End Sub