vb 文本对齐

发布网友发布时间：2022-04-28 16:23

共2个回答

热心网友时间：2022-06-19 16:51

Private Sub Command1_Click()
Dim tt As Variant

tt = Split(Text1.SelText, vbCrLf) ‘Text1.SelText 表示当前选择的文本，用回车换行（vbcrlf）分隔每一行，这里把行分解到一个数组
For i = 0 To UBound(tt)
tt(i) = vbTab & LTrim(tt(i)) ‘把一行左边的空格去掉并加上一个TAB，也可以用space(n)代替，看你选择什么样的对齐方式
Next
Text1.SelText = Join(tt, vbCrLf) ’用改好的文本替换当前选择的文本

End Sub

热心网友时间：2022-06-19 16:52

呵呵,我回答过你的另一个帖子
dddd
ccc
dd
dddd,ccc和dd的前面是空格,在textbox控件里是无法实现这种格式的,除非另辟蹊径,就是文本框的MultiLine属性设为True,也只能一行一行解决,选择一行的时候还要连前面的空格一起选
Text1.SelText = Space(5) & Trim(Text1.SelText) 'Space(5)代表缩进量
不信你试试上面的代码,就算你全部选择了,它一次也只是处理第一行,所以建议使用richtextbox控件