|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Option Explicit
#If Win64 Then
Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
#Else
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
#End If
[COLOR=#ff0000][B]Private Const COLOR_WINDOWTEXT As Long = 8[/B][/COLOR][COLOR=#0000cd][B] Private Const CHANGE_INDEX As Long = 1 Public Sub RunMe() Dim defaultColour As Long 'Store the default system colour defaultColour = GetSysColor([/B][/COLOR][COLOR=#ff0000][B]COLOR_WINDOWTEXT[/B][/COLOR][COLOR=#0000cd][B]) 'Set system colour to red SetSysColors CHANGE_INDEX, [/B][/COLOR][COLOR=#ff0000][B]COLOR_WINDOWTEXT[/B][/COLOR][COLOR=#0000cd][B], vbRed MsgBox "Incorrect", , "Your result is..." 'Restore default value SetSysColors CHANGE_INDEX, [/B][/COLOR][COLOR=#ff0000][B]COLOR_WINDOWTEXT[/B][/COLOR][COLOR=#0000cd][B], defaultColour End Sub [/B][/COLOR]
COLOR_SCROLLBAR = 0 'The Scrollbar colour COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper COLOR_ACTIVECAPTION = 2 'Caption of Active Window COLOR_INACTIVECAPTION = 3 'Caption of Inactive window COLOR_MENU = 4 'Menu COLOR_WINDOW = 5 'Windows background COLOR_WINDOWFRAME = 6 'Window frame COLOR_MENUTEXT = 7 'Window Text COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95) COLOR_CAPTIONTEXT = 9 'Text in window caption COLOR_ACTIVEBORDER = 10 'Border of active window COLOR_INACTIVEBORDER = 11 'Border of inactive window COLOR_APPWORKSPACE = 12 'Background of MDI desktop COLOR_HIGHLIGHT = 13 'Selected item background COLOR_HIGHLIGHTTEXT = 14 'Selected menu item COLOR_BTNFACE = 15 'Button COLOR_BTNSHADOW = 16 '3D shading of button COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used. COLOR_BTNTEXT = 18 'Button text COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window COLOR_BTNHIGHLIGHT = 20 '3D highlight of button COLOR_2NDACTIVECAPTION = 27 'Win98 only: 2nd active window color COLOR_2NDINACTIVECAPTION = 28 'Win98 only: 2nd inactive window color
کامنت