东平:VB中修改输入文本的字体

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 07:49:55
我学着用VB写了一个聊天程序,但是不知道怎么在程序运行时候,修改输入字体(象其他软件一样,可以自己定义输入的字体、颜色...)。
大侠们 该怎么样实现,我已经定义一个按钮,打开字体对话框,但是选择以后,还是没用啊?

Private Sub Command1_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub

通用对话框中的字体选择框有对应取得选取项的属性的 你取得再赋与文件框的字体属性即可 不可我很久没碰VB啦 具体源码就不写啦 你网上找一下吧