hnfeng 发表于 2018-3-8 17:22:24

[已解决]有无办法增加edit控件中文字的行间距？

本帖最后由 hnfeng 于 2018-3-10 21:06 编辑

有无办法增加edit控件中文字的行间距？
感觉行间距太小了，想在行之间稍稍离开一些。先谢谢了#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 412, 273)
$Edit1 = GUICtrlCreateEdit("", 48, 40, 313, 201)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)

$s_text="中文字英文字abcdef中文字英文字abcdef" & @CRLF & _
"中文字英文字abcdef中文字英文字abcdef" & @CRLF & _
"中文字英文字abcdef中文字英文字abcdef" & @CRLF & _
"中文字英文字abcdef中文字英文字abcdef" & @CRLF & _
"中文字英文字abcdef中文字英文字abcdef" & @CRLF & _
"中文字英文字abcdef中文字英文字abcdef"

GUICtrlSetData($Edit1, $s_text)

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


解决方法在 12 楼

kk_lee69 发表于 2018-3-8 17:24:14

回复 1# hnfeng

無法@@

afan 发表于 2018-3-8 17:37:47

设置字体 如微软雅黑

hnfeng 发表于 2018-3-9 08:01:07

回复 3# afan


    谢谢了

试验了，因 微软雅黑 不是等宽字体，效果不好，需要等宽字体（宋体或新宋体）

kk_lee69 发表于 2018-3-9 14:36:30

回复 4# hnfeng

結論是設定字體就可以調嗎??

hnfeng 发表于 2018-3-9 17:48:08

本帖最后由 hnfeng 于 2018-3-9 17:50 编辑

回复 5# kk_lee69


    设定 微软雅黑 字体后 确实感觉行间有点空隙了。可能与字体有关。

但是我显示的内容需要等宽字体才行，所以暂时无更好的办法

afan 发表于 2018-3-9 19:53:28

回复kk_lee69


    设定 微软雅黑 字体后 确实感觉行间有点空隙了。可能与字体有关。

但是我显示 ...
hnfeng 发表于 2018-3-9 17:48 http://www.autoit3.cn/images/common/back.gif


    研究下富文本看看行不~

hnfeng 发表于 2018-3-9 21:24:04

回复 7# afan


    没玩过富文本。下星期找时间研究一下

cfanpc 发表于 2018-3-10 09:15:03

如果内容多，确实太挤了不美观

fenhanxue 发表于 2018-3-10 13:56:46

富文本应该可以，试试这个：
_GUICtrlRichEdit_SetParaSpacing

hnfeng 发表于 2018-3-10 20:58:42

回复 10# fenhanxue


    谢谢帮忙指点

hnfeng 发表于 2018-3-10 21:01:04

[已解决] 有无办法增加edit控件中文字的行间距？

本帖最后由 hnfeng 于 2018-3-10 21:04 编辑

用富文本搞定了
多谢 @afan#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
$Form1 = GUICreate("Form1", 412, 273)
$Edit1 = _GUICtrlRichEdit_Create($Form1, "", 48, 40, 313, 201)
GUISetState(@SW_SHOW)

$s_text = "中文字WWWIIIabcdef中文字英文字abcdef" & @CRLF & _
                "中文字WWWIIIabcdef中文字英文字abcdef" & @CRLF & _
                "中文字WWWIIIabcdef中文字英文字abcdef" & @CRLF & _
                "中文字WWWIIIabcdef中文字英文字abcdef" & @CRLF & _
                "中文字WWWIIIabcdef中文字英文字abcdef" & @CRLF & _
                "中文字WWWIIIabcdef中文字英文字abcdef"

_GUICtrlRichEdit_SetText($Edit1, $s_text)
_GUICtrlRichEdit_SetSel($Edit1, 0, -1)
_GUICtrlRichEdit_SetFont($Edit1, 10, "新宋体")
_GUICtrlRichEdit_SetParaSpacing($Edit1, .25)
_GUICtrlRichEdit_SetSel($Edit1, 0, 0)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        GUIDelete()
                        Exit
        EndSwitch
WEnd
页: [1]
查看完整版本: [已解决]有无办法增加edit控件中文字的行间距？