为菜单设置一个背景刷子(brush).
#Include <GuiMenu.au3>
_GUICtrlMenu_SetMenuBackground($hMenu, $hBrush)
$hMenu | 菜单句柄 |
$hBrush | 背景色刷子 |
成功: | 返回 True |
失败: | 返回 False |
#include <GuiMenu.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
_Main()
Func _Main()
Local $hWnd, $hMain, $hFile, $hBrush
; 打开记事本
Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]")
$hWnd = WinGetHandle("[CLASS:Notepad]")
$hMain = _GUICtrlMenu_GetMenu($hWnd)
$hFile = _GUICtrlMenu_GetItemSubMenu($hMain, 0)
; 文件菜单背景
Writeln("File menu background: 0x" & Hex(_GUICtrlMenu_GetMenuBackground($hFile)))
$hBrush = _WinAPI_GetSysColorBrush($COLOR_INFOBK)
_GUICtrlMenu_SetMenuBackground($hFile, $hBrush)
Writeln("File menu background: 0x" & Hex(_GUICtrlMenu_GetMenuBackground($hFile)))
EndFunc ;==>_Main
; 写入一行文本到记事本
Func Writeln($sText)
ControlSend("[CLASS:Notepad]", "", "Edit1", $sText & @CR)
EndFunc ;==>Writeln