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

hnfeng

有无办法增加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

回复 1# hnfeng

無法@@

afan

设置字体 如微软雅黑

hnfeng

回复 3# afan


    谢谢了

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

kk_lee69

回复 4# hnfeng

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

hnfeng

回复 5# kk_lee69


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

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

afan

回复  kk_lee69


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

但是我显示 ...
hnfeng 发表于 2018-3-9 17:48

    研究下富文本看看行不~

hnfeng

回复 7# afan


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

cfanpc

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

fenhanxue

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

hnfeng

回复 10# fenhanxue


    谢谢帮忙指点

hnfeng

用富文本搞定了
多谢 @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