设置控件中文本的颜色
#Include <GuiListView.au3>
_GUICtrlListView_SetTextColor($hWnd, $iColor)
$hWnd | 控件句柄 |
$iColor | 文本颜色 |
成功: | 返回 True |
失败: | 返回 False |
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Constants.au3>
$Debug_LV = False ; 检查传递给 ListView 函数的类名, 设置为 True 并使用指向另一控件的句柄来检查它是否工作
_Main()
Func _Main()
Local $hListView
GUICreate("ListView Set Text Color", 400, 300)
$hListView = GUICtrlCreateListView("", 2, 2, 394, 268)
GUISetState()
; 设置颜色
_GUICtrlListView_SetBkColor($hListView, $CLR_MONEYGREEN)
_GUICtrlListView_SetTextColor($hListView, $CLR_BLACK)
_GUICtrlListView_SetTextBkColor($hListView, $CLR_MONEYGREEN)
; 添加列
_GUICtrlListView_AddColumn($hListView, "Items", 100)
; 添加项目
_GUICtrlListView_BeginUpdate($hListView)
For $iI = 1 To 10
_GUICtrlListView_AddItem($hListView, "Item " & $iI)
Next
_GUICtrlListView_EndUpdate($hListView)
; 显示颜色
MsgBox(4160, "信息", "Back Color ....: " & _GUICtrlListView_GetBkColor($hListView) & @CRLF & _
"Text Color ....: " & _GUICtrlListView_GetTextColor($hListView) & @CRLF & _
"Text Back Color: " & _GUICtrlListView_GetTextBkColor($hListView))
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main