vb richtextbox 文字打印时如何在每行字下划一条横线

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:18:06
vb richtextbox 文字打印时如何在每行字下划一条横线,如:
"
我爱你
你很好
我喜欢你
"
假如引号间为richtextbox里的内容
如何在"我爱你"和"你很好"以及"你很好"和"我喜欢你"间打印出横线,不要使用下划线,结果类似

"
我爱你
-----------
你很好
-----------
我喜欢你
-----------
"
lgf126:那在打印时,代码添加在哪里

'找出行间距
'判断"我爱你"的行数
'用以下语句打印,如间距一样,用循环

Printer.DrawWidth = 5
For i = 0 To x
Printer.Line (x1, y1 + i * stepA)-(x2, y2 + i * stepA)
Next

'这样试试
tmp = Replace(tmp, vbCrLf, vbCrLf + String(20, "-") + vbclrf)

每隔一行添加一条直线，就像在C中那样操作，但在VB中用Chr()代替C中\。

我爱你
——————
你很好
——————
我喜欢你
——————

用制表符"—"代替下划线"_",在文本框中会连接在一起,与表格线一样
以下为所有的制表符
┌┍┎┏┐┑┒—└┕┖┗┘┙┚┛━
├┤┝┥┞┦┟┧┠┨┡┩┢┪┣┫┃│
┬┴┭┵┮┶┯┷┰┸┱┹┲┺┳┻
┼╄┽╅┾╆┿╇╀╈╁╉╂╊╃╋
以下为示范:
┌———┐
│我爱你│
├———┤
│你很好│
└———┘
在平时文本中的效果比在网页编辑中的效果要好的多

如果复制的横线不完整,可以在VB中使用Chr(-22108)