VB richtexobox 中改变字体颜色、字体的代码

VB richtexobox 中改变字体颜色、字体的代码

用commondialog的显示字体对话框（showfont)对话框,这个可以在commondialog控件设置字体对话框中应该包含了：
"字体大小fontsize"
"字体名称fontname，"
"字体颜色color"
"是否选择粗体FONTBOLD"
"是否选斜体Fontitalic"
"是否选择下划线fontunderline"
"是否选择删除线fontstrikethru"
多种属性供用户选择，要与richtextbox对象的相关属性一一对应。举一个例子说明：
Private Sub menuziti_Click() '点击"字体"菜单代码CommonDialog1.CancelError = True '出错处理On Error GoTo lxn: CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth '设定选项（必要），
CommonDialog1.ShowFont '下边两句是选定RichTextBox1所有文本内容
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text) '开始设置字体
RichTextBox1.SelFontName = CommonDialog1.FontName '以下是一一对应的关系
RichTextBox1.SelFontSize = CommonDialog1.FontSize
RichTextBox1.SelColor = CommonDialog1.Color
RichTextBox1.SelBold = CommonDialog1.FontBold
RichTextBox1.SelItalic = CommonDialog1.FontItalic
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethrulxn:
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息