vb中如何创建新字体同时赋给文本框的字体属性

Private Sub Command1_Click()

    CommonDialog1.Flags = 3                                     '设置Flags属性值

    CommonDialog1.Action = 4                                    '调用"字体"对话框

    If CommonDialog1.FontName <> "" Then Text1.FontName = CommonDialog1.FontName        '为字体赋值

    Text1.FontSize = CommonDialog1.FontSize                     '为文本框字号赋值

    Text1.FontBold = CommonDialog1.FontBold                     '设置是否为粗体

    Text1.FontItalic = CommonDialog1.FontItalic                     '设置是否为斜体

End Sub

VB 有个专用的字体设置对话框，可以利用这个进行设置的

具体的使用方法就是上面的代码，在程序中建立一个文本框，再加一个命令按钮，复制上面的代码即可