富文本控件里的文本，只允许复制，不允许编辑，如何设置【已解决】

fenhanxue · 发表于 2017-3-13 20:14:09

本帖最后由 fenhanxue 于 2017-3-14 11:04 编辑

即
富文本控件里显示的文本，可以鼠标进行复制操作

但是不允许编辑（即不允许新插入任何文本，或者删除任何文本），应如何设置?

答案：

BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_READONLY)

229989799 · 发表于 2017-3-13 20:35:51

什么是付文本。。不懂。。发个图看看

fenhanxue · 发表于 2017-3-13 21:08:26

回复 2# 229989799

#include <GuiRichEdit.au3>

_GUICtrlRichEdit_Create($hWnd, $sText, $iLeft, $iTop [, $iWidth = 150 [, $iHeight = 150 [, $iStyle = -1 [, $iExStyle = -1]]]])

229989799 · 发表于 2017-3-13 22:57:37

本帖最后由 229989799 于 2017-3-13 23:03 编辑

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
    Local $hGui, $hRichEdit, $iMsg
    $hGui = GUICreate("富文本编辑框 UDF 示例 (" & StringTrimRight(@ScriptName, StringLen(".exe")) & ")", 320, 350, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "这是一段测试文本.", 10, 10, 300, 220, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    _GUICtrlRichEdit_AppendText($hRichEdit, @CRLF & "这是更多的其它文本")
    GUISetState(@SW_SHOW)

    While True
        $iMsg = GUIGetMsg()
        Select
            Case $iMsg = $GUI_EVENT_CLOSE
                _GUICtrlRichEdit_Destroy($hRichEdit) ; 总是需要的, 除非脚本崩溃
                ; GUIDelete()   ; 也可以这样
                Exit
        EndSelect
    WEnd
EndFunc   ;==>Example

看了一下帮助，添加一些控件样式应该可以达到要求，看看帮助吧。

fenhanxue · 发表于 2017-3-14 11:03:59

这个样式不行的，要用
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_READONLY)

		自动登录	找回密码
密码			加入

[AU3基础] 富文本控件里的文本，只允许复制，不允许编辑，如何设置【已解决】

相关帖子

[AU3基础] 富文本控件 里的文本，只允许复制，不允许编辑，如何设置【已解决】

相关帖子

[AU3基础] 富文本控件里的文本，只允许复制，不允许编辑，如何设置【已解决】