82问答网 > 在vb中如何将CommonDialog1的字体格式导入至RichTextBox1的文本中

在vb中如何将CommonDialog1的字体格式导入至RichTextBox1的文本中

2024-12-02 21:55:22

推荐回答（4个）

回答1：

Private Sub Command1_Click()
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置 Flags 属性
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' 显示“字体”对话框
CommonDialog1.ShowFont
RichTextBox1.Font.Name = CommonDialog1.FontName
RichTextBox1.Font.Size = CommonDialog1.FontSize
RichTextBox1.Font.Bold = CommonDialog1.FontBold
RichTextBox1.Font.Italic = CommonDialog1.FontItalic
RichTextBox1.Font.Underline = CommonDialog1.FontUnderline

Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub

回答2：

设置RICHTEXTBOX对应的字体格式属性为COMMONDIALOG返回的对应字体格式属性。

回答3：

richtextbox1.font=commondialog1.font

回答4：