菜鸟问题，我想在我做的写字板里设置选中文本的字体，怎么办，请高手指点，立即给分

Question

菜鸟问题，我想在我做的写字板里设置选中文本的字体，怎么办，请高手指点，立即给分

Answer 1

加一个dialog控件，使用showfont即可

Answer 2

因为我的字体库出了些问题,所以没有测试,只是颜色没有问题(针对选中的文字)Private Sub Command1_Click()
'    CommonDialog1.ShowFont
    
'    RichTextBox1.SelFontName = CommonDialog1.FontName
'    RichTextBox1.SelBold = CommonDialog1.FontBold
'    RichTextBox1.SelFontSize = CommonDialog1.FontSize
'    RichTextBox1.SelItalic = CommonDialog1.FontItalic
    
    CommonDialog1.ShowColor
    RichTextBox1.SelColor = CommonDialog1.Color
End SubPrivate Sub Form_Load()
    RichTextBox1.Text = "asldkajsldkjalskdjlaskjdlaksdlajsdlakjsdlkajsdlk"
End Sub