vb记事本中左对齐和右对齐的代码怎么写

Question

vb记事本中左对齐和右对齐的代码怎么写

Answer 1

设定Alignment 属性，但其在执行阶段为唯读

0 -- 靠左
1 -- 靠右
2 -- 靠中

要确保 Alignment 属性能够正确作用，Textbox 控制项中的 MultiLine 属性就必须设
定为 True。如果 Textbox 控制项中的 MultiLine 设定为 False，则会忽略Alignment
属性的设定。
所以，如果您想设定其为单行，又想令其有非左靠齐的作用那只好在TextBox的KeyPress
下底下的程式，以去除Enter的作用，当然要先设定MultiLine = True

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If
End Sub

Answer 2

RichTextBox1.SelAlignment = 0 左 RichTextBox1.SelAlignment = 1 右