faceyao 发表于 2010-8-15 17:34:42

请问edit文本框 里面的文字如何实现自动换行(已解决)

本帖最后由 faceyao 于 2010-8-15 22:52 编辑

edit文本框控件 里面的文字内容如何实现自动换行,谢谢。

ivanpg 发表于 2010-8-15 21:25:16

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 449, 192, 114)
$Edit1 = GUICtrlCreateEdit("", 64, 24, 457, 225, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
$Input1 = GUICtrlCreateInput("请在此输入:", 64, 272, 457, 21)
$Button1 = GUICtrlCreateButton("Button1", 440, 344, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        If GUICtrlRead($Input1) = "" Then
                                MsgBox(0, "", "空的?")
                        Else
                                GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & GUICtrlRead($Input1) & @CRLF)
                                GUICtrlSetData($Input1, "")
                        EndIf
        EndSwitch
WEnd

faceyao 发表于 2010-8-15 21:52:08

楼上的谢谢,辛苦了,不过似乎看不明白,有没有一句话解决的,自动换行一定非要写满26行代码吗

xsjtxy 发表于 2010-8-15 21:58:07


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

GUICreate("My GUI edit")
$myedit = GUICtrlCreateEdit("后面的$WS_VSCROLL意思就是自动换行吧。" & @CRLF, 10, 10, 350, 350, $WS_VSCROLL)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

ivanpg 发表于 2010-8-15 21:59:14

这26行里有20多行是自动生成的,主要就看GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & GUICtrlRead($Input1) & @CRLF)这一行

131738 发表于 2010-8-15 22:37:39

不懂,若能自动换行,水平滚动条岂不是多余的。。。。。。。。。

faceyao 发表于 2010-8-15 22:52:25

回复 4# xsjtxy

谢谢4楼,这个可以换行成功!!!

502762378 发表于 2011-4-5 19:30:58

呵呵想法真不错

qsy666888 发表于 2014-4-26 13:13:20

呵呵想法真不错

chamlien 发表于 2014-9-8 22:59:01

谢谢分享,正需要用到

ak47gglllk 发表于 2014-9-22 11:04:12

学习了,感谢,感谢,感谢了。非常感谢

xuexianhua 发表于 2016-8-17 23:53:27

GUICtrlSetData($Edit1, GUICtrlRead($Input1) & @CRLF,1)

追加文本,且自动滚动

行者靖 发表于 2016-10-3 00:13:46

感谢分享。。。。。谢谢。。
页: [1]
查看完整版本: 请问edit文本框 里面的文字如何实现自动换行(已解决)