如何用RichTextBox实现选中文字的居中、左、右对齐？

Posted 2023-04-01

如何用RichTextBox实现选中文字的居中、左、右对齐？
是VB编程，请高手不吝赐教

参考技术A VB不太清楚，不过我用的是Delphi7中的RichEdit控件，应该大致一样的。
找到Alignment属性，里面有taRightJustify，taLeftJustify和taCenter，分别对应右，左和中对齐
VB里的RichTextBox控件应该也有类似的属性，也有类似的值吧。试试看 参考技术B richtextbox.text.padleft和padright方法可以实现左右对齐！本回答被提问者采纳

VB 如何把richtextbox中已经选中的部分文字，加粗、左对齐、居中、右对齐。不胜感激！！！

要求 加粗点一下加粗再点一下取消加粗，而且只对当前richtextbox显示的数据库中内容有效，对其余的记录没有作用
我用RichTextBox1.Font.Bold = Not RichTextBox1.Font.Bold 后，在richtextbox中的记录有的改了有的没改，不知是何原因

参考技术A 控件名a
a.SelBold = Not a.SelBold '粗体
a.SelStrikeThru = Not a.SelStrikeThru ‘删除线
a.SelItalic = Not a.SelItalic ’斜体
a.SelUnderline = Not a.SelUnderline ‘下划线追问

改了以后，数据库中的相应记录变成如下代码了"\rtf1\ansi\ansicpg936\deff0\fonttbl\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;
\viewkind4\uc1\pard\lang2052\f0\fs20\'b5\'da\'d2\'bb\'d5\'c2\'d1\'a1\'d4\'f1\'bc\'f2\'b5\'a51
\par
" 怎么回事啊

追答

你加了粗体了，当然有改变了，没改变会变粗么？

本回答被提问者采纳 参考技术B 回答里没有对齐方式，做补充：
RichTextBox1.SelAlignment = rtfLeft ' （缺省）左边。段落沿左边距对齐。
RichTextBox1.SelAlignment = rtfRight '段落沿右边距对齐。
RichTextBox1.SelAlignment = rtfCenter '段落居中对齐。