Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const HWND_BROADCAST = &HFFFF& Const WM_SETTINGCHANGE = &H1A
Private Sub Command1_Click() SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0 End Sub
以下是引用simpson在2007-8-26 11:29:29的发言: Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const HWND_BROADCAST = &HFFFF& Const WM_SETTINGCHANGE = &H1A
Private Sub Command1_Click() SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0 End Sub