**
自学VB,问题求助
利用commondialog控件,完成简单的调用字体设置对话框编程。
然后按照书本上的界面与代码,不知道为什么出现了不一样的效果
这是源代码
Private Sub Command1_Click()
CommonDialog1.Flags = 1 Or 256
CommonDialog1.ShowFont
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
End Sub
怎么可以正常呢?