Refresh کردن سیستم با کدنویسیvb6

[بهروز عباسی]

Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Private Sub Command1_Click()
InvalidateRect 0&, 0&, False
End Sub

[AbbasVB]

دوست عزیز این کد توی win7 فقط IDE ویژوال بیسیک رو رفرش میکنه مشکلش چیه؟:لبخند:

[بهروز عباسی]

دوست عزیز این کد توی win7 فقط IDE ویژوال بیسیک رو رفرش میکنه مشکلش چیه؟:لبخند:

شرمنده من فقط توی XP تست کردم اگه برای سون پیدا کردم همین جا میذارم

[بهروز عباسی]

برای رفرش کردن آیکن ها چیزی نداری

[MohammadGh2011]

دوست عزیز این کد توی win7 فقط IDE ویژوال بیسیک رو رفرش میکنه مشکلش چیه؟:لبخند:
درسته در ويندوز 7 ،ويندوز رو Refresh نميکنه.

[محسن واژدی]

سلام
دستور زیر را هم بررسی کنید (refresh کردن دسکتاپ):
Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, ByRef dwItem1 As Any, ByRef dwItem2 As Any)
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Const SHCNF_IDLIST As Long = &H0
Private Const WM_WININICHANGE As Long = &H1A
Private Const HWND_BROADCAST As Long = &HFFFF&
Private Const SHCNE_ASSOCCHANGED As Long = &H8000000
Private Const WM_SETTINGCHANGE As Long = WM_WININICHANGE


Private Sub Command1_Click()
Call SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)
Call SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0)
End Subموفق باشید