Question

在VB编写的记事本中如何编写其修改字体的程序

Answer 1

Private Sub mnufont_Click()
Dim sel As RichTextBox '不知道你用的是文本框还是富文本框...
Set sel = RichTextBox1
With CommonDialog1
.Flags = cdlCFBoth Or cdlCFEffects
.CancelError = False
.ShowFont
sel.SelFontName = .FontName
sel.SelFontSize = .FontSize
sel.SelBold = .FontBold
sel.SelCharOffset = .Color
sel.SelItalic = .FontItalic
sel.SelUnderline = .FontUnderline
sel.SelStrikeThru = .FontStrikethru
End With
End Sub