如何使lit内文字自动换行?和某1行红色?

wuluck

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>


$Form1                        = Guicreate("Form 1", 400, 400, -1, -1)
$list = GUICtrlCreateList("准备中", 176, 32, 121, 57)
GuiSetState(@SW_SHOW)






While 1
        $Msg = GUIGetMsg()
sleep(1000)

sleep(1000)
GUICtrlSetData($list, @HOUR & ":"& @MIN & ":" & @SEC & "测试

111111111114")
ControlFocus("Form 1", "", $list)
ControlSend ("Form 1","",$list,"{END}")
sleep(1000)
GUICtrlSetData($list, @HOUR & ":"& @MIN & ":" & @SEC & "测1111111111试

4"& @CR & @CR & "11111114")
ControlFocus("Form 1", "", $list)
ControlSend ("Form 1","",$list,"{END}")
sleep(1000)
GUICtrlSetData($list, @HOUR & ":"& @MIN & ":" & @SEC & "测11111111111试

4")
ControlFocus("Form 1", "", $list)
send("{END}")

sleep(1000)
GUICtrlSetData($list, @HOUR & ":"& @MIN & ":" & @SEC & "测试11111114")
ControlFocus("Form 1", "", $list)
send("{END}")
sleep(1000)

GUICtrlSetData($list, @HOUR & ":"& @MIN & ":" & @SEC & "测111111试4")
        Switch $Msg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
Wend


后面很多字被隐藏了.....


用GUICtrlSetData 重写 测试不实用...会导致不在最后行了

颜色用 GUICtrlSetColor 会导致整个框内文字变色的.只需要某一行变色.该用哪一个?好像说要GUICtrlCreateListView才能某行变色..

lynfr8

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$List1 = GUICtrlCreateListView(" ", 80, 64, 460, 230,$LVS_NOCOLUMNHEADER)
GUICtrlSendMsg($List1, 0x101E, 0, 455)
GUISetState(@SW_SHOW)
$I = GUICtrlCreateListViewItem("这个是红色", $List1)
GUICtrlSetColor(-1, 0xFF0000)
$I = GUICtrlCreateListViewItem("这个是黑色", $List1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

这样变色？

wuluck

嗯.我改成了GUICtrlCreateListView了
请问如果框框太小出现水平滚动条怎么办?