怎样把commomdialog选择的颜色和字体，在textbox里实现？

Question

我用commondialog.showfont这个选择字体，只能显示对话框，那在textbox怎么实现了？？还有comondialog.showcolor?希望有人告诉我！谢谢啦

Answer 1

可能我没有表达清楚：（
我用了一个两个commondialog（一个显示字体，一个显示颜色），还用了两个commandbutton（通过点击这两个button，改变字体和颜色），还用了textbox。我怎么样才能使text显示的文本，通过我这两个button改变字体和颜色？不知道这次说清楚了没有

Answer 2

Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.ForeColor = CommonDialog1.Color

Answer 3

一个 Common Dialog 就够了Private Sub cmdColor_Click()
    cdlgDemo.ShowColor
    Text1.BackColor = cdlgDemo.Color
End SubPrivate Sub cmdFont_Click()
    cdlgDemo.ShowFont
    Text1.FontName = cdlgDemo.FontName
    Text1.FontSize = cdlgDemo.FontSize
    '...
End Sub

Answer 4

Private Sub Command1_Click()
    CommonDialog1.Flags = cdlCFBoth ' cdlCFPrinterFonts Or cdlCFScreenFonts
    CommonDialog1.ShowFont
End Sub在使用 ShowFont 方法前，必须先设置 CommonDialog 控件的 Flags 属性为下列三个常数或值中的一个： cdlCFBoth 或 &H3, cdlCFPrinterFonts 或 &H2, 以及 cdlCFScreenFonts 或 &H1。如果不置 Flags，将会显示一个信息框，提示“没有安装的字体。”并产生一个运行时错误。