autoit 中_GUICtrlStatusBar_SetBkColor失效的解决办法-白红宇

autoit 中_GUICtrlStatusBar_SetBkColor失效的解决办法

阅读量：6856 次

发布时间：2019-06-26

本文共 1381 字，大约阅读时间需要 4 分钟。

#include 
     
      #include 
      
       #include 
       
        #include 
        
         Dim $XS_n$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work_Main()Func _Main()    Local $hGUI, $hStatus    Local $aParts[3] = [75, 150, -1]    ; Create GUIXPStyle(1)    $hGUI = GUICreate("(Example 1) StatusBar Set BkColor", 400, 300)    $hStatus = _GUICtrlStatusBar_Create ($hGUI)    GUISetState()    ; Set parts    _GUICtrlStatusBar_SetParts ($hStatus, $aParts)    _GUICtrlStatusBar_SetText ($hStatus, "Part 1")    _GUICtrlStatusBar_SetText ($hStatus, "Part 2", 1)    ; Set background color    _GUICtrlStatusBar_SetBkColor ($hStatus, $CLR_MONEYGREEN)    ; Loop until user exits     XPStyle(0)    Do    Until GUIGetMsg() = $GUI_EVENT_CLOSE    GUIDelete()EndFunc   ;==>_MainFunc XPStyle($OnOff = 1)    If $OnOff And StringInStr(@OSTYPE, "WIN32_NT") Then        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)        Return 1    ElseIf StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])        $XS_n = ""        Return 1    EndIf    Return 0EndFunc   ;==>XPStyle