可是windows/fonts下有字体呀(字体通用对话框的使用，如何安装字体)

Question

可是windows/fonts下有字体呀(字体通用对话框的使用，如何安装字体

Answer 1

添加一个公用对话框
Private Sub MenuFont_Click()
      
      Dialog1.CancelError = True
      On Error GoTo Err
      Dialog1.Flags = cdlCFBoth
      Dialog1.ShowFont
      
      
      Text1.Font.name = Dialog1.filename
      Text1.Font.Size = Dialog1.FontSize
      Text1.Font.Bold = Dialog1.FontBold
      Text1.Font.Italic = Dialog1.FontItalic
      Text1.Font.Underline = Dialog1.FontUnderline
      Text1.FontStrikethru = Dialog1.FontStrikethru
      
Err:
      Exit Sub
     
      
End Sub